Hello, je n'arrive toujours pas =E0 faire marcher le code=20
pour cacher le bouton "Options..."
Tu pourrais s'il te plait m'envoyer un document Excel ou=20
tu caches le bouton =AB Options... =BB comme =E7a je n'aurais=20
qu'=E0 copier le(s) code(s) dans le Workbook.
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
anonymousA
tu écris dans le module Thisworkbook pour l'évenement Workbook_Open
Dim toto As CommandBarPopup Set toto = Application.CommandBars(1).Controls("&Outils") With toto.Controls("&Options...") .Enabled = False End With
et toujours dans le module Thisworkbook mais pour l'évenement Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim toto As CommandBarPopup Set toto = Application.CommandBars(1).Controls("&Outils") With toto.Controls("&Options...") .Enabled = true End With
La 1ere procédure invalide le bouton "Options". La seconde le rétablit. Si tu veux le rendre invisible, remplace .enabled par .visible
Hello, je n'arrive toujours pas à faire marcher le code pour cacher le bouton "Options..."
Tu pourrais s'il te plait m'envoyer un document Excel ou tu caches le bouton « Options... » comme ça je n'aurais qu'à copier le(s) code(s) dans le Workbook.
Merci d'avance!
Mon adresse est:
tu écris dans le module Thisworkbook pour l'évenement Workbook_Open
Dim toto As CommandBarPopup
Set toto = Application.CommandBars(1).Controls("&Outils")
With toto.Controls("&Options...")
.Enabled = False
End With
et toujours dans le module Thisworkbook mais pour l'évenement
Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim toto As CommandBarPopup
Set toto = Application.CommandBars(1).Controls("&Outils")
With toto.Controls("&Options...")
.Enabled = true
End With
La 1ere procédure invalide le bouton "Options". La seconde le rétablit.
Si tu veux le rendre invisible, remplace .enabled par .visible
Hello, je n'arrive toujours pas à faire marcher le code
pour cacher le bouton "Options..."
Tu pourrais s'il te plait m'envoyer un document Excel ou
tu caches le bouton « Options... » comme ça je n'aurais
qu'à copier le(s) code(s) dans le Workbook.
tu écris dans le module Thisworkbook pour l'évenement Workbook_Open
Dim toto As CommandBarPopup Set toto = Application.CommandBars(1).Controls("&Outils") With toto.Controls("&Options...") .Enabled = False End With
et toujours dans le module Thisworkbook mais pour l'évenement Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim toto As CommandBarPopup Set toto = Application.CommandBars(1).Controls("&Outils") With toto.Controls("&Options...") .Enabled = true End With
La 1ere procédure invalide le bouton "Options". La seconde le rétablit. Si tu veux le rendre invisible, remplace .enabled par .visible
Hello, je n'arrive toujours pas à faire marcher le code pour cacher le bouton "Options..."
Tu pourrais s'il te plait m'envoyer un document Excel ou tu caches le bouton « Options... » comme ça je n'aurais qu'à copier le(s) code(s) dans le Workbook.
Merci d'avance!
Mon adresse est:
AV
Un fil pas vieux du 15/10/2004 15:32 Cacher "Options"
AV
Un fil pas vieux du 15/10/2004 15:32
Cacher "Options"
