Abfragefenster
29.06.2007 13:47:00
Stevi
ich habe folgende Codes zum An- und Ausschalten des Blattschutzes:
Funktioniert auch so wie es sein soll, allerdings ist es möglich während man den Blattschutz aufhebt, das ein Pop-Up-Fenster kommt in dem ein Text steht ob man sich wirklich sicher ist den Blattschutz aufzuheben und Ja/Nein als Buttonauswahl hat?
Sub Blattschutz_ein()
Dim TB As Variant
Application.ScreenUpdating = False
For Each TB In ActiveWorkbook.Sheets
TB.Protect Password:="pw"
Next
MsgBox "Tabelle ist nun geschützt !", 48 + 0, "Hinweis:"
End Sub
Sub Blattschutz_aus()
Dim TB As Variant
Application.ScreenUpdating = False
For Each TB In ActiveWorkbook.Sheets
TB.Unprotect Password:="pw"
Next
MsgBox "Der Schutz ist nun aufgehoben !", 64 + 0, "Hinweis:"
End Sub
Gruß
Stevi