Menüleiste verschwindet

Forumthread: Menüleiste verschwindet

04.10.2004 10:31:56

Anja

Hallo aller seits,
habe eine sehr wichtige Frage...
Wenn diese Funktion im EXCEL 10 ausgeführt wird:
hier beim öffnen:
Private Sub Workbook_Open()
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
End With
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Enabled = False
Next
Sub End
hier beim Schliessen:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.DisplayFormulaBar = True
.DisplayStatusBar = True
End With
For Each cb In Application.CommandBars
cb.Enabled = True
Next
Sub End
wird das Menü beim Schliessen der Datei mit dieser Funktion und beim Öffnen der neuen Datei wieder angezeigt,
beim Excel 2000 wird ABER das Menü beim schliessen der Datei mit dieser Funktion und beim Öffnen der neuen Datei nicht mehr angezeigt...
Wie kann ich es ändern, damit das Menü in beiden Versionen bzw. acuh in Versicon Excel 2000 beim Schliessen der Datei nicht verschwindet?
Bitte bitte helft mir :)
Das ist sehr wichtig für mich...
Vielen Dank und
viele Grüße
Anja

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Menüleiste verschwindet

tobias

AW: Menüleiste verschwindet

tobias

Hallo
so müsste es gehen:
Option Explicit

Private visibleCommandBars As New Collection


Private Sub Workbook_Open()
Dim cb As CommandBar, c As CommandBarControl
On Error Resume Next
Application.CommandBars("Benutzerdefiniert 1").Visible = False
Set cb = Application.CommandBars.Add(Name:="NeuMenu", MenuBar:=True, Position:=msoBarTop)
For Each c In Application.CommandBars("Benutzerdefiniert 1").Controls
c.Copy cb
Next
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Benutzerdefiniert 1").Delete
Application.CommandBars("Benutzerdefiniert 1").Visible = False
Application.CommandBars("NeuMenu").Delete
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
End Sub


Private Sub Workbook_Activate()
Dim cb As CommandBar
On Error Resume Next
Application.CommandBars("NeuMenu").Visible = True
For Each cb In Application.CommandBars
If cb.Type = msoBarTypeNormal And cb.Visible = True Then
visibleCommandBars.Add cb, cb.Name
cb.Visible = False
End If
Next
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
End Sub


Private Sub Workbook_Deactivate()
Dim cb As Object
On Error Resume Next
Application.CommandBars("NeuMenu").Visible = False
For Each cb In visibleCommandBars
cb.Visible = True
Next
Set visibleCommandBars = Nothing
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
End Sub

mfg tobias

Beliebteste Forumthreads (12 Monate)

Forumthread: Menüleiste verschwindet

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread