Wie der Titel schon sagt möcht ich gern alle Symbolleisten ausblenden und dann meine eigene einblenden. Den Code hab ich auch soweit fertig.
========
Arbeitsmappe
========
Private Sub Workbook_Open()
Leisten_ausblenden
End Sub
========
Modul
========
Private Sub Leisten(bolStatus As Boolean)
Dim myCommandBar As CommandBar
With Application
.ScreenUpdating = False
.DisplayStatusBar = bolStatus
.DisplayFormulaBar = bolStatus
End With
On Error Resume Next
For Each myCommandBar In Application.CommandBars
myCommandBar.Enabled = bolStatus
Next
CommandBars("MyCmdBar").Enabled = Not bolStatus 'deine Leiste!!!!!!!!!!
On Error GoTo 0
Application.ScreenUpdating = True
End Sub
--
Public Sub einblenden()
Call Leisten(True)
End Sub
--
Public Sub ausblenden()
Call Leisten(False)
End Sub
+++
So das ganze funktioniert auch. ABER nur auf meinem PC, sobald ich das ganze von anderen Rechnern aus starte, geht nix mehr. Er blendet alle aus, auch meine eigene und blendet dann gar keine mehr ein. Hat jemand eine Idee wie man dieses Problem lösen könnte? Wäre Nett, vielen Dank
mfg
chriss