Mode plan et feuille protégée

didus · 9 Septembre 2013

Bonjour à tous,
Mon soucis est relativement simple, j'ai un classeur d'une quinzaine de feuilles et je protége la feuille principale (Général) en laissant aux utilisateurs certaines fonctionnalités actives, voici le code protection et déprotection:
ainsi que celui qui ôte les filtres (sous condition d’existence et réinitialise les volets:

Sub deprotege()
'Sheets("Général").Unprotect
'Worksheets("Général").ShowAllData
Sheets("Général").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False _
, AllowFiltering:=True, userinterfaceonly:=True
Range("AZ2:AZ2") = "Feuille déprotégée"
Range("X2:X2") = "Feuille déprotégée"
Range("AX2:BA2").Interior.Color = RGB(237, 38, 23)
Range("A2:AE2").Interior.Color = RGB(237, 38, 23)
End Sub

Sub protege()
Sheets("Général").Select
ActiveSheet.EnableOutlining = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True, userinterfaceonly:=True
Range("AZ2:AZ2") = "Feuille protégée"
Range("X2:X2") = "Feuille protégée"
Range("AX2:BA2").Interior.Color = RGB(51, 209, 51)
Range("A2:AE2").Interior.Color = RGB(51, 209, 51)
End Sub

Sub volets_general()
'
' volets_postes Macro
'
' Fige les volets general et réinitialise les filtres
Worksheets("Général").Activate
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
ActiveWindow.FreezePanes = False
Sheets("Général").Range("D5").Select
ActiveWindow.FreezePanes = True
End Sub

Or l'option qui me permet d'utiliser le mode plan, n'est pas opérationnelle, j'ai une erreur

Sheets("Général").Select
ActiveSheet.EnableOutlining = True
ne donne pas de résultats, je souhaiterai donc rendre cette option active sous une feuille protégée,
ou comprendre le pourquoi de son inopérabilité.

Merci d'avance pour votre aide éclairée.

Mode plan et feuille protégée

didus

XLDnaute Occasionnel

Pièces jointes

Discussions similaires