Passwort abfrage
24.01.2009 10:53:00
ottgunter
Bin mal wieder beim stöbern im Forum.
Habe dort ein tolles Makro gefunden.
Ich habe viele Blätter. Da macht sich dieses Makro super. Es geht darum, das mit einem click alle Blätter kein Schutz mehr haben,bzw alle wieder geschützt sind. Hier wird aber kein Passwort abgefragt.
Kann mann das so mit einbauen, das wenn ich den Schutz ausschalten möchte er nach ein Passwort fragt.
Genauso auch umgekehrt. Denn wenn der Bediener dies Batten findet kann er ja alles freimachen.
Hier dei gefundene Makros:
Option Explicit
Sub SchutzAus()
Dim objWS As Worksheet
For Each objWS In ThisWorkbook.Worksheets
objWS.Unprotect "passwort"
Next
End Sub
Sub SchutzEin()
Dim objWS As Worksheet
For Each objWS In ThisWorkbook.Worksheets
objWS.Protect "passwort"
Next
End Sub
Gruß Gunter