Blätter dauerhaft ausblenden...
08.12.2005 16:08:25
MichiM
ich habe eine Mappe, welche mit Passwortabfrage und nur mit aktivierten Makros geöffnet werden kann/sollte.
Funktioniert soweit auch. Allerdings habe ich 2 Blätter, welche der Nutzer nicht sehen oder einblenden kann.
Wenn ich die entsprechenden Blätter nun manuell im VB-Editor auf Visible: 2-xlSheetVeryHidden funktioniert es, bis die Mappe geschlossen und wieder geöffnet wird - dann werden die Blätter wieder eingeblendet.
Im Code, den ich das öffnen gefunden habe, findet sich folgender Part:
Sub Auto_close()
Application.ScreenUpdating = False
Worksheets("Start").Visible = True
For Each wks In ActiveWorkbook.Sheets
If wks.Name <> "Start" Then
wks.Visible = xlVeryHidden
End If
Next
Application.Visible = True
ActiveWorkbook.Save
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub
Was müsste hier geändert werden, damit die Einstellungen für das Blatt "DATEN" und "Setup" nicht zurückgesetzt werden (also dauerhaft ausgeblendet bleiben)?
Gruss
MichiM
Anzeige