Informationen und Beispiele zum Thema CheckBox | |
---|---|
![]() |
CheckBox-Seite mit Beispielarbeitsmappe aufrufen |
Informationen und Beispiele zum Thema Userform | |
---|---|
![]() |
Userform-Seite mit Beispielarbeitsmappe aufrufen |
Informationen und Beispiele zum Thema Label | |
---|---|
![]() |
Label-Seite mit Beispielarbeitsmappe aufrufen |
Betrifft: Module und Userform per VBA löschen
von: Frank
Geschrieben am: 11.09.2019 21:36:26
Hallo VBA-Künstler,
kann man über VBA alle Module und alle Userform`s in einer Arbeitsmappe löschen ?
Gruß
Frank
Betrifft: AW: Module und Userform per VBA löschen
von: 1712564.html
Geschrieben am: 11.09.2019 22:03:38
ja, Frank
Die Frage ist nur wieso mit VBA? Soll denn noch irgendwas an Code übrigbleiben?
Wenn nicht, speichere die Datei einfach ohne Makros (xlsx) und aller Code verschwindet im Nirwana.
Code mit Code zu manipulieren verlangt andere Sicherheitseinstellungen, ist fehleranfällig und nicht empfehlenswert.
Gruess Hansueli
Betrifft: AW: Module und Userform per VBA löschen
von: 1712567.html
Geschrieben am: 11.09.2019 22:32:23
Hallo EtoPHG,
ja du hast bedingt recht.
Ich hab eine umfangreiche Arbeitsmappe mit recht vielen Berechnungen in über 200 Tabellenblättern
mit einigen Makros entwickelt.
Diese Arbeitsmappe dürfen nur autorisierte Personen in die Hände bekommen.
Daher möchte ich, wenn diese Arbeitsmappe von NICHT autorisierte Personen geöffnet wird,
komplett gelöscht wird.
Das Makro zum löschen der Tabellenblätter bei nicht autorisierten Personen
habe ich schon erstellt.
Leider löscht es nur die Tabellenblätter aber nicht die Makros...
Gruß
Frank
Betrifft: AW: Module und Userform per VBA löschen
von: 1712571.html
Geschrieben am: 12.09.2019 05:49:33
Hallo Frank,
das geht nur wenn der Zugriff auf das VBA Projekt zugelassen wird und das sttellen nur sehr wenige ein.
Da dies tief in die Sicherheit geht, gebe ich dazu keine Auskunft.
Betrifft: AW: Module und Userform per VBA löschen
von: 1712591.html
Geschrieben am: 12.09.2019 08:53:58
HI,
sollte so gehen:
Public Sub prcRemove() With Workbooks("Mappe1.xlsm").VBProject .VBComponents.Remove .VBComponents("Modul1") End With End SubAber, Du könntest, wie schon weiter oben gesagt, dann ja auch einfach die Datei aus dem Makro heraus als "xlsx" speichern, dann bist Du die Makros auch los.