commande bars activation CommandBars par bouton via usf ?

[avoriaz]

re le forum:

cette fois ca concerne l'activation est desactivation des commandes barres:
j'ai regardé le forum et j'arrive a effacer et remettre la commande barre exel dans mon prog ...*
mais je voudrais le faire sous condition adminitrateur via mon usf verrouiller!!

voici ce que j'ai fais :
a l'ouverture de classeur je la retire :

Private Sub Workbook_Open()
'cache les barres exel
Application.CommandBars("Worksheet Menu Bar").Enabled = False
end sub


dans l'userform administrateur ( il ya un pass pour entrer) j'ai mi un bouton qui permet de reactiver la barre en cours d'execution de mon projet

Private Sub OptionButton2_Click()
If OptionButton2 = True Then Application.CommandBars("Worksheet Menu Bar").Visible = True
End Sub ' ceci pour permettre a l'admin de retrouver un exel pour faire des modif


a la fermeture du classeur je remets la barre:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
' remettre les barres exels avant de quitter
Application.CommandBars("Worksheet Menu Bar").Enabled = True

en ecrivant ceci la barre se retire bien a l'ouverture, apparait de nouveau a la fermeture Mais pendant l'execution du projet en acces admin j'arrive pas a la remettre le bp option 2 marche pas

merci pour votre aide

avo

 

[Hervé]

bonjour

Sans avoir fait de test, et juste une idée :

Private Sub OptionButton2_Click()
If OptionButton2 = True Then Application.CommandBars("Worksheet Menu Bar").enabled = True
End Sub ' ceci pour permettre a l'admin de retrouver un exel pour faire des modif

Tu essayes de rendre visible une barre d'outil non activée.

Salut
Hervé

 

[avoriaz]

RE

slt herve

et bien je te remercie encore une fois pour ton aide

ca marche, ce que tu proposes j'arrive donc a activer la barre, je vais regarder de plus pres pour la desactiver aussi
je crois qu'avec un option button ca marche pas dans l'autre sens

j'essaye avec une case a coché pour voir

pour l'activer ca marche avec ce code

Private Sub OptionButton2_Click()
If OptionButton2 = True Then Application.CommandBars("Worksheet Menu
Bar").enabled = True ' Je l'active

If OptionButton2 = False Then Application.CommandBars("Worksheet Menu Bar").Enabled = False ' je la desactive cette option marche pas


End Sub

 

[Hervé]

re

Il faut que tu utilises 2 optionbuttons, regarde l'exemple en pièce jointe.

Salut
Hervé