Code gelöscht, aber Makrohinweis ...
23.02.2006 21:58:42
Steffen
hab mich die letzten Monate mit rumstöbern und ausprobieren an VBA
versucht und trete nun völlig auf der Stelle.
Habe eine Rechnungsvorlage programmiert bei der ich über Button die ausgefüllte
Rechnung in eine neue Mappe kopiere, dann alle Button, Gültigkeiten etc. und den VBA-Code aus dem neuen Blatt lösche.
Beim öffnen dieser neuen Datei kommt jedoch immer der Hinweis auf enthaltene Makros obwohl in der Entwicklungsumgebung kein fetzen text mehr steht und auch keine Module mehr zu sehen sind.
Wenn ich jedoch dann diese neue Datei noch einmal speichere dann ist diese seltsamerweise ca. 10 kb kleiner als vorher und es erscheint beim öffnen auch kein Hinweis mehr.
Ich hoffe jemand weis Rat oder hat einen Tip ...
Besten dank schon mal !
Mein verwendeter Code:
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Sheets(1).Copy
Clear2 '
Sub aus Modul1 Button Listen etc. löschen
ActiveWorkbook.SaveAs Filename:=sFile, ReadOnlyRecommended:=True
ActiveWorkbook.Close savechanges:=True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Sub Clear2() 'Rechnung "säubern"
Dim Kom As Comment
With ActiveSheet
.Unprotect 'Blattschutz aufheben
.OLEObjects.Delete 'Alle buttons löschen
With ActiveSheet.UsedRange
.Value = .Value 'Alle Zellen auf Absolutwerte setzen
.Validation.Delete 'Alle Gültigkeitsregeln (Listenfelder) löschen
End With
For Each Kom In ActiveSheet.Comments
Kom.Delete 'Alle Kommentare löschen
Next Kom
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines 'VBA-Code löschen
End With
.UsedRange.Locked = True 'Alle Zellen sperren
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ' Battschutz setzen
.EnableSelection = xlNoSelection 'Keine Markierung erlaubt
End With
End Sub