Protect / Unprotect
30.01.2006 11:16:57
Torsten
beim Öffnen einer Datei soll folgender Code ausgeführt werden:
...
With Worksheets("Eingaben")
Select Case Application.UserName
Case "User1", "User2", "User3", "UserN"
.Range("DATEN").Unprotect "PW"
Case Else
.Range("DATEN").Protect "PW"
End Select
End With
...
Wobei DATEN ein Name für den Range ("E12:Q71) des WS ("Eingaben") ist.
Leider bricht Excel den Code mit der Meldung
"Objekt unterstützt diese Eigenschaft oder Methode nicht"
und markiert die Zeile ".Range("DATEN").Unprotect "PW""
Was muß ich an dem Code noch anpassen?
Für Eure Hilfe im voraus besten Dank.
Gruß
Torsten