FanExcel
XLDnaute Occasionnel
Bonjour,
J'ai une macro qui permet de protéger toutes les feuilles d'un classeur.
Je souhaite exclure une ou plusieurs feuilles qui ne doivent pas être protégées.
Comment Puis je modifier le code?
Merci
'Proteger
Sub ProtecFeuilles1()
Application.ScreenUpdating = False
Dim MDP As String
MDP = InputBox("Entrer mot de passe :", "Activation de la protection des feuilles")
If MDP <> "yes" Then Exit Sub
For Each f In Worksheets
f.Protect MDP
Next
End Sub
J'ai une macro qui permet de protéger toutes les feuilles d'un classeur.
Je souhaite exclure une ou plusieurs feuilles qui ne doivent pas être protégées.
Comment Puis je modifier le code?
Merci
'Proteger
Sub ProtecFeuilles1()
Application.ScreenUpdating = False
Dim MDP As String
MDP = InputBox("Entrer mot de passe :", "Activation de la protection des feuilles")
If MDP <> "yes" Then Exit Sub
For Each f In Worksheets
f.Protect MDP
Next
End Sub