Speichern nach Makro entfernen
15.08.2004 10:25:45
mario
habe ein Problem mit folgenden Makros.
Es funktioniert alles so wie ich will bis auf die
letzten Befehlen.
ActiveWorkbook.save 'Datei sollte gespeichert werden, tut es nicht oder?'
ActiveWorkbook.close 'funktioniert
Offenbar wird die Datei nach dem die Makros entfernt sind
nicht gespeichert.
Wenn ich die zwei letzten Befehle auslasse und die Datei danach von Hand speichere
funktioniert alles so wie ich will.
Beim nächsten öffnen der gespeicherten Mappe wird keine Makrowarnung mehr angezeigt
weil keine Makros mehr vorhanden.
Vielen Dank schon zum Voraus für eure Hilfe.
Gruss Mario
Sub schutz()
Dim t As Integer
Dim i As Integer
Dim sFile As String, sPath As String, sJahr As String
t = ActiveWorkbook.Worksheets.Count
For i = 1 To t
On Error Resume Next
Sheets(i).Unprotect
Sheets(i).Select
Cells.Select
Selection.Locked = True
Sheets(i).Protect
range("A1").Select
Next i
sPath = Application.DefaultFilePath & "\" & " Abteilung 5" & "_"
sFile = Worksheets("Auswertung").range("C1").Value
sFile = Format(CDate(sFile), "yyyymmdd") & ".xls"
sJahr = Worksheets("Daten").range("AF3").Value
ActiveWorkbook.SaveAs sPath & sFile & "_" & sJahr
Startseite
MakrosEntfernen
End Sub
Sub MakrosEntfernen()
Dim CodeObj As Object
If Val(Application.Version) >= 8 Then
With ActiveWorkbook.VBProject
For Each CodeObj In .VBComponents
Select Case CodeObj.Type
Case 1, 2
.VBComponents.Remove CodeObj
Case Else
With CodeObj.CodeModule
If .CountOfLines > 0 Then
.DeleteLines 1, .CountOfLines
End If
End With
End Select
Next
End With
End If
For Each CodeObj In ActiveWorkbook.Names
Select Case CodeObj.MacroType
Case xlFunction, xlCommand
CodeObj.Delete
End Select
Next
'ActiveWorkbook.Save
'ActiveWorkbook.Close
End Sub