Problem beim autom. Schließen von Blättern

Bild

Betrifft: Problem beim autom. Schließen von Blättern
von: Mike
Geschrieben am: 01.11.2015 11:59:49

Hallo,
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
Vielen Dank im Voraus für jeden Tipp,
Mike

Bild

Betrifft: AW: Problem beim autom. Schließen von Blättern
von: MatthiasG
Geschrieben am: 01.11.2015 12:18:42
Hallo Mike,
bei mir funktioniert der Code (das "End If" am Schluss musste ich rausnehmen).
Da der Code offenbar nicht vollständig ist: hast du vierlleicht irgendwo ein Application.EnableEvents = False eingebaut?
Gruß Matthias

Bild

Betrifft: AW: Problem beim autom. Schließen von Blättern
von: Mike
Geschrieben am: 01.11.2015 12:26:18
Hallo Matthias,
vielen Dank - das war tatsächlich das Problem !:-)
Sorry - Anfänger-Fehler.
Gruß,
Mike

Bild

Betrifft: AW: Problem beim autom. Schließen von Blättern
von: MatthiasG
Geschrieben am: 01.11.2015 12:33:04
Kein Problem, auch Anfänger dürfen hier ihre Probleme schildern, ohne sich entschuldigen zu müssen.
Gruß Matthias

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Problem beim autom. Schließen von Blättern"