Module und Makros per VBA im geschütztem Projekt löschen

Question

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

Answer 1

Hallo Karsten,

zum Löschen von VBA Code muss der Zugriff auf das VBA Projekt rlaub sein. Da dies tief in die Sicherheit geht macht das fastr keiner. Ich vermute mal Dein Anwender auch. Bzw. dadurch das er es nicht erlaubt, wirkt Dein Code nicht.

Gruß Hajo

Answer 2

Hallo Hajo,
erst einmal vielen lieben Dank für Deine super schnelle Antwort. Da ich es doch auf meinem Rechner ausprobiere wo ich dies doch erlaubt habe (glaube dafür ist doch das Häkchen, oder?), müßte es doch gehen. Warum geht es nicht? Kannst Du mir dies sagen?
LG Karsten

Answer 3

Hallo Karsten,

Du willst es also nur auf Deinen Rechner? Das las sich im ersten Beitrag anders.
Es war nur eine allgemeine Festellung zum löschen von Code. Da mir diese Sache zu gefährlich ist benutze ich solche Sachen nicht und teste es auch nicht.
Ich habe nun einige Beispiele dazu um das zu posten, aber immer ohneTest.

Gruß Hajo

Answer 4

Hallo Hajo,
würde gerne die Beispiele ausprobieren, sage Dir dann ob es funktioniert. Meine Mail lautet kleinerblauerfreund(at)web.de
Danke Dir erst mal. Hat noch jemand eine Antwort für mein Problem?
Vielen Dank schon mal im voraus.

LG Karsten

Answer 5

Hallo Ihr guten Geister diese Forums,
kann mir denn keiner helfen.
Vielen Dank im voraus.
LG Karsten

Answer 6

Hat denn hier wirklich keiner eine lösung für mich.
LG Karsten

Answer 7

Hallo Karsten,

schau mal hier nach.

Gruß

M.O.