per LotusScript VBA-Code in einer Excel-Tabelle erzeugen

Diali · 16. September 2013

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

Diali · 16. September 2013

habe es hin bekommen und zu kompliziert gedacht

Code

With xlApp.ActiveWorkbook.VBProject.VBComponents("DieseArbeitsmappe").CodeModule
	.InsertLines LineNr + 1, "Private Sub Workbook_Open()"
	.InsertLines LineNr + 2, "Application.ActiveSheet.Unprotect ""test"""
	.InsertLines LineNr + 3, "Application.EnableOutlining = True"
	.InsertLines LineNr + 4, "ActiveSheet.Protect ""test"" True, True, True"
	.InsertLines LineNr + 5, "End Sub"
End With

Gruß
Dirk

per LotusScript VBA-Code in einer Excel-Tabelle erzeugen

Teilen

Benutzer online in diesem Thema