Code löschen
27.10.2002 10:06:59
Rudi
habe auf der CD Von Hans den folgenden Code gefunden welchen ich verwenden möchte. Leider kommt bei mir die Meldung "Laufzeitfehler 1004" mit dem Fehlertext " Der Programmatische Zugriff auf das Visual Basic Projekt ist nicht sicher" habe versucht die Sicherheitsstufe der Makros auf niedrig zu stellen doch die Meldung kommt immernoch. Könnte mir jemand dabei helfen dieses Problem zu lösen. Herzlichen Dank. Gruß Rudi
Hier der Code von Hans:
Private Sub CommandButton1_Click()
Worksheets("Tabelle1").Copy
ActiveSheet.OLEObjects.Delete
With ActiveSheet.UsedRange
.Value = .Value
End With
With ActiveSheet.Parent.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
On Error GoTo ERRORHANDLER
ActiveWorkbook.SaveAs Range("B1").Value & "\test.xls"
Exit Sub
ERRORHANDLER:
MsgBox "Die Datei konnte nicht gespeichert werden!"
End Sub