ich habe heute mal ein bisschen mit einer Abfrage zur Makro Aktivierung herum gearbeitet.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Sheets("Bedarfsanzeige").Visible = xlVeryHidden
Sheets("Makro").Visible = xlSheetVisible
ThisWorkbook.Close savechanges:=True
Application.ScreenUpdating = True
End Sub
Soweit klappt auch alles und funktioniert einwandfrei. Nur besitze ich in meinem Falle drei Tabellen.
Sobald ich aber alle drei Tabellen in den Code hinzufüge, bekomme ich einen Laufzeitfehler 1004. Immer an der dritten Ausblendung.
Tausche ich die Reihenfolge, wie sie nacheinander ausgeblendet werden, bekomme ich wieder nur an der dritten Ausblendung den Fehler.
Also kann nichts an meinen Tabellen falsch sein, da sich jede ausblenden lässt, nur nicht die an dritter Stelle.
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Makro").Visible = xlVeryHidden
Sheets("Bedarfsanzeige").Visible = xlSheetVisible
Sheets("Kostenstellen").Visible = xlSheetVisible
Sheets("Lieferante").Visible = xlSheetVisible
Application.ScreenUpdating = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Sheets("Bedarfsanzeige").Visible = xlVeryHidden
Sheets("Kostenstellen").Visible = xlVeryHidden
Sheets("Lieferante").Visible = xlVeryHidden
Sheets("Makro").Visible = xlSheetVisible
ThisWorkbook.Close savechanges:=True
Application.ScreenUpdating = True
End Sub
Weiß da jemand vielleicht näheres, woran das liegen kann ?