Mode plan et feuille protégée

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

Cliquez pour agrandir...