Hallo Ihr guten Geister dieses Forums,
kann mir jemand sagen wie ich zwei oder alle Module in einem geschütztem Projekt löschen kann. Ich möchte nachdem ein Datum abgelaufen ist die Module 1 und 5 löschen das VBA Projekt ist mit "test4711" Kennwort geschützt. Das mit der Datumsabfrage habe ich schon hin bekommen.
Ich habe sogar schon ein Makro welches das können soll. Aber nix passiert und ja den Haken für VBA Projekt vertrauen habe ich auch drin. Ich stell mal mein Makro hier ein wie es nicht funktioniert:
Sub Module_loeschen
MsgBox "Es werden alle Module gelöscht!!!", vbOKOnly + vbCritical, Application.UserName
DoEvents
Dim Password As String
Password = "test4711"
If ActiveWorkbook.VBProject.Protection Then
Application.DisplayAlerts = False
Application.ScreenUpdating = False
SendKeys "%{F11}%xi"
SendKeys Password
SendKeys "{TAB}~{TAB}~%{F11}"
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End If
DoEvents
Dim Namen(1 To 2)
Namen(1) = "Modul1"
Namen(2) = "Modul5"
For x = 1 To UBound(Namen)
Set VBP = Application.VBE.ActiveVBProject
VBP.VBComponents.Remove VBP.VBComponents(Namen(x))
Next x
DoEvents
MsgBox "Module sind gelöscht!!!", vbOKOnly + vbCritical, Application.UserName
End Sub
Ich hoffe Ihr könnt mir bei diesem Problem mal helfen.
Vielen Dank im voraus.
LG
Karsten