Geschützt oder ungeschützt
30.12.2003 18:01:07
mario
ich habe folgede makros geschrieben,wobei das Problem im
ersten Makro liegt.Ist das Blatt geschützt oder nicht ??
Wie heisst die richtige ifAnweisung ???
Vielen Dank schon zum voraus und ein guter Rutsch ins neue Jahr
Gruss Mario
Sub prüfen()
If ActiveSheet Is Unprotect Then
MsgBox "Tabelle ist bereits ungeschützt !!!"
Exit Sub
Else
Blattschutzi
End If
End Sub
Sub Blattschutzi()
Dim p As String
Dim i As Worksheet
p = InputBox("Geben Sie das richtige Passwort ein", "Passwort !!!", "Passworteingabe")
If p = "" Then
MsgBox "Keine Eingabe"
Exit Sub
End If
If p <> "xxx" Then
MsgBox "Das Passwort ist falsch," & Chr(10) & _
"Sie haben keine Berechtigung den " & Chr(10) & _
"Blattschutz aufzuheben !!!!", vbCritical, "Meldung"
End If
If p = "xxx" Then
Blattschutz_aufheben_mit_Passwort
Else
Exit Sub
End If
End Sub
Sub Blattschutz_aufheben_mit_Passwort()
Dim WS As Worksheet
For Each WS In Worksheets
WS.Unprotect Password:="xxx"
Next WS
End Sub