Supportnet / Forum / Tabellenkalkulation

Hallo Allerseits, ich möchte gerne in einem geschütztem Arbeitsblatt eine Zelle für den Anwender freigeben und diese gezielt entsperren. Hier ein Auszug aus meinem Code. Leider bekomme ich einen Fehler, sobald die Locked Eigenschaft umgesetzt werden soll: Laufzeitfehler 1004: Anwendungs- oder objektdefinierter Fehler. Private Sub CommandButton2_Click() Dim UNICREWING As Worksheet Set UNICREWING = ActiveWorkbook.Sheets("UNICREWING") Worksheets("UNICREWING").Unprotect If [J15] = 0 Then [J15] = [U13] [K15] = [AA13] [L15] = [Z13] [N15] = [B26] [O15] = [X13] Worksheets("UNICREWING").Protect If [T15] = 11 Then Worksheets("UNICREWING").Range("O15").Locked = False Worksheets("UNICREWING").Protect End If ... Weiß jemand, woran es liegt?

Bin mir nicht sicher aber ich vermute, dass sich die "Locked"-Eigenschaft nur umsetzen lässt wenn das Tabellenblatt ungeschützt ist.
Du musst also vor dem "locked=false" noch ein "unprotect" einbauen und danach wieder "protect".

Gruß Flupo

Hallo Flupo

Vielen Dank. Das ist des Rätsels Lösung. Der Protect-Befehl hat an der Stelle sowieso kein Sinn ergeben.

Gruß
Daniel

• Markierung aufheben mit Hilfe von Word-VBA
• "Gruppierung aufheben" nicht mehr möglich
• Schreibschutz aufheben
• Problembehandlung bei Fensterfixierung aufheben
• Schreibschutz aufheben