nat54
XLDnaute Barbatruc
Bonjour,
J'utilisais ces 2 codes pour mes fichiers pour protéger/déprotéger.
Cela marchait très bien.
Sauf que maintenant je dois appeler ces macros dans une macro où je cache certains onglets.
Cela ne fonctionne alors plus car il ne retrouve pa sle i=1
Comment faire pour protéger/déprotéger tout un classeur d'une façon différent, prenant en compte les onglets cachés ?
Merci,
J'utilisais ces 2 codes pour mes fichiers pour protéger/déprotéger.
Code:
Sub ProtegeClasseur()
Dim maFeuille As Worksheet
For i = 1 To Worksheets.Count
Set maFeuille = Worksheets(i)
maFeuille.Select
maFeuille.Protect "tdb_rh", True, True, True 'entre guillemets le mdp
Next
End Sub
Code:
Sub DeProtegeClasseur()
Dim maFeuille As Worksheet
For i = 1 To Worksheets.Count
Set maFeuille = Worksheets(i)
maFeuille.Select
maFeuille.Unprotect "tdb_rh" 'entre guillemets le mdp
Next
End Sub
Cela marchait très bien.
Sauf que maintenant je dois appeler ces macros dans une macro où je cache certains onglets.
Cela ne fonctionne alors plus car il ne retrouve pa sle i=1
Comment faire pour protéger/déprotéger tout un classeur d'une façon différent, prenant en compte les onglets cachés ?
Merci,