Vielleicht kann mir jemand helfen?
Bei einem Rechnungsformular habe ich alle TZellen geschützt, auser die Eingabe-Felder
Nun habe ich ein Makro geschrieben, welches nach Bedarf neue Zeilen einfügt.
Dieses müsste am noch Anfang den Schutz auf heben. (das klappt)
..und am ende den Schutz wieder herstellen.
Das geht zwar auch, aber ich schaffe es nicht, dass die Dialogbox Abfrage Schutz aufheben nicht erscheint.
Das hier angefügte Macro liefert eine Fehlemeldung in der folgenden Zeile:
oSheet=oDoc.Sheets.getByName("Sheet1")
wass mache ich falsch?
Sub ProtectSpreadsheet
dim oDoc As Object, oSheet As Object
oDoc = ThisComponent
oSheet=oDoc.Sheets.getByName("Sheet1")
oSheet.protect("password")
Print "Protect value = " & oSheet.isProtected()
oSheet.unprotect("password")
Print "Protect value = " & oSheet.isProtected()
End Sub
