Codemodule löschen -> Sicherheitshinweis bleibt
22.12.2008 13:45:16
Bertram
ich weiß, das Problem wurde schon öfter behandelt. Habe auch schon auf ähnliche Fragen geantwortet, aber mein genaues Problem werde ich nicht los und mit meinen Suchbegriffen finde ich im Archiv leider nicht das Gewünschte.
Mit folgendem Code kopiere ich ein Tabellenblatt, mache aus Formeln Werte, lösche den vorhandenen Command-Button und den dazugehörigen Code und speichere die neue Datei.
With Sheets("Spezifikation")
.Activate
.Copy
End With
With ActiveWorkbook
With ActiveSheet.UsedRange
.Copy
.PasteSpecial (xlPasteValues)
End With
'Button und Code löschen
ActiveSheet.Shapes("CommandButton1").Delete
With .VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
.SaveAs Filename:=strPfadSpecUser & Sheets("Spezifikation").Range("SpecNr").Value & ".xls"
.Close
End With
Soweit so gut, aber wenn ich die neue Datei öffne kommt der Sicherheitshinweis von wegen Makros und so. Speichere ich die Datei erneut, OHNE irgendwelche sonstige Aktionen, kommt der Hinweis beim nächsten Öffnen nicht mehr.
Kann mir jemand erklären woran das liegt, bzw. wie ich das hinkriege, dass es beim ersten Speichern schon funktioniert?
Danke und Gruß
Bertram