Private Sub CommandButton1_Click()
'bouton déprotection
Dim mdp
mdp = InputBox("Mot de passe pour déprotéger la feuille", "SECURITE ILLUSOIRE", "Saisir ici le mot de passe requis")
Select Case mdp
Case Is = "Ummagumma"
Call deprotection
Case Else
Exit Sub
End Select
End Sub