Einzelnes Blatt speichern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Joerg

Code Löschen
' löschen von allen Makros
With ActiveWorkbook.VBProject
.VBComponents.Remove .VBComponents("Modul1")
.VBComponents.Remove .VBComponents("Modul2")
.VBComponents.Remove .VBComponents("Modul3")
' löschen von z.B. Workbook_open:
With .VBComponents("DieseArbeitsmappe").CodeModule
.DeleteLines 1, .CountOfLines
End With
' löschen von z.B. Worksheet_Activate:
With .VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
End With
von Steffen D (Herber.de)

Sub EntfernenEreignise()
With ThisWorkbook.VBProject.VBComponents("Tabelle1").CodeModule
.DeleteLines 1, .CountOfLines
End With
End Sub

Sub EreignisEinstellen()
With ThisWorkbook.VBProject.VBComponents("Tabelle1").CodeModule
.InsertLines 1, _
"


Private Sub Worksheet_Change(ByVal Target As Range)" & Chr(13) & _
" Msgbox ""Zellenänderung durchgeführt in Zelle: "" & Target.Address" & Chr(13) & _
"End Sub

"
End With
End Sub

Von Bernd Held

bei der folgenden Lösung werden die Module rausgeputzt:
Sub AlleVBEKomponentenEntfernen()
Dim VBkomp As VBComponent
On Error Resume Next
For Each VBkomp In ThisWorkbook.VBProject.VBComponents
ThisWorkbook.VBProject.VBComponents.Remove VBkomp
Next VBkomp
End Sub

du musst unter Extras/Verweise die Bibliothek Microsoft Visual Basic for Ext. noch aktivieren, dann funktioniert.
Von Bernd Held

Sub ModulLoeschen()
MsgBox "Noch bin ich da!"
With Application.VBE.ActiveVBProject
.vbComponents.Remove .vbComponents("MeinModul")
End With
End Sub

von Hans Herber

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Sub SicherheitsdateiOhneMakros() ActiveSheet.Copy Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="D:\Joerg" & Format(Now, "DD-MM-YY") & ".xls" ' löschen von allen Makros With ActiveWorkbook.VBProject With .VBComponents("DieseArbeitsmappe").CodeModule .DeleteLines 1, .CountOfLines With ThisWorkbook.VBProject.VBComponents("Tabelle1").CodeModule .DeleteLines 1, .CountOfLines ' löscht leider nicht "Tabelle1" End With End With End With ActiveWorkbook.Close False End Sub

Sub SicherheitsdateiOhneMakros() ActiveSheet.Copy Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="D:\Test\Joerg" & Format(Now, "DD-MM-YY") & ".xls" ' löschen von allen Makros With ActiveWorkbook.VBProject With .VBComponents("DieseArbeitsmappe").CodeModule .DeleteLines 1, .CountOfLines With ActiveWorkbook.VBComponents("Tabelle1").CodeModule ' Laufzeitfehler 438 .DeleteLines 1, .CountOfLines End With End With End With ActiveWorkbook.Close False End Sub

Sub Speichern() Dim wksQuell1 As Worksheet Dim wksZiel1 As Worksheet Dim wkbZiel As Workbook Set wksQuell1 = ActiveWorkbook.Worksheets(1) Application.SheetsInNewWorkbook = 1 Set wkbZiel = Workbooks.Add Set wksZiel1 = wkbZiel.Worksheets(1) wksQuell1.Cells.Copy wksZiel1.Cells.PasteSpecial wkbZiel.SaveAs Filename:="D:\Test\" & "Joerg" & ".xls" End Sub

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Einzelnes Blatt speichern

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread