Hallo,
das geht so auch nicht. Entweder, so wie du das machst, kann man ein Blatt schuetzen. Aber dann muss man den Blattnamen angeben. Oder, wenn man alle Blaetter schuetzen will (was du wohl vorhast), dann mit einer Schleife.
Fuer ein Blatt:
Sub Protect_Sheet()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Tabelle1")
sh.Protect userinterfaceonly:=True
End Sub
oder fuer alle Sheets:
Sub Protect_all_Sheets()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Protect userinterfaceonly:=True
Next sh
End Sub
Falls du noch ein Passwort verwenden willst, dann so:
Sub Protect_all_Sheets()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Protect Password:="xxx", userinterfaceonly:=True
Next sh
End Sub
Gruss Tor
|