Excel Schreibschutz
30.11.2015 16:41:31
Jan
ich habe mir eine Userform gebastelt in die man Infos eintragen kann und über einen Speicherbutton in meine Tabelle übertragen kann.
Andere Leute sollen die eingetragenen Werte nicht verändern (daher das Arbeitsblatt schützen), aber sie sollen über die Userform neue Werte eintragen können.
Das ganze habe ich probiert mit:
ThisWorkbook.Worksheets("NOV WS").Protect UserInterfaceOnly:=True
Den Code habe ich in das Klassenmodul DieseArbeitsmappe eingefügt.
Mein zweiter Versuch war:
With ThisWorkbook.Worksheets("NOV WS")
.Unprotect Password:="DeinPasswort"
'Dein Code
.Protect Password:="DeinPasswort"
End With
Und den Code habe ich in meiner UserForm ausprobiert.
In beiden Fällen kam die Fehlermeldung:
"Fehler beim Kompilieren: Außerhalb einer Prozedur ungültig"
Beide Codes habe ich mir auf Internetseiten zusammengesucht und ein wenig ausprobiert, komme aber einfach nicht weiter. Vllt kann mir ja jemand helfen.
Besten Dank
Gruß Jan