Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon kvtv vom 20.02.2022, 10:36 Options
Module und Makros per VBA im geschütztem Projekt löschen
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
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
Antwort 1 von Hajo_Zi vom 20.02.2022, 10:38 Options
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
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
Antwort 2 von kvtv vom 20.02.2022, 10:46 Options
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
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
Antwort 3 von Hajo_Zi vom 20.02.2022, 10:57 Options
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
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
Antwort 4 von kvtv vom 20.02.2022, 11:06 Options
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
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
Antwort 5 von kvtv vom 22.02.2022, 17:59 Options
Hallo Ihr guten Geister diese Forums,
kann mir denn keiner helfen.
Vielen Dank im voraus.
LG Karsten
kann mir denn keiner helfen.
Vielen Dank im voraus.
LG Karsten
Ähnliche Themen
VBA EXCEL Zeile löschen
vollmondgierig 27.10.2008 - 57 Hits - 10 Antworten
Excel VBA: löschen mit Kill findet Datei nicht
Reini0815 31.07.2009 - 506 Hits - 10 Antworten
VBA Erzeugte Datei beim Beenden von Excel löschen
Bierschinken 31.07.2009 - 584 Hits - 7 Antworten
Excel 2003 - VBA - Userform löschen
pesi 15.09.2009 - 365 Hits - 2 Antworten
löschen von makros
rheym 09.10.2009 - 105 Hits - 4 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
