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