Bonjour Creepy
Je vois que le pb de Fermo te casse la tête aussi.
Voilà la réponse que je lui avait faite par email :
La propriété PasswordChar n'est pas valide pour une inputbox mais pour une textbox.
Je te propose de prendre comme mot de passe des étoiles " *** ", ce qui égarera le curieux éventuel !
J'ai ajouté à la macro de base la condition "feuille non protégée" :
Private Sub CommandButton2_Click()
Dim Message, Title, Default, MyValue
If ActiveSheet.ProtectContents = False Then
MsgBox ("La feuille n'est pas protégée !")
Else
Message = "Rentrez le mot de passe" 'Message
Title = "Ôter la protection de la feuille"
MyValue = InputBox(Message, Title, Default)
If MyValue = "******" Then
Application.CommandBars("Worksheet Menu Bar").Enabled = False ' False pour eviter les pb pendant le réglage !
With ActiveSheet
.EnableSelection = xlNoRestrictions
.Unprotect Password:="******"
End With
Else
MsgBox ("Mot de passe incorrect !")
End If
End If
End Sub
Mais si une grosse tête du forum dénoue l'énigme, je suis preneur lol
A+
Bernard