Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

save as non autorisé

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Ilino
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Ilino

XLDnaute Barbatruc
Bonjour Forum
Je cherche une astuce de telle manière que mon fichier Excel ne peut pas être déplacé d’un PC a l'autre.
Exemple
Dans mon code je précise le chemin répertoire de mon fichier ( ex. C:\FGP 2014) si un utilisateur veut copier ou déplacer le fichier un message Msgbox lui informe qui ne peut pas faire cette opération ou il n’est pas autorisé
a+
 
Trier par date Trier par votes
Re : save as non autorisé

Re Ilino,

Je te propose les manips suivantes.

1) Sur ton ordi entre dans le ThisWorkbook du fichier que tu veux installer chez les utilisateurs :

Code: 
Private Sub Workbook_Open()
On Error Resume Next
If Environ("ComputerName") = [ordi] And Me.Path = [chemin] _
  And Right(Me.Name, 5) = ".xlsm" Then Exit Sub
Application.DisplayAlerts = False
Me.ChangeFileAccess xlReadOnly
Kill Me.FullName
If Workbooks.Count = 1 Then Application.Quit Else Me.Close
End Sub

Sub CréerNoms()
Me.Names.Add "ordi", Environ("ComputerName"), Visible:=False
Me.Names.Add "chemin", Me.Path, Visible:=False
End Sub

Sub SupprimerNoms()
On Error Resume Next
Me.Names("ordi").Delete
Me.Names("chemin").Delete
End Sub
2) Pour tester, lance la macro CréerNoms.

Une fois les noms créés tu verras que tu ne peux plus utiliser le fichier dans un autre répertoire.

3) Lance donc la macro SupprimerNoms.

4) Maintenant installe le fichier chez un utilisateur dans le répertoire que tu veux et ouvre-le.

5) Lance la macro CréerNoms.

6) Supprime les macros CréerNoms et SupprimerNoms.

7) Protège le VBA avec ton mot de passe, enregistre et ferme le fichier.

Edit : si le fichier est en lecture seule il ne sera pas supprimé, seulement fermé.

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : save as non autorisé


Bonjour FORUM ,job
2. j'ai pas bien saisié " ...Une fois les noms créés ...." de quel noms tu parles ??
3. "Lance donc la macro SupprimerNoms" pourquoi le lancemenr de cette Macro ?
5&6. je souhaite ces deux macro doient etre lancé automatiquement une fois que je lui donne( utilisateur) le fichier
GRAZIE et B.W
 
Vote positif 0 Vote négatif
Re : save as non autorisé

Bonjour Ilino,

La macro CréerNoms crée les 2 noms (masqués) "ordi" et "chemin".

La macro SupprimerNoms les supprime (ce qui permet d'aller sur un autre ordi).

Relis attentivement tout ce que j'ai écrit au post #17 : ces 2 macros ne servent qu'à toi.

Une fois utilisées par toi, il ne faut pas les laisser sur l'ordi de l'utilisateur.

A+
 
Vote positif 0 Vote négatif
Re : save as non autorisé

job75 à dit:
Bonjour Ilino,

Relis attentivement tout ce que j'ai écrit au post #17 : ces 2 macros ne servent qu'à toi.

Une fois utilisées par toi, il ne faut pas les laisser sur l'ordi de l'utilisateur.

A+
Cliquez pour agrandir...

Bonjour job
MERCI POUR CES DETAILS, je vous ai compris , mais je souhaite de transmettre ce fichier par messagerie a mes collaborateurs , ppour cette raisain j'ai souhaiter faire les deux tache 5 et 6 automatiquement a l'ouverture du fichier chez l'utilisateur
 
Vote positif 0 Vote négatif
Re : save as non autorisé

Re,

Tu peux éventuellement faire ce qui suit.

1) Dans le ThisWorkbook de ton fichier mets ces 3 macros (j'ai modifié la 1ère) :

Code: 
Private Sub Workbook_Open()
If IsError([ordi]) Then CréerNoms
If Environ("ComputerName") = [ordi] And Me.Path = [chemin] _
  And Right(Me.Name, 5) = ".xlsm" Then Exit Sub
Application.DisplayAlerts = False
On Error Resume Next
Me.ChangeFileAccess xlReadOnly
Kill Me.FullName
If Workbooks.Count = 1 Then Application.Quit Else Me.Close
End Sub

Private Sub CréerNoms()
Me.Names.Add "ordi", Environ("ComputerName"), Visible:=False
Me.Names.Add "chemin", Me.Path, Visible:=False
End Sub

Private Sub SupprimerNoms()
On Error Resume Next
Me.Names("ordi").Delete
Me.Names("chemin").Delete
End Sub
2) Dans VBA exécute la macro SupprimerNoms (au cas où les 2 noms existeraient).

