OPTIONS

[MARY]

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]

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 :

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]

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]

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