Re : protection de la feuille
Bonjour Staple1600, TheLio et forum
Tout d'abord merci de vos réponses.
Cela dit, je me suis baladé sur le forum en effet c'est une mine d'or.🙂
Donc voici ce que j'ai trouvé ci desous "macro" et mis en application dans le classeur que vous trouverez ci joint
en revanche le dévérouillage ne fonctionne pas, suis obligé de faire outils oter etc...
pouvez vous me dire ce qui bloque dans la marco ?
aussi, ce fichier est un test à terme je souhaite mettre ces macros, et
il sera partagé en réseau , et je suis le seul à pouvoir apporter les modif.
alors, est ce que les personnes n'auront pas de difficulté à regarder "en mode lecture seule" ,
et pourront ils voir le mot de passe de la macro vérouiller et dévérouiller*
ccomment faire pour protéger ces marcos ?
merci d'avance au plaisir
Sub ProtectionToutesLesFeuillesMDP()
Application.ScreenUpdating = False
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Protect Password:="chris"
Next Feuil
End Sub
et pour déprotéger :
Sub DeprotectionToutesLesFeuillesMDP()
Dim MyMtPss As String
MyMtPss = Application.InputBox("Mot de passe pour continuer")
If MyMtPss <> "chris" Then Exit Sub
MsgBox "Attention, toutes les feuilles vont être déprotégées"
Application.ScreenUpdating = False
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Unprotect Password:="chris"
On Error GoTo Sortie
Suite:
Next Feuil
Exit Sub
Sortie:
MsgBox "La Feuille : " & Feuil.Name & " Est Protégée par UN AUTRE Mot de Passe"
GoTo Suite
End Sub