XL 2016 Masquer Ruban

[KTM]

Bonjour Famille Forum
Je voudrais masquer automatiquement le Ruban et la barre de Formule de mon classeur a l'ouverture.
Je Procède comme suit:

Private Sub Workbook_Activate()
Application.DisplayFormulaBar = False
If Application.CommandBars.Item("Ribbon").Height > 100 Then
Application.SendKeys "^{F1}"
End If
End Sub

Private Sub Workbook_Deactivate()
Application.DisplayFormulaBar = True
If Application.CommandBars.Item("Ribbon").Height > 100 Then
Application.SendKeys "^{F1}"
End If
End Sub

Le souci est que les autres Fichiers sont affectés. Comment y Remedier ? Merci

 

[Staple1600]

Bonjour le fil

Issu des discussions similaires
(et histoire de passer un p'tit coucou à Misange 😉 )

https://www.excel-downloads.com/threads/comment-masquer-le-ruban-co.103369/#post-1345522

NB: Avant d'être une solution, c'est d'abord la façon classique de masquer le ruban.
Normalement, cela devrait s'appliquer qu'au classeur actif.
(Je te laisse tester)

 

[KTM]

Bonjour le fil

Issu des discussions similaires
(et histoire de passer un p'tit coucou à Misange 😉 )

https://www.excel-downloads.com/threads/comment-masquer-le-ruban-co.103369/#post-1345522

NB: Avant d'être une solution, c'est d'abord la façon classique de masquer le ruban.
Normalement, cela devrait s'appliquer qu'au classeur actif.
(Je te laisse tester)

Merci Staple1600

Les codes déjà presents fonctionnent Mais le problème est comment faire qu'ils n'affectent pas les autres Fichiers surtout quant à masquer le ruban.

 

[Staple1600]

Re,

KTM
Tu n'es pas le seul membre du forum
Et quand je poste un lien dans une discussion, je me dis qu'il pourra profiter à tous les lecteurs du fil. 😉

Est-ce qu'au moins tu as testé le code de Misange (sur un classeur vierge) présent dans le lien que j'ai mis dans le message#2 ?

Parce que moi, oui...
(Et le code n'affecte que le classeur contenant le code VBA)

 

[KTM]

Re,

KTM
Tu n'es pas le seul membre du forum
Et quand je poste un lien dans une discussion, je me dis qu'il pourra profiter à tous les lecteurs du fil. 😉

Est-ce qu'au moins tu as testé le code de Misange (sur un classeur vierge) présent dans le lien que j'ai mis dans le message#2 ?

Parce que moi, oui...
(Et le code n'affecte que le classeur contenant le code VBA)

EN EFFET Staple1600
j'avais copié seulement une partie du code
ça marche

Private Sub Workbook_Open()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = Not Application.DisplayStatusBar
ActiveWindow.DisplayWorkbookTabs = False
End Sub


Private Sub Workbook_Activate()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = Not Application.DisplayStatusBar
ActiveWindow.DisplayWorkbookTabs = False
End Sub


Private Sub Workbook_Deactivate()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
ActiveWindow.DisplayWorkbookTabs = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
ActiveWindow.DisplayWorkbookTabs = True
End Sub

 

[Staple1600]

Re

KTM
Oui, cela marche
Sinon je ne t'aurai pas indiquer cette piste et ce code...🙄

 

[KTM]

Re

KTM
Oui, cela marche
Sinon je ne t'aurai pas indiquer cette piste et ce code...🙄

Encore Merci

 

[Staple1600]

Re

De rien.
Mais si j'étais toi, je maniérai ce code avec prudence
(histoire de ne pas te retrouver sans ruban)
Ou alors toujours prévoir dans ton perso.xlsb un code VBA qui permet de ré-afficher le ruban.

Et si ton classeur est destiné à des tiers, tu risques d'avoir des appels quand lors d'un bug, ils perdront leur ruban 😉

 

[job75]

Bonjour KTM, JM,

Le mode Plein Ecran est archi classique :

Private Sub Workbook_Activate()
Application.DisplayFullScreen = True
End Sub

Private Sub Workbook_Deactivate()
Application.DisplayFullScreen = False
End Sub

A+

 

[KTM]

Bonjour KTM, JM,

Le mode Plein Ecran est archi classique :

Private Sub Workbook_Activate()
Application.DisplayFullScreen = True
End Sub

Private Sub Workbook_Deactivate()
Application.DisplayFullScreen = False
End Sub

A+

OUI