execution macro qu'après validation par mot de passe

Private Sub CommandButton1_Click()
Dim a As String
a = InputBox("Tapez le mot de passe.", "MOT DE PASSE")
If a = "le mot de passe" Then 'tu adapteras ton mot de passi ici
    MsgBox "Mot de passe correct, la macro est lancée."
    'le code de ta macro
    'mais comme tu le vois quelqu'un qui s'y connait un minimum en VBA
    'aura vite fait de craquer ce mot de passe...
Else
    MsgBox "mot de passe incorrect. la macro n'est pas lancée."
    Exit Sub
End If
End Sub