Public MdP As String
Sub auto_open()
Range("a10").Activate
ActiveSheet.Protect
End Sub
Sub auto_closed()
ActiveSheet.Unprotect
End Sub
Sub RAZ_présent()
'
' raz_CO Macro
' Macro enregistrée le 26/01/2009
'
'
Range("A11:A70").Select
Selection.ClearContents
Range("a11").Select
End Sub
Sub afficher_personnel_présents()
'
' 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_tout_le_personnel()
'
' 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
Sub RAZ_jours()
'
' RAZ_jours Macro
' Macro enregistrée le 26/01/2009
'
Range("A11:A70").Select
Selection.ClearContents
Range("a11").Select
'
Range("E11:E70").Select
Selection.ClearContents
Range("a11").Select
'
Range("G11:G70").Select
ActiveSheet.Protect
Selection.ClearContents
ActiveWindow.LargeScroll Down:=-9
ActiveWindow.ScrollRow = 11
Range("A10").Select
End Sub