Office: Beim schließen alle Tabellenblätter ausblenden

Nächstes Problem.
Habe ein Makro gefunden, welches folgendes machen soll. Beim schließen der Datei sollen alle Tabellenblätter, bis auf das Tabellenblatt "Start" geschlossen werden. Hintergrund ist folgender. Acht Personen haben Zugriff auf diese Datei aber nicht jeder brauch bzw. darf alle Tabellenblätter mit deren Inhalt sehen (Datenschutz). Jeder hat sein eigenen Button mit Paßwort und dann öffnen sich nur "seine" Tabellenblätter.
Hier das gefundene Makro welches ich in "DieseArbeitsmappe" gelegt habe. Im VBA mit F5 klappt es aber nicht beim schließen. Beim erneuten öffnen, sind alle zuletzt geöffneten Blätter offen. Kann mir da bitte jemand weiter helfen?

Private Sub Workbook_Close()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "Start"
Case Else
ws.Visible = xlSheetVeryHidden
End Select
Next ws
Application.ScreenUpdating = True
End Sub

 

Moin!
Ich kenne kein Workbook_Close(), aber Du hast es ja gerade erfunden …

Hmmmmh!
Du bist Dir sicher, dass Excel das Programm der Wahl ist?
Ich jedenfalls nicht!

Gruß Ralf

 

Da ich von VBA nicht viel Ahnung habe, hatte ich gesucht und im Herbers Excel Forum das gefunden. Nicht ich hatte es erfunden, sondern jemand anders.

 

Ralf, danke für den Hinweis. Habe das Close mal in Open gewandelt. Nun funktioniert es.

 

Mit _open dürfte das die bessere Wahl sein, denn wenn dann müsstest du die Mappe auch noch speichern, sonst hast du die Blätter beim Öffnen ja wieder da.
Der Befehl heißt übrigens ein klein wenig anders:

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

 

Hi,

nachmals der wichtige Hinweis: Wenn einzelne Personen aus Datenschutzgründen bestimmte Blätter nicht sehen dürfen, ist Excel definitiv das falsche Programm. Man kann mit Excel keine Daten effektiv vor einem Zugriff schützen.