versuche in einer Excel-Tabelle in Workbook Open etwas VBA-Code per LotusScript zu schreiben. Leider kommt nur ein OLE-Fehler ohne genaue Fehlermeldung in der Zeile (siehe Code).
Das Objekt xlApp ist gesetzt und die Tabelle wurde vorher auch beschrieben und die das Worksheet "Tabelle 1" existiert.
Code
'xlApp ... Excel
Dim lineNr As Integer
' in der nächsten Zeile stoppt der Debugger
With xlApp.ThisWorkbook.VBProject.VBComponents(xlapp.Worksheets("Tabelle 1").CodeName).CodeModule
LineNr = .CreateEventProc("Open", "Workbook")
.InsertLines LineNr + 1, " "
.InsertLines LineNr + 2, "Application.ActiveSheet.Unprotect ""test"""
.InsertLines LineNr + 3, "Application.EnableOutlining = True"
.InsertLines LineNr + 4, "ActiveSheet.Protect ""test"" True, True, True"
End With
Hat schon mal jemand VBA-Code nach Excel geschrieben? Irgendwie erkenne ich gerade den Fehler nicht.
Was mache ich falsche?
Vielen Dank und viele Grüße
Dirk