Alter Zustand bei Speichern abbrechen
06.05.2015 14:53:46
Dirk
ich habe mal wieder ein kleines VBA-Anliegen.
Beschreibung: Ich habe eine Arbeitsmappe mit diversen Tabellen. Je nachdem welcher Windows Benutzer die Datei öffnet, werden diverse Tabellen mit "xlSheetVeryHidden" ausgeblendet. Wenn die Arbeitsmappe dann gespeichert und geschlossen wird, werden alle Tabellen wieder eingeblendet. Alles soweit i.O.
Zum Problem: Wenn sich das Fenster "Speichern unter" öffnet, dann werden alle die beim öffnen ausgeblendeten Tabellen wieder eingeblendet. Bricht der Benutzer dann den Speichern unter Vorgang ab, wird nicht wieder der Öffnungszustand mit den teilweise ausgeblendeten Tabellen hergestellt sondern alle Tabellen sind wieder sichtbar.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
For Each Blatt In Sheets(Array("Tabelle 1", "Tabelle 2"))
Blatt.Visible = True
Next
Application.ScreenUpdating = True
End Sub
Danke im Voraus.
Gruß
Dirk