3) Protège par mot de passe le projet VBA, enregistre et ferme le fichier, tu peux ensuite l'envoyer.

Avec Private aucune macro n'apparaît dans la liste des macros.

Mais tant qu'il n'a pas ouvert le fichier, l'utilisateur pourra le copier et l'installer sur n'importe quel ordinateur.

A+
 
Vote positif 0 Vote négatif
Re : save as non autorisé

Re ,
c'est une proposition, mais
Code: 
Mais tant qu'il n'a pas ouvert le fichier, l'utilisateur pourra le copier et l'installer sur n'importe quel ordinateur.
d'accord mais une fois installé il ne peut pas le recopier si il l'a ouvert??
A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
643
Phil69970
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
780
arnoldbrice19
A
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
850
Lu76Fer
A
  • Question Question
XL 2019 Variable du bureau dans l'envoie par Outlook Filename:= et .Attachments.Add
Réponses
11
Affichages
919
fanch55
F
  • Question Question
XL 2016 Blocage macro sur instruction SET
Réponses
6
Affichages
737
job75
F
  • Question Question
XL 2016 Arrêt macro intempestif
Réponses
3
Affichages
1 K
flyingmuad
F
F
  • Question Question
Microsoft 365 Calcul du taux d'occupation hebdomadaire d'une activité
Réponses
8
Affichages
3 K
Staple1600
P
  • Question Question
XL 2019 problème avec before close et beforesave
2
Réponses
18
Affichages
3 K
pat66
P
N
  • Résolu(e)
XL pour MAC Refonte complete d'un fichier, besoin d'idées
8 9 10
Réponses
147
Affichages
14 K
Staple1600
A
  • Question Question
Save copy as sur un serveur
Réponses
0
Affichages
843
Attila451
A
  • Question Question
XL 2016 modifier nom répertoire
Réponses
4
Affichages
1 K
BALANCIE
G
  • Question Question
Focntion recherche et reprise de valeur
Réponses
0
Affichages
562
GENTILE
G
M
  • Question Question
Centrer automatiquement un rectangle créé avec des bordures avec VBA
Réponses
7
Affichages
2 K
Matta
M
  • Question Question
Msg d'erreur non justifié pour "écraser le fichier"
Réponses
1
Affichages
767
Papou-net
C
  • Question Question
Macro différente selon le PC qui l'exécute
Réponses
4
Affichages
1 K
Roland_M
L
  • Question Question
XL 2013 Deplacer Formes/Shapes pour gerer l'espace dans un entrepot
Réponses
3
Affichages
1 K
youky(BJ)
T
  • Question Question
Recherche d'un fichier à nom variable - VBA 2010
Réponses
6
Affichages
1 K
Dranreb
D
  • Question Question
* Insertions date non conformes *
Réponses
3
Affichages
922
David69400
D
W
  • Question Question
Ouvrir un répertoire en vba, s'il n'est pas déjà ouvert.
Réponses
12
Affichages
8 K
Staple1600
A
  • Question Question
Tri de données textes
Réponses
6
Affichages
7 K
azerty123
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…