Bouton protection deprotection fichier
Bonjour a tous
voici un code qui permet de verrouiller ou déverrouiller a partir d'un bouton
sur la commande MDP = InputBox("Entrer le mot de passe :", "Enlever protection") le système annonce une erreur sur
MDP = InputBox("Entrer le mot de passe :", "Enlever protection") mais je n'en vois pas la cause
une idée ?
Ci dessous la macro complète l'idée étant de verrouiller l'ensemble des feuilles a l'exception des cellules déverrouillées
PS ce code n'est pas d moi il a été récupéré
Private Sub CommandButton45_Click()
MDP = InputBox("Entrer le mot de passe :", "Enlever protection")
If MDP = "" Then Exit Sub
If MDP <> "visiteur11" Then
MsgBox "Mot de passe administrateur"
Else
For Each sh In Sheets
sh.Unprotect MDP
Next sh
Me.CommandButton45.Visible = False
Me.CommandButton46.Visible = True
End If
End Sub
Private Sub CommandButton46_Click()
For Each sh In Sheets
sh.Protect "visiteur11"
Next sh
Me.CommandButton45.Visible = True
Me.CommandButton46.Visible = False
End Sub
Bonjour
Chez moi (Excel 2013) le code marche parfaitement
Cordialement
Bonsoir Amadeus
merci pour ta réponse effectivement je suis sur 2016
Bizarrement sur un autre fichier toujours sur 2016 le fichier fonctionne. J'ai remarqué que systématiquement ma macro se modifie
Sur le fichier initial mdp = est en minuscule alors que sur mon fichier il s'inscrit en majuscule même si je fais un copier coller
Je suppose que le problème pourrait venir de la mais. je n'en suis pas sûre car je suis très loin du niveau des intervenants de ce forum
c'est la raison pour laquelle j'ai souvent des questions bêtes et je m'en excuse
Bises a tous
: Malgré tous mes essais effectués une bonne partie de la nuit, je ne suis arrivée à rien sur Excel
Lorsque je tape le texte immédiatement le libellé MDP passe en majuscule
quelqu'un pourrait il me dire si cela a bien une influence sur l'exécution, et dans l'affirmative m'expliquer comment faire ..
pour info, j'ai vu sur le forum deux cas similaire le premier, le fichier a été placé en format doc ? ce qui m'aide pas trop, le deuxieme lorsque je tape le mdp indiqué il ne le prends pas en compte
A moins que tout cela vienne de moi
en vous remerciant
charlotte
Bonjour
Le fichier sur lequel j'ai testé.
mdp est (chez moi) en minuscules et le reste après utilisation.
cordialement
amadeus
merci une nouvelle fois pour ta réponse . je pense que je ne fais définitivement pas ce qu'il faut
donc je vais essayer de détailler
j'ai fais un copier coller des deux boutons que j'ai renommé en 45-45 dans les propriétés vba
puis j'ai cliquez sur "visualiser le code et j'ai rentré le nouveau"
mais c'est peut être pas la bonne méthode .................