Private Sub Workbook_Open() aus AddIn in Datei
20.08.2002 14:55:16
Veit
ich suche ein Möglichkeit einer neuen EXCEL-Datei aus einem AddIn heraus ein Start-Makro zuzuweisen. Hintergrund der Geschichte ist, daß sobald eine zum AddIn gehörende Datei geöffnet wird schon die ersten Makros aus dem Addin ausgeführt werden sollen.
Gibt es da eine Möglichkeit?
irgendwie muß ich wohl auf ".InsertLines 3, "Private Sub Workbook_Open() " kommen, aber wie?
'Dim nWB As Workbook
'Dim mdlWB As Object
' Set nWB = ActiveWorkbook
' Set mdlWB = nWB.VBProject.VBComponents.Add(vbext_ct_MSForm)
' With mdlWB.CodeModule
'With ActiveWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).CodeModule
'.Add(vbext_ct_StdModule).CodeModule
' .InsertLines 3, "Sub auto_open()"
' .InsertLines 4, " Msgbox ""Bin jetzt da!"""
' .InsertLines 5, "End Sub"
' End With
dieser Code bringt mir in "Set mdlWB="...
"Der programmatische Zugriff auf das Visual Basic-Projekt ist nicht sicher"
Danke schon mal für Eure Hilfe
mfG
Veit