Wieso Fehlermeldung ?
07.07.2006 15:07:30
Walter
ich habe folgende Fehlermeldung:
"Laufzeitfehler 1004"
"Der programmatische Zugriff auf das Visual Basic Projekt ist nicht sicher"
Das Problem:
Auf meinem Rechner kommt diese Fehlermeldung nicht.
Wenn ich auf einen anderen Rechner in der Firma das Makro starte kommt diese Fehlermeldung.
Hier mein (vom Hoffi !!! aus dem Forum) Makro:
Sub ModPW_kopieren()
Application.ScreenUpdating = False
Dim wkb As Workbook
Dim sFile As String
Dim sPath As String
Dim intIndex As Integer, bolgefunden As Boolean
Application.ScreenUpdating = False
sFile = "C:\1_PKW_Verkauf_Verkäufer\Lauf+Abge.xls"
sPath = "C:\1_PKW_Verkauf_Verkäufer\temp.bas"
ThisWorkbook.VBProject.VBComponents("modPW").Export sPath
Set wkb = Workbooks.Open(sFile)
Application.VBE.MainWindow.Visible = True
With wkb.VBProject.VBComponents(wkb.CodeName).CodeModule
.InsertLines 3, "
Private Sub Workbook_Open()"
.InsertLines 5, "VBA_PW"
.InsertLines 6, "End Sub
End With
ActiveWorkbook.VBProject.VBComponents.Import sPath
Kill sPath
Application.VBE.MainWindow.Visible = False
wkb.Close True
''ActiveWorkbook.Close True
Application.ScreenUpdating = True
End Sub
Bleibt hier stehen:
ThisWorkbook.VBProject.VBComponents("modPW").Export sPath
Wieso hier keine Fehlermeldung und beim anderen Rechner Fehlermeldung?
gruß Walter
Anzeige