Public MdP As String
Sub auto_open()
Range("a10").Activate
ActiveSheet.Unprotect
End Sub
Sub auto_closed()
ActiveSheet.Unprotect
End Sub
Sub raz_co()
'
' raz_CO Macro
' Macro enregistrée le 26/01/2009
'
'
Range("A11:A70").Select
Selection.ClearContents
Range("a11").Select
End Sub
Sub afficher_la_co()
'
' Macro enregistrée le 26/01/2009
'
'
ActiveSheet.Unprotect
MdP = "zaza"
Selection.AutoFilter Field:=1, Criteria1:="x", Operator:=xlAnd
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Sub afficher_tous()
'
' afficher_tous Macro
' Macro enregistrée le 26/01/2009
'
ActiveSheet.Unprotect
MdP = "zaza"
Selection.AutoFilter Field:=1, Criteria1:="x", Operator:=xlAnd
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.Unprotect
password = "zaza"
ActiveSheet.ShowAllData
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub