Re : ActiveSheet.protect
Robert
ça ne fonctionne pas, peux tu jeter un coup d'oeil stp
merci
Sub BOUTONCOMMANDE()
'
' BOUTONCOMMANDE Macro
' Macro enregistrée le 10/03/2008 par mistralincoming
'
Dim a As String
ActiveCell.Select
début:
a = InputBox("Mot de Passe", "fonctions avancées")
If a = "" Then Exit Sub
If UCase(a) = "123" Then
Sheets("ADMINISTRATEUR").Select
Exit Sub
Else
MsgBox "Mot de passe incorrect !"
GoTo début
End If
End Sub