Protéger un bouton de commande par MP

Private Sub CommandButton1_Click()
Dim mdp As String

debut:
mdp = InputBox("Mot de passe ?", "Mot de passe")
If mdp = "toto" Then
Me.CommandButton1.Enabled = True

'\\mettre ici ce que doit faire le bouton

ElseIf mdp = "" Then Exit Sub
Else
MsgBox "Ce n'est pas le bon mot de passe, recommencez !"
GoTo debut

End If
End Sub

Dim Ctrl As Control
Dim L As Long
Dim I As Long

Private Sub UserForm_Initialize()
    With ComboBox1
      .Clear
         For L = 12 To Feuil1.Range("A" & Rows.Count).End(xlUp).Row
            .AddItem Feuil1.Range("A" & L)
         Next
   End With
End Sub

Private Sub ComboBox1_Change()
L = ComboBox1.ListIndex + 12
With Feuil1
  For I = 1 To 26
    Controls("CheckBox" & I) = IIf(.Cells(L, I + 4) = "", 0, 1)
  Next
  TextBox1.Value = .Cells(L, 4)
End With
End Sub