Déprotection Classeur : Structure ET Windows
Bonjour,
J'ai un problème avec l'affichage de "Figer les volets" qui reste grisé malgré toutes mes tentatives pour l'afficher.
Nota : je ne suis pas en mode "mise en page".
Je pensais contourner le problème en utilisant :
Code:
1
2
| Range("C4").EntireRow.Select
ActiveWindow.FreezePanes = True |
ou
Code:
ActiveWindow.SplitRow = 4
Impossible d'exécuter ce code car mon classeur est protégé malgré mes efforts pour le déprotéger :
Il est protégé comme ceci :
Code:
1
2
3
4
5
6
7
8
| Sub Protéger_Classeur()
For Each wSheet In Worksheets
wSheet.Protect Password:="***", userinterfaceonly:=True
Next wSheet
ThisWorkbook.Protect "***", True, True 'structure:=True, Windows:=True
End Sub |
Et déprotégé comme cela :
Code:
1
2
3
| Sub Déprotéger_Classeur()
ThisWorkbook.Unprotect "***"
End Sub |
Si j'exécute :
Code:
1
2
3
4
5
6
7
8
9
| Sub IsWorkbookProtected()
With ActiveWorkbook
If .ProtectWindows Or .ProtectStructure Then
MsgBox "This workbook is password protected"
Else
MsgBox "This workbook is not password protected"
End If
End With
End Sub |
j'observe, en passant la souris sur .ProtectWindows, que cette protection reste à True ! (Alors qu'elle passe bien à False pour ProtectStructure)
Sauf erreur de ma part (mais je ne suis plus sûr de rien), ThisWorkbook.Unprotect "***" n'accepte pas d'argument à False, False et supprime d'office la protection de Structure ET Windows ??
Nota : ma macro utilise des ScrollRow ça et là mais même si je les supprime, je n'arriver pas à récupérer "Figer les volets" à l'état non-grisé.
Si la seule solution est de recopier (toutes) les feuilles et le code qui va avec dans un nouveau classeur, je serai dépité...
Merci pour vos lumières même si j'avoue ne pas être très optimiste sur ce coup-là.
Cdt
