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:
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.
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.
Pièces jointes
Dernière édition: