désactiver des icones

[Tail]

bonjour
j'aimerai rendre inopérant les boutons du menu "enregistrer", "imprimer" ainsi que les icones
et si possible afficher un message pour indiquer aux utilisateurs de cliquer sur le bouton de commande.
merci de votre aide

 

[bqtr]

Re : désactiver des icones

Bonjour Tail,

Voici deux macro qui désactivent les menus et icones que tu demandes.

A mettre dans un module de code standard :

Sub DesactiveMenu()

CommandBars(1).FindControl(ID:=30002).Controls("Enregistrer").Enabled = False
CommandBars(1).FindControl(ID:=30002).Controls("Imprimer...").Enabled = False
CommandBars(3).Controls("Enregistrer").Enabled = False
CommandBars(3).FindControl(ID:=2521).Enabled = False

End Sub


Sub ActiveMenu()

CommandBars(1).FindControl(ID:=30002).Controls("Enregistrer").Enabled = True
CommandBars(1).FindControl(ID:=30002).Controls("Imprimer...").Enabled = True
CommandBars(3).Controls("Enregistrer").Enabled = True
CommandBars(3).FindControl(ID:=2521).Enabled = True

End Sub

A mettre dans le module du ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveMenu
End Sub

Private Sub Workbook_Open()
DesactiveMenu
End Sub

Quand tu désactives des menus intégrés d'Excel, tu les désactives dans l'application elle même, pas uniquement dans ton fichier. Donc fait un fichier à part avec uniquement la macro ActiveMenu que tu conserveras au cas où il y aurait un problème lors de la fermeture de ton fichier par exemple ( impossible ensuite de le rouvrir ... ). Tu pourras ainsi réactiver tes menus.

Pour avertir les utilisateurs, tu peux indiquer la marche à suivre en donnant les précisions utiles sur la légende de ton bouton de commande par exemple.

Bonne après-midi

 

[Tail]

Re : désactiver des icones

ça marche!!!!!!!
merci
j'ai pu l'adapter à mon fichier
trop fort
merci