Sheet ohne Makro speichern.
02.11.2003 07:56:48
DanielO
ich habe ein Problem für mich unlösbar:
Ich versuche von eine Arbeitsmappe eine Tabelle zu speichern...
und das klappt auch. Habe die Verknüpfungen unterdruckt aber die Makros!!!
Habe in Archiv gesucht und diese Code gefunden um die Makros zu löschen:
Sub Speichern()
S = Format(Range("B2").Value, "mmmm-yyyy")
ChDir "C:\OFFICE\pläne\"
ActiveSheet.Copy
ActiveSheet.SaveAs Filename:=(S)
With ActiveWorkbook.VBProject
.VBComponents.Remove .VBComponents("Modul1")
.VBComponents.Remove .VBComponents("Modul2")
.VBComponents.Remove .VBComponents("Modul3")
' loeschen von z.B. Workbook_open:
With .VBComponents("DieseArbeitsmappe").CodeModule
.DeleteLines 1, .CountOfLines
End With
' loeschen von z.B. Worksheet_Activate:
With .VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
End With
ActiveWorkbook.Close savechanges:=True
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
Exit Sub
End Sub
= wird alles gelöscht, was übrig bleibt sind die Makros in der Tabelle selbst.
Wie kann ich auch diese Codes löschen.
Danke
Ciao, Daniel
Anzeige