|
|
|
|
Noemy37, le lundi 27 novembre 2006 à 12:23:21Bonsoir,
sans avoir testé, je ferais cela : Sub Macro_on()
' Macro_on Macro
' Macro enregistrée le 23/11/2006 par SABARD
'
Dim mot_de_passe As String
mot_de_passe = InputBox("Donnez le mot de passe")
If mot_de_passe = "visual" Then
ActiveSheet.Unprotect "modif"
Columns("F:F").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect "modif"
End If
End Sub A+ |