Cacher des lignes - Classeur protégé
a
Bonjour,
J'ai réussi à créer mes modules pour cacher mes lignes et les faire réapparaître en cliquant sur un bouton.
Cependant lorsque je veux protéger mes feuilles ... ça ne marche plus ça me dit qu'il y a un soucis avec la macro.
Je vous joins le fichier exemple :
- La feuille "Test1" a été verrouillée avec le mdp 123456789
Je vous remercie par avance pour votre aide !!!
J'ai réussi à créer mes modules pour cacher mes lignes et les faire réapparaître en cliquant sur un bouton.
Cependant lorsque je veux protéger mes feuilles ... ça ne marche plus ça me dit qu'il y a un soucis avec la macro.
Je vous joins le fichier exemple :
- La feuille "Test1" a été verrouillée avec le mdp 123456789
Je vous remercie par avance pour votre aide !!!
Bonjour, vous devez ajouter les lignes pour enlever en début de macro et remettre la protection en fin de macro.
Ceci dans toutes vos macros.
exemple:
Sub MasquerCATA1()
Worksheets("Test1").Unprotect Password:="123456789"
If ActiveSheet.Name = "Test1" Then
Set plage = ActiveSheet.Rows("7:12")
End If
If plage.Rows.EntireRow.Hidden = True Then
plage.EntireRow.Hidden = False
Else
plage.EntireRow.Hidden = True
End If
Worksheets("Test1").Protect Password:="123456789"
End Suba
Merci beaucoup tout fonctionne !