Bonjour.
J'ai créer 2 dessins avec une macro.
Je cherche une solution pour lorsque que je clique sur un dessin précis, cela affiche un message.
Amitiés
Jemiyo
Excel 2007
Sub DeprotectionToutesLesFeuilles()
Dim Feuil As Worksheet
For Each Feuil In Worksheets
Feuil.Unprotect Password:="1234"
Next Feuil
MsgBox "Travail effectué", 64, "Déprotection"
End Sub
Si tes 2 dessins sont 2 formes automatiques que tu as insérées, alors pour chaque,
fais un clic droit dessus et choisis l'option « Affecter une macro » ; cette macro
aura cette ligne : MsgBox "Message".
Ah non, on ne peut pas affecter 2 macros différentes au même dessin.
Tout doit être fait par la même macro, donc ajouter le MsgBox en fin
de macro, juste avant le « End Sub ».
Sub DeprotectionToutesLesFeuilles()
Dim Feuil As Worksheet
For Each Feuil In Worksheets
Feuil.Unprotect Password:="1234"
Next Feuil
MsgBox "Travail effectué", 64, "Déprotection"
End Sub
C'est aussi la valeur de cette constante VBA : vbInformation
Pour que le message soit visible dans la cellule D5 de la feuille (par exemple) :
VB:
Sub DeprotectionToutesLesFeuilles()
Dim Feuil As Worksheet
For Each Feuil In Worksheets
Feuil.Unprotect Password:="1234"
Next Feuil
[D5] = "Travail effectué"
End Sub
Bonsoir. J'ai opté pour la solution MsgBox.
je cherchais une solution pour que le non protéger reste visible jusqu'au moment ou on rectifie avec le protégé. Mais il reste visible après la protection
Amitiés .