|
Hallo Zusammen
Ich bin im Moment am verzweifeln. Irgendwie finde ich den Fehler in der Syntax nicht. Kann mir jemand biotte mit dem folgenden Fehler helfen?
Die Fehlermeldung lautet: Fehler beim Kompilieren: Unzulässiger oder nicht ausreichen definierter Verweis.
Der Code lautet:
Sub BlattschutzEin()
Dim ws As Worksheet
Dim Pwd1 As String
Pwd1 = "Passwort"
For Each ws In Worksheets(Array("Zürich", _
"Zentralschweiz", _
"Tessin", _
"Romandie", _
"Nordwestschweiz", _
"Mittelland", _
"Ostschweiz"))
.Range("B4:D4,E4:E8,E11:E13").Locked = False
.Protect Password:=Pwd1, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True
Das Programm markiert die Stelle '.Range'
Wenn ich '.Range' raus nehme, meldet er den Fehler ab '.Protect'
Weiss hier jemand rat? Ich wäre ausserordentlich dankbar.
Viele Grüsse
Andy
|