XL 2016 Masquer Ruban

KTM

XLDnaute Impliqué
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
 

Pièces jointes

  • MasquerRuban.xlsm
    14.9 KB · Affichages: 32

KTM

XLDnaute Impliqué
Bonjour le fil

Issu des discussions similaires
(et histoire de passer un p'tit coucou à Misange ;) )
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

XLDnaute Barbatruc
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

XLDnaute Impliqué
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

XLDnaute Barbatruc
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 ;)
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 900
Membres
101 834
dernier inscrit
Jeremy06510