Blattschutz, Auswirkung auf andere Blätter?
23.01.2004 18:16:15
Heinrich
ich ich habe ein kleines Problem. Ich möchte auf einem ausgeblendetem Blatt Oleobjekte löschen.
Dies funktioniert auch ohne Probleme solange der Funktionsaufruf von einem Arbeitsblatt gestartet wird, das ungeschützt ist. Sobald der Funktionsaufruf von einem geschüzten Blatt erfolgt kommt folgende Fehlermeldung:
Laufzeitfehler '1004'
Anwendungs- oder Objektdefinierter Fehler
Das Blatt wo sich die Objekte befinden ist nicht geschützt.
Der Code sieht so aus:
Sub Prüfzeichnung_löschen()
Dim daaus As Worksheet
Set daaus = Sheets("Daten_Auswahlfelder")
' Zeichnugsobjekte löschen
Do While daaus.Cells(10, 1).Value > 0
**** daaus.Shapes("Prüfzeichnung" & daaus.Cells(10, 1).Value).Delete ****
daaus.Cells(10, 1).Value = daaus.Cells(10, 1).Value - 1
Loop
End Sub
*** da hängt die Funktion ***
Kann mir jemand sagen, ob das normal ist?