OVH Cloud OVH Cloud

Barre de formule

4 réponses
Avatar
titi
Bonjour,

Est il possible de masquer la barre de formule seulement pour 1 fichier, et
laz laisser visible pour tous le autres ? De façon automatique, bien
entendu.

J'ai bien pensé à masquer dès l'ouverture dudit fichier via macro, mais je
ne sais pas la réafficher au moment de la fermeture...

4 réponses

Avatar
anonymousA
bonjour,

à mettre dans le module thisworkbook

Private Sub Workbook_Activate()

Application.DisplayFormulaBar = False

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFormulaBar = True

End Sub

Private Sub Workbook_Deactivate()
Application.DisplayFormulaBar = True

End Sub

Private Sub Workbook_Open()
Application.DisplayFormulaBar = False

End Sub

Attention: ca n'empechera pas l'utilisateur s'il le souhaite d'aller
dans Outils/Options/Affichage et de cocher Barre de formules pour faire
répparaitre celle-ci

A+

Bonjour,

Est il possible de masquer la barre de formule seulement pour 1 fichier, et
laz laisser visible pour tous le autres ? De façon automatique, bien
entendu.

J'ai bien pensé à masquer dès l'ouverture dudit fichier via macro, mais je
ne sais pas la réafficher au moment de la fermeture...




Avatar
titi
Ca marche impec, merci
Avatar
titi
Petite question...

A quoi servent les 2 procédures :

Private Sub Workbook_Activate()

Application.DisplayFormulaBar = False

End Sub


ET

Private Sub Workbook_Deactivate()
Application.DisplayFormulaBar = True

End Sub


Mon problème, je n'arrive plus à coller quoi que ce soit dans mon fichier
principal, si le copier vient d'un fichier exétieur quelconque. Les options
"coller" et "collage special" sont grisées.

Merci

Avatar
anonymousA
quand tu sors du classeur pour aller sur un autre classeur , tu n'as
peut-être pas envie que le classeur sur lequel tu vas subisse les mêmes
restrictions que celui duquel tu sors et vice et versa. C'est à celà que
servent ces deux procédures , à savoir restreindre les possibilités ou
accroitre celles-ci au seul classeur entre guillemets propriétaire de
celles-ci

A+


Petite question...

A quoi servent les 2 procédures :


Private Sub Workbook_Activate()

Application.DisplayFormulaBar = False

End Sub



ET


Private Sub Workbook_Deactivate()
Application.DisplayFormulaBar = True

End Sub



Mon problème, je n'arrive plus à coller quoi que ce soit dans mon fichier
principal, si le copier vient d'un fichier exétieur quelconque. Les options
"coller" et "collage special" sont grisées.

Merci