teil vba löschen before close
10.03.2018 13:56:27
giuppy
ich habe ein VBA geschrieben, wird an einem bestimmten Datum ein Modul gelöscht. Ich möchte aber auch, dass zeitgleich der Code in der DieseArbeitsmappe gelöscht wird.
Kann mir jemand einen Tipp / Rat geben?
hier den Code (VBAProjekt (test) - Microsoft Excel Objekte - DieseArbeitsmappe
______________________________________________________________
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call OK
End Sub
______________________________________________________________
Sub OK()
If Date >= 43266 Then '156
On Error Resume Next
With ActiveWorkbook.VBProject
.VBComponents.Remove .VBComponents("Modul2")
End With
Sheets("test").Select
ActiveSheet.Unprotect "test"
Worksheets("test").Range("BY2:CR400000").ClearContents
Sheets("test").Select
ActiveSheet.Protect "test", AllowFiltering:=True, DrawingObjects:=True, Contents:=True, AllowUsingPivotTables:=True
Application.DisplayAlerts = False
ActiveWorkbook.Save
End If
End Sub ____________________________________________________________________________
Schöne Grüße