Problem beim autom. Schließen von Blättern
01.11.2015 11:59:49
Blättern
ich möchte beim Speichern einer Excel-Mappe alle Blätter (Worksheets) verstecken und mit einem Passwort schützen - nur das erste Blatt soll sichtbar bleiben.
Ich habe es mit folgendem Code probiert, da passiert jedoch gar nichts.
Kann mir jemand sagen, was ich hier falsche mache ?
Mein Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
ws.Protect Password:=strPw, UserInterfaceOnly:=True
If ws.Index 1 Then
ws.Visible = xlVeryHidden
Else
ws.Visible = True
End If
Next ws
Application.ScreenUpdating = True
End If
End Sub
Mike
Anzeige