Macro VBA : Protection - Déprotection Feuille Excel

Bonjour à tous,

J'aurai besoin de votre aide svp.

Je souhaite réaliser une macro qui protège et déprotège une feuille excel en écrivant le mot de passe dans une boite de dialogue qui apparaît.

Je pense être pas loin du compte mais cela ne fonctionne pas !

Dim sPass As String

sPass = InputBox("Veuillez saisir le mot de passe")

Feuil25.Select

Unprotect = sPass

Merci d'avance de votre aide,

jl

Bonjour

Non tu n'es pas loin

Sub test()
Dim sPass As String
  sPass = InputBox("Veuillez saisir le mot de passe")

  ' Ici tu dois vérifier le mot de passe
  ' et agir en conséquence
  ' Exemple
  If sPass <> "Bonjour" Then
    MsgBox "Mot de passe non reconnu"
  Else
    Feuil25.Unprotect Password:=sPass
  End If
End Sub

Merci beaucoup pour l'accueil et la rapidité !

A bientôt