Locked-Eigenschaften / Worksheet-übergreifend
25.10.2006 22:13:49
Dennis
ich erhalte:
---
Laufzeitfehler '1004':
Die Locked-Eigenschaften des Range-Objektes kann nicht festgestellt werden.
---
bei VBA-Code in Objekt (Memo):
---
Private Sub Worksheet_Calculate()
Dim wb As Workbook
Set wb = Workbooks("Arbeitsmappe.xls")
'Blattschutz aktivieren
wb.ActiveSheet.Unprotect Password:="xxx"
[schnipp---
---schnapp]
If Not wb.Sheets("Memo").Range("D1") = 3 Then
Fehler/Markierung --- > wb.Worksheets("Main").Range("F6").MergeArea.Locked = False
wb.Worksheets("Main").Range("F7").MergeArea.Locked = False
wb.Worksheets("Main").Range("F8").MergeArea.Locked = False
wb.Worksheets("Main").Range("H8").MergeArea.Locked = False
End If
[schnipp---
---schnapp]
Set wb = Nothing
End Sub
---
Noch zu sagen ist:
google: Resultat > https://www.google.de/search?hl=de&q=die+locked-eigenschaften+des+range-objektes+kann+nicht+festgestellt+werden
Ich erhalte den Fehler, wenn ich etwas in dem oder einem anderen Sheet verändere, nur nicht in Worksheet "Rechnung", da kommt der Fehler nicht.
In Sheet Rechnung ist F6 - K6 als eine Zelle verbunden (MergeArea).
Habe auch statt "Worksheets" "Sheet" eingefügt, alles keine Lösung.
Auch wenn ich in einer anderen xls bin, bekomme ich auch diesen Fehler. Erst wenn ich Rechnung.xls geschlossen habe, kommt es zu einem reibungslosem Arbeiten.
Aber ich glaube, Arbeitsmappe.xls ist sowieso totprogrammiert. Nichts desto trotz, läge es mir nahe, diesen Fehler aus dem weg zu gehen.
Hat jmd adhoc eine idee?
gruß
dennis