ich möchte gern die ausgeblendeten Sheets einblenden und den Schutz aufheben.
ABER das Blatt/Sheet "Autokorrekt" darf NICHT eingeblendet werden !
Passwort "ww"
mfg
wolfgang
Public Sub aaa()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws
If .Visible = False Then
.Visible = .Name "Autokorrekt"
If .Name "Autokorrekt" Then
.Unprotect "ww"
End If
End If
End With
Next ws
End Sub
Gruß Werner