verouillage et vba

For Each x In Sheets
x.select
ActiveSheet.Unprotect 'déverrouille toutes les feuilles de ton classeur
Next

'ma macro à moi qui envoie du steak !!


For Each x In Sheets
x.Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 'reverrouille toutes les feuilles de mon classeur
ActiveSheet.EnableSelection = xlUnlockedCells 'empeche de sélectionner des cellules verrouillées lorsque la protection de la feuille est activée
Next

Private Sub CommandButton1_Click()

' prot Macro
' Macro enregistrée le 05/12/2009 par franck lombard
ActiveSheet.Unprotect
'enlève la protection de la feuille,
'tu peux le faire avec mot de pass aussi
    Range("B12,C12,D12,E12,H12").Select
     Selection.Locked = True
    Selection.FormulaHidden = False
    ActiveSheet.Protect
End Sub

Private Sub CommandButton1_Click()

' prot Macro
' Macro enregistrée le 05/12/2009 par franck lombard
ActiveSheet.Unprotect ("12345") 
'enlève la protection de la feuille,
'tu peux le faire avec mot de pass aussi
    Range("B12,C12,D12,E12,H12").Select
     Selection.Locked = True
    Selection.FormulaHidden = False
    ActiveSheet.Protect Password:="12345", DrawingObjects:=True, Contents:=True, Scenarios:=True 
End Sub