Fermeture USF par mot de passe

Bonjour la communauté,

Je rencontre un soucis avec le code trouvé sur ce sujet => https://forum.excel-pratique.com/excel/proteger-un-usf-par-mot-de-passe-t47460.html

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'vbFormControlMenu  0 L'ordre de fermeture provient de la Croix du UserForm
'vbFormCode         1 L'ordre de fermeture provient d'une macro
'vbAppWindows       2 L'ordre provient de la fermeture de la session Windows
'vbAppTaskManager   3 L'ordre de fermeture provient d'une instruction du Task Manager
'
' Si fermeture par la croix
If CloseMode = 0 Then
  ' Demander le mot de passe
 If InputBox("Vous souhaitez fermer la fenêtre par la croix" & vbCr _
    & "Merci de saisir le mot de passe", "Mot de passe") <> "toto" Then
    ' Si différend de toto, ne pas fermer l'USF
   Cancel = True
  End If
 End If
End Sub

L'erreur en pièce jointe ainsi que mon fichier.

Bonjour,

Ton code comporte des espaces insécables (Car 160) au lieu d'espaces normaux (Car 32), c'est ce qui bloque le compilateur.

Ton code corrigé :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'vbFormControlMenu  0 L'ordre de fermeture provient de la Croix du UserForm
'vbFormCode         1 L'ordre de fermeture provient d'une macro
'vbAppWindows       2 L'ordre provient de la fermeture de la session Windows
'vbAppTaskManager   3 L'ordre de fermeture provient d'une instruction du Task Manager
'
' Si fermeture par la croix
If CloseMode = 0 Then
  ' Demander le mot de passe
  If InputBox("Vous souhaitez fermer la fenêtre par la croix" & vbCr _
    & "Merci de saisir le mot de passe", "Mot de passe") <> "toto" Then
    ' Si différend de toto, ne pas fermer l'USF
    Cancel = True
  End If
End If
End Sub

Merci pour ta réponse rapide Patrice33740, mais j'ai toujours une erreur.

Quelle erreur ?

Exactement la même.

Pourrais tu faire la correction sur le fichier joint directement ?

Voila :

Merci Patrice