Workbook_BeforeClos springt nicht an
22.10.2019 11:07:42
EasyD
ich möchte im beforeclose ein paar Spalte ausblden, leider läuft der Code unten nicht durch und ich erkenne die Ursache nicht.
In den auszublendenden Spalten habe ich eine Art Menü geschrieben dass ich mittels Aufruf Menue_on einblende und mit Menue_off wieder ausblenden kann, läuft auch.
Allerdings führt er mit Menue_off im besagten BeforeClose Event halt nicht aus...
Wer kann helfen:
In der Arbeitsmappe:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Menü wieder aus machen falls eingeblendet
If Sheets("Datenerfassung").Range("A:I").EntireColumn.Hidden = False Then
Application.ScreenUpdating = False
Call Menue_off
Application.ScreenUpdating = True
End If
End Sub
und hier das Ausblende-Makro (in einem Modul):
Sub Menue_off()
'Das Menü links am Rand ausblenden, gleichzeitig den Bereich zur Datenerfassung wieder frei geben
Call Protect_off
Application.ScreenUpdating = False
'Pfeile über den Menüpunkten wieder weg
ActiveSheet.Shapes.Range(Array("Picture 36")).Visible = msoFalse
'Die Form über der Datenerfassung wieder entfernen
ActiveSheet.Shapes.Range(Array("Rectangle 4")).Select
With Selection.ShapeRange.Fill
.Visible = msoFalse
End With
'Die Menüspalten wieder ausblenden
ActiveSheet.Range("A:I").EntireColumn.Hidden = True
'Hilespalten ausblenden
ActiveSheet.Range("J:Q").EntireColumn.Hidden = True
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 5
Application.ScreenUpdating = True
Call Sprung_Grund
Call Protect_on
End Sub
Anzeige