Fehler beim Schließen per Makro
27.06.2006 16:57:15
Stefan
ich habe ein großes Problem. Ich habe eine Arbeitsmappe, in der beim Start sämtliche Symbol- und Menüleisten ausgeblendet werden.
Wenn ich die Datei schließe, soll eigentlich alles wieder hergestellt werden, aber es fehlen die Bearbeitsungs- und die Statusleiste!
DIESES ARBEITSBLATT:
Option Explicit
Dim Cn%
Dim CdbList()
Dim Status_FormulaBar As Boolean
Dim Status_HorScroll As Boolean
Dim Status_VerScroll As Boolean
Dim Status_StatusBar As Boolean
Dim Status_Gridlines As Boolean
Dim Status_Headings As Boolean
Dim Status_WorkTabs As Boolean
Private Sub Workbook_Open()
Worksheets("Start").Activate
Range("d3").Select
Dim Cdb As CommandBar
'Wenn Titelleiste von Excel geändern werden soll
Application.Caption = "XXX"
Cn = 1
For Each Cdb In Application.CommandBars
If Cdb.Visible And Cdb.Type <> msoBarTypeMenuBar Then
ReDim Preserve CdbList(Cn)
CdbList(Cn) = Cdb.Name
Cn = Cn + 1
Cdb.Visible = False
End If
Next
'Stellt den Status fest und blendet alles aus
With ActiveWindow
Status_HorScroll = .DisplayHorizontalScrollBar
If .DisplayHorizontalScrollBar = True Then .DisplayHorizontalScrollBar = False
Status_VerScroll = .DisplayVerticalScrollBar
If .DisplayVerticalScrollBar = True Then .DisplayVerticalScrollBar = False
Status_Gridlines = .DisplayGridlines
If .DisplayGridlines = True Then .DisplayGridlines = False
Status_Headings = .DisplayHeadings
If .DisplayHeadings = True Then .DisplayHeadings = False
Status_WorkTabs = .DisplayWorkbookTabs
If .DisplayWorkbookTabs = True Then .DisplayWorkbookTabs = False
End With
With Application
Status_StatusBar = .DisplayStatusBar
If .DisplayStatusBar = True Then .DisplayStatusBar = False
Status_FormulaBar = .DisplayFormulaBar
If .DisplayFormulaBar = True Then .DisplayFormulaBar = False
'Menüleiste
.CommandBars(1).Enabled = False
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Cdb As CommandBar
Dim Ci%
For Ci = 1 To Cn - 1
Application.CommandBars(CdbList(Ci)).Visible = True
Next Ci
With ActiveWindow
.DisplayHeadings = Status_Headings
.DisplayHorizontalScrollBar = Status_HorScroll
.DisplayVerticalScrollBar = Status_VerScroll
.DisplayGridlines = Status_Gridlines
.DisplayWorkbookTabs = Status_WorkTabs
End With
With Application
.DisplayStatusBar = Status_StatusBar
.DisplayFormulaBar = Status_FormulaBar
.CommandBars(1).Enabled = True
End With
End Sub
Ich schließe die Datei mit einem Makro, der hinter einer Schaltfläche liegt:
Sub schliessen()
Dim bytMsg As Byte
bytMsg = MsgBox("Sollen die Änderungen gespeichert werden?", vbYesNo)
ActiveWorkbook.Close bytMsg = vbYes
End Sub
Wo liegt der Fehler? Ich komme mit meinen FAST-NULL-VBA-Kenntnissen nicht weiter!
Danke schon im Voraus!
Stefan