Protection fichier
Bonjour à Tous,
J'ai une petite question...
Est-ce que c'est possible de proteger mon fichier excel via un mot de passe mais par contre quand j'ai fait le test, la macro ne fonctionne plus.
je voudrais que lorsqu'on ouvre mon fichier il soit en lecture seule ... et qu'on se sache pas faire de enregistrement de Copie de ...
Et par la même occasion, est-ce que c'est possible d'activer l'option suivi des modifications? car j'ai fait aussi le test et me désactive la macro.
Merci d'avance pour votre aide
Bonjour,
Est-ce que quelqu'un peux m'aider sur ma demande ci-dessus?
bien à vous
Bonjour à Tous,
J'ai une petite question...
Est-ce que c'est possible de protéger mon fichier excel via un mot de passe mais par contre quand j'ai fait le test, la macro ne fonctionne plus.
je voudrais que lorsqu'on ouvre mon fichier il soit en lecture seule ... et qu'on se sache pas faire de enregistrement de Copie de ...
Et par la même occasion, est-ce que c'est possible d'activer l'option suivi des modifications? car j'ai fait aussi le test et me désactive la macro.
Merci d'avance pour votre aide
Salut essaie de passer par :
- Options Excel
- Centre de gestion de confidentialité, puis paramètre du centre de gestion de confidentialité
- Paramètre des macros, puis Activer toutes les macros...
- Fini par protéger ton document par un mot de passe
Tu peux mettre ton fichier en lecture seule pour que les utilisateurs ne puissent pas modifier le fichier de départ.
tu fais un clique droit sur ton fichier, propriété et tu coches lecture seule
et voici 2 macros pour protéger et déprotéger entièrement ton fichier :
Sub Protéger()
' Protection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
Dim Motdepasse As String
Motdepasse = InputBox("Entrer le mot de passe :", "Mettre la protection sur toutes les feuilles", "")
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Protect Password:=Motdepasse
Next i
End Sub
Sub Déprotéger()
' Déprotection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
Dim Motdepasse As String
Motdepasse = InputBox("Entrer le mot de passe :", "Oter la protection de toutes les feuilles", "")
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Unprotect Password:=Motdepasse
Next i
End Sub
quelle serait l'utilité de ton mot de passe?
Merci beaucoup pour votre aide...
J'ai opter par le coche lecture seule dans les options du fichier.. et l'option de confidentalité
Par contre est-ce que une personne sera le décocher à part moi?
merci d'avance pour votre confirmation