Arbeitsblätter ausblenden
09.01.2008 11:42:00
Ralf_P
eigentlich wollte ich mit folgendem Code beim schließen der Mappe alle Arbeitsblätter (bis auf eins) Ausblenden, damit beim starten ohne Makros keine Möglichkeit besteht, in der Datei zu arbeiten.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Worksheets
If Blatt.Name "Makromeldung" Then
Blatt.Visible = xlSheetVeryHidden
End If
Next Blatt
ActiveWorkbook.Close SaveChanges:=True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Das hat aber zur Folge, dass evtl. Änderungen atomatisch gespeichert werden.
Speichert man nicht automatisch, sind auch die zuvor ausgeblendeten Sheets beim nächsten Start wieder sichtbar.
Gibt es da noch eine elegantere Lösung?
Gruß Ralf