protect/unprotect
17.05.2004 12:44:23
Martin
ich wollte über einen Button die Blätter in meiner Arbeitsmappe schützen, bzw wieder freigeben. Das soll Passwortgeschützt sein. Ich habe aber das Problem, dass die Passwortabfrage beim Freigeben auch kommt, allerdings kommt bei der Eingabe eines falschen Passworts ein Laufzeitfehler. Passiert das immer? Oder kann man da irgendeine Fenste öffnen lassen von wegen "Falsches Passwort eingegeben". Dazu habe ich noch das Problem, dass die Passwortabrage für jedes Arbeitsblat kommt, wenn ich sie freigeben will. Kann man das auch so hinbekommen, dass die Abfrage nur einmal kommt und dann alle Blätter freigegeben werden?
Würd mich freuen, wenn jemandem etas einfällt.
Vielen Dank schon einmal.
Gruß
Martin
Sub Blattschutz_alle_Tabellen_aufheben()
Dim i As Worksheet
Dim z As Integer
Dim Passwort As Variant
Application.ScreenUpdating = False
For Each i In ActiveWorkbook.Worksheets
i.Unprotect
z = z + 1
Next i
MsgBox z & " Tabellen freigegeben", , "Blattschutz ohne Paßwort"
Application.ScreenUpdating = True
End Sub