OPTIONS

MARY · 5 Décembre 2005

Bonjour

je cherche à savoir si je peux empecher sur mon classeur l acces a la fonction 'OPTIONS' de la barre d outils par un code vba !
par avance merci
mary

Eric C · 6 Décembre 2005

Bonjour le forum
Bonjour MARY

Voici un code qui ne va que griser la propriété Options de ta barre Outils (Ainsi, je ne vais pas me faire appeler Arthur par mes zamis du forum....Lol). User mais ne pas en abuser. Il serait bien lorsque l'utilisateur quitte ton fichier de remettre la propriété Options ... à True - Donc le code complet joint :

Code:

Private Sub Workbook_Open()   'Grise Options à l'ouverture de ton fichier
nomBarre = 'Worksheet menu bar'
Set NewMenu = Application.CommandBars(nomBarre).Controls('&Outils')
NewMenu.Controls('&Options...').Enabled = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Retabli
nomBarre = 'Worksheet menu bar'
Set NewMenu = Application.CommandBars(nomBarre).Controls('&Outils')
NewMenu.Controls('&Options...').Enabled = True
End Sub

Bonne fin de journée à toutes & à tous

Celeda · 6 Décembre 2005

Bonsoir,

et tes zami E s du forum tu les as oubliées ...

A R T H U R !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

parce que,ELLES, elles ont de la mémoire!!!!!!!!!!

Celeda :kiss:

Eric C · 7 Décembre 2005

Bonjour le forum
Bonjour à TouTes & à TouTes (bisous Marie & sorry....arf.)
Bonjour également aux gars

Meuuuuuh nooooon ,je vous associe également les filles. Je vous aiMeuuuuh tellement. Bises à vous toutes.

Bonne journée à toutes & à tous

OPTIONS

MARY

Guest

Eric C

XLDnaute Barbatruc

Celeda

XLDnaute Barbatruc

Eric C

XLDnaute Barbatruc

Discussions similaires