---

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

---

Hallo wemsab,

ich glaube, das wird das nicht möglich sein.
So wie ich das verstehe, werden Makros in Excel in der Excel-Datei gespeichert und in SWX als eigene Datei.

Ein Möglichkeit wäre, dass Du Dein Makro über ein anderes Makro, mit RunMacro2, aufrufst und dabei die Option swRunMacroUnloadAfterRun verwendest.
(ich gehe mal davon aus, dass Du das Makro ja nicht komplett löschen möchtest, weil es sonst ja wirklich weg ist)

Mich würde noch interessieren
Warum Du das so machen möchtest bzw. was der Hintergrund dazu ist?

------------------
Grüße
Heinz

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Nahe,

mir geht es darum, dass dieses Makro an andere Leute gehen soll, jedoch sollen diese nicht in den Code schauen können. Da man mit ein bisschen googlen schnell herausfinden kann, wie man den normalen Passwortschutz umgeht, dachte ich, ich erstell eine eigene Passwort-Abfrage mit entsprechender Lösch-Funtkion

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

na dafür gäbe es folgende Möglichkeit

im VBA Editor

Extras->Eigenschaften von "Deinem Makro"->Schutz

dort
den Haken bei "Projekt für die Anzeige sperren"
und ein Passwort vergeben

dabei ist mir aufgefallen, dass es unter Umständen notw.
SWX 1x zu beenden und neu zu starten,
damit eine Änderung an diesen Einstellungen richtig erkannt wird.
(ist aber wahrscheinlich nur während der Entwicklung interessant)

------------------
Grüße
Heinz

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Diese Möglichkeit der Sperrung ist mir bekannt, aber gerade diese ist wohl mit relativ wenig Aufwand zu umgehen 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

- ist halt die Frage mit welchem Aufwand das zu umgehen ist

- dann könntest Du noch Dein Makro noch
  als Addin oder als eigenständiges Programm mit Visual Studio erstellen

  wenn das so heikel ist solltest Du, meiner Meinung nach,
  sowieso kein "normales" Makro dazu verwenden

------------------
Grüße
Heinz

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

... als eigenes AddIn/eigenständiges Programm liebend gerne, nur dazu fehlen mir leider die entsprechenden Kenntnisse 

Kenne mich bisher nur mit VBA aus 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

wie ich oben schon geschrieben habe

wenn es wirklich so sensibel ist und Dir der Standardpasswortschutz nicht reicht,
wird Dir wohl nichts anderes übrig bleiben, als Dich in die Materie einzuarbeiten.

Noch eine Bemerkung:
eigenständige Programme sind einfacher zu erstellen und auch bereitzustellen als AddinŽs
ist meine persönliche Meinung als Gelegenheits-Programmierer
wobei Programmierer schon übertrieben ist
(besser Code-Schnipsel-Zusammen-Steller  )

------------------
Grüße
Heinz

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von wemasb:
...
Kenne mich bisher nur mit VBA aus  

---

...na dann wird's Zeit, das zu ändern.

Mit Visual Studio hast du gleich vieeeel mehr Möglichkeiten für deine Projekte. Wenn du das mal genutzt hast, willst du gar nicht mehr zurück 

------------------
Klaus

http://www.al-ko.com/de/fahrzeugtechnik/ | mein Gästebuch

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP