Mode plan et feuille protégée

didus

XLDnaute Occasionnel
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
err.jpg
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.
 

Pièces jointes

  • err.jpg
    err.jpg
    10.2 KB · Affichages: 48
  • err.jpg
    err.jpg
    10.2 KB · Affichages: 59
Dernière édition:

Discussions similaires

Réponses
3
Affichages
568