Discussion :

[jpma75]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("C4").EntireRow.Select
ActiveWindow.FreezePanes = True

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Déprotéger_Classeur()
    ThisWorkbook.Unprotect "***"
End Sub

Si j'exécute :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jpma75]

Bonjour,

Je me suis résolu, sans surprise, à "déplacer" mes feuilles dans un nouveau classeur, ce qui résout le problème (avec néanmoins un peu de frustration...).
Le plus gros problème dans ce "déplacement" c'est l'élimination des liaisons "intempestives" (j'ai débusqué celles des feuilles avec Ctrl F + ".xl" mais c'était sans compter celles qui restaient dans le gestionnaire de noms ! Ça fonctionne mais je ne comprends pas pourquoi "Figer les volets" apparaît bien dans mon nouveau classeur alors que les macros sont strictement identiques au classeur initial.

Cdt

[jpma75]

PS : est-il possible de "déplacer" des feuilles sans récupérer de liaisons avec le fichier initial ?