Voici un exemple composés de deux procédures simples... La première sert à verrouiller la feuille du classeur, nommée ici "nomFeuille" en la protégeant par le mot de passe "motDePasse". L'autre permet le déverouillage en demandant au pralable le mot de passe pour vérifier s'il correspond au mot de passe attendu. Si le mot de passe est valide la feuille est déverrouiller, sinon un message d'erreur est envoyé à l'utilisateur.

Sub VEROUILLAGE()
    Sheets("nomFeuille").Protect Password:="motDePasse", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Sub DEVEROUILLAGE()
    passSaisi = InputBox("Mot de passe de déverrouillage :", "DEVEROUILLER")
    If (passSaisi = "motDePasse") Then
        Sheets("nomFeuille").Unprotect Password:="motDePasse"
    Else
        Message = MsgBox("Mot de passe erroné", vbCritical, "DEVEROUILLER - Echec")
    End If
End Sub