habe hier zwei Makros eins wird beim Öffnen ausgeführt, das andere beim schliessen.
Mit dieser Methode möchte ich erzwingen das der User nur das Workbook bearbeiten kann wenn er seine Makros aktiviert.
Beim schließen soll also folgendes passieren:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Worksheets("Main_Menu").Visible = xlVeryHidden
Worksheets("Invoing_list_DE").Visible = xlVeryHidden
Worksheets("Data_Tab").Visible = xlVeryHidden
Worksheets("DE").Visible = xlVeryHidden
Worksheets("ES").Visible = xlVeryHidden
Worksheets("FR").Visible = xlVeryHidden
Worksheets("IT").Visible = xlVeryHidden
Worksheets("NL").Visible = xlVeryHidden
Worksheets("UK").Visible = xlVeryHidden
Worksheets("SE").Visible = xlVeryHidden
Worksheets("macro").Visible = True
Application.ScreenUpdating = True
'alle Werte löschen
ActiveWindow.DisplayVerticalScrollBar = True 'eingefügt
Application.CommandBars("Standard").Visible = True 'geändert
Application.CommandBars("Formatting").Visible = True 'geändert
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHeadings = True
Application.CommandBars("Full screen").Visible = True
Application.CommandBars("Worksheet Menu Bar").Enabled = True 'eingefügt
Sheets("macro").Activate
End Sub
Als letzt sheet bleibt also macro aktiviert. Wenn jemand nicht Makros erlaubt wird er beim starten nur dieses sheet sehen mit einer Anleitung zur Aktivierung! Beim Neustart wird dann das Workbook open Makro ausgeführt das alles einblendet...Beim schliessen bekomme ich folgende Fehlermeldung und das letzte Tabellenblatt in diesem Fall "SE" wird nicht geschlossen und das Makro auch nicht ausgeführt...
Laufzeitfehler '1004'
Die Visible-Eigenschaft des Worksheet-Objektes kann nicht festgelegt werden.
DEBUGGEN:
Worksheets("SE").Visible = xlVeryHidden
An was könnte das liegen?
Gruß
Maris