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