Bonjour,
Avec la version 2003 cela fonctionnait bien
-------------------------------------------------------------------
Sub MenuItem_Disable()
Dim myCmd As Object
Set myCmd = CommandBars("Worksheet menu bar").Controls("Edition")
myCmd.Controls("Supprimer la feuille").Enabled = False
End Sub
-------------------------------------------------------------------
J'arrive pas à trouver l'équivalent en 2007
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonjour. C'est le genre de choses qui semblent difficiles (pour moi, en tout cas). A tout hasard (et si tu lis l'anglais) regarde à l'adresse : http://msdn2.microsoft.com/en-us/library/aa338202.aspx Sinon, quelqu'un de très fort a mis de la doc sur ce forum (je ne me rappelle plus qui). Regarde du côté de www.excelabo.net. Daniel "Michel (pen ar bed)" a écrit dans le message de news:
Bonjour, Avec la version 2003 cela fonctionnait bien
------------------------------------------------------------------- Sub MenuItem_Disable() Dim myCmd As Object Set myCmd = CommandBars("Worksheet menu bar").Controls("Edition") myCmd.Controls("Supprimer la feuille").Enabled = False End Sub ------------------------------------------------------------------- J'arrive pas à trouver l'équivalent en 2007
Merci de l'aide
M.
Bonjour.
C'est le genre de choses qui semblent difficiles (pour moi, en tout cas). A
tout hasard (et si tu lis l'anglais) regarde à l'adresse :
http://msdn2.microsoft.com/en-us/library/aa338202.aspx
Sinon, quelqu'un de très fort a mis de la doc sur ce forum (je ne me
rappelle plus qui). Regarde du côté de www.excelabo.net.
Daniel
"Michel (pen ar bed)" <Michel@mail.net> a écrit dans le message de news:
mn.a2b27d841163aa97.62698@mail.net...
Bonjour,
Avec la version 2003 cela fonctionnait bien
-------------------------------------------------------------------
Sub MenuItem_Disable()
Dim myCmd As Object
Set myCmd = CommandBars("Worksheet menu bar").Controls("Edition")
myCmd.Controls("Supprimer la feuille").Enabled = False
End Sub
-------------------------------------------------------------------
J'arrive pas à trouver l'équivalent en 2007
Bonjour. C'est le genre de choses qui semblent difficiles (pour moi, en tout cas). A tout hasard (et si tu lis l'anglais) regarde à l'adresse : http://msdn2.microsoft.com/en-us/library/aa338202.aspx Sinon, quelqu'un de très fort a mis de la doc sur ce forum (je ne me rappelle plus qui). Regarde du côté de www.excelabo.net. Daniel "Michel (pen ar bed)" a écrit dans le message de news:
Bonjour, Avec la version 2003 cela fonctionnait bien
------------------------------------------------------------------- Sub MenuItem_Disable() Dim myCmd As Object Set myCmd = CommandBars("Worksheet menu bar").Controls("Edition") myCmd.Controls("Supprimer la feuille").Enabled = False End Sub ------------------------------------------------------------------- J'arrive pas à trouver l'équivalent en 2007
Sinon, quelqu'un de très fort a mis de la doc sur ce forum (je ne me rappelle plus qui). Regarde du côté de www.excelabo.net.
Je cherche Merci
Bonjour.
Le "quelqu'un de très fort" s'est manfesté. ;-)))
Daniel
"Daniel.j" <dj@free.fr> a écrit dans le message de news:
ubr%23VrtoIHA.4616@TK2MSFTNGP05.phx.gbl...
Regarde ici .... quelques trucs
http://dj.joss.free.fr/xl2007.htm
et les astuces
http://dj.joss.free.fr/ruban.htm#astuce
--
Daniel
FAQ MPFE
http://dj.joss.free.fr/faq.htm
VBAXL
http://dj.joss.free.fr/
"Michel (pen ar bed)" <Michel@mail.net> a écrit dans le message de news:
mn.a3017d84cdc019c1.62698@mail.net...
ça donne ceci pour mettre en "Grisé" le menu "Effacer une feuille" ----------------------------------------------------------------------- <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <commands> <command idMso="SheetDelete" enabled="false" /> </commands> <ribbon startFromScratch="false"> </ribbon> </customUI> --------------------------------------------------------------------
J'ai pas encore tous compris, mais au moins j'ai l'équivalent de ma macro en VB :-)
M.
Michel (pen ar bed) a présenté l'énoncé suivant :
Daniel.C avait soumis l'idée :
Le "quelqu'un de très fort" s'est manfesté. ;-)))
Oui, et j'avance ;-)
Bon j'ai trouvé grâce aux liens donnés par Daniel.j
J'ai téléchargé ici l'outil " Éditeur de Ruban" ici
http://dj.joss.free.fr/download/CustomUIEditorSetup.zip
ça donne ceci pour mettre en "Grisé" le menu "Effacer une feuille"
-----------------------------------------------------------------------
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<commands>
<command idMso="SheetDelete" enabled="false" />
</commands> <ribbon startFromScratch="false">
</ribbon> </customUI>
--------------------------------------------------------------------
J'ai pas encore tous compris, mais au moins j'ai l'équivalent de ma
macro en VB :-)
ça donne ceci pour mettre en "Grisé" le menu "Effacer une feuille" ----------------------------------------------------------------------- <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <commands> <command idMso="SheetDelete" enabled="false" /> </commands> <ribbon startFromScratch="false"> </ribbon> </customUI> --------------------------------------------------------------------
J'ai pas encore tous compris, mais au moins j'ai l'équivalent de ma macro en VB :-)