Guten Morgen allesamt,
ich steh momentan vor einem kleinem Rätsel, vielleicht habt ihr ja die passende Lösung für mich oder auch einfach nur einen Rat
ich habe ein Makro, mit einer Userform versehen die ein Passwort abfragt (ja ich weiß, geht auch über Einstellungen im Code selbst). Ich möchte aber, dass wenn jemand das dritte mal das Passwort falsch eingegeben wird, sich der komplette Inhalt dieses Makros löscht, also alle Module, Userform usw.
Etwas passendes für Excel habe ich schon gefunden:
Sub VBA_Code_entfernen()
Dim Ding As Object
Dim Zeile As Long
Dim Antwort As Integer
Antwort = MsgBox("Wollen Sie wirklich alle VBA-Elemente in:" _
& vbNewLine & ActiveWorkbook.Name & vbNewLine _
& "komplett löschen?", vbOKCancel, _
"Achtung!")
If Antwort <> 1 Then
MsgBox "Keine Änderungen durchgeführt", , ""
Exit Sub
End If
For Each Ding In ActiveWorkbook.VBProject.vbcomponents
'Type 100 = DieseArbeitsmappe und alle Tabellen
If Ding.Type = 100 Then
With ActiveWorkbook.VBProject.vbcomponents(Ding.Name).CodeModule
For Zeile = 1 To .CountOfLines
.DeleteLines 1
Next Zeile
End With
'Type 1 = Modul, Type 2 = Klassenmodul, Type 3 = UserForm
Else
ActiveWorkbook.VBProject.vbcomponents.Remove Ding
End If
Next
MsgBox "Fertig", , ""
End Sub
Dieses Sub bezieht sich aber auch ACTIVEWORKBOOK
Jetzt zu der (wahrscheinlich schon logischen) Frage... wie heißt das passende Äquivalent (richtig geschrieben?) für SolidWorks?
Über jede Hilfe bin ich wie immer sehr dankbar
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP