Habe ein Problem.
Ich bräuchte eine Beschreibung, wie ich für eine bestimmte Excel Datei alle Symbolleisten ausblenden kann.
Andere Dateien sollen Standardmäßig bleiben.
Danke im Voraus.
Private Sub Workbook_Activate()
CommandBarsOnOff False
End Sub
Private Sub Workbook_Deactivate()
CommandBarsOnOff True
End Sub
in ein Modul:
Sub CommandBarsOnOff(blnEnabled As Boolean)
Dim cmb As CommandBar
For Each cmb In Application.CommandBars
cmb.Enabled = blnEnabled
Next
End Sub
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen