Herbers Excel-Forum - das Archiv

VBA Projekt Passwort aufheben?

Bild

Betrifft: VBA Projekt Passwort aufheben?
von: Alexej

Geschrieben am: 14.03.2005 12:02:26
Guten Morgen :)
Ich moechte von einem VBA Projekt auf ein anderes zugreifen, um dort den Quellcode zu veraendern (basteln eine Art Patch fuer unsere Excel Dokumente). Dieses VBA Projekt ist jedoch Passwortgeschuetzt. Das Passwort ist mir natuerlich bekannt, nur wie kann ich diese Passwortabfrage machen, sodass ich Zugang zu dem anderen Projekt habe?
Vielen Dank im Vorraus :)
Alexej
Bild

Betrifft: AW: VBA Projekt Passwort aufheben?
von: Uduuh

Geschrieben am: 14.03.2005 12:13:51
Hallo,
so sollte es gehen:
Sub VBA_Kennwort(KennWort)
Application.ScreenUpdating = False
SendKeys ("%{F11}"), True
If Application.VBE.ActiveVBProject.Protection Then
Select Case Val(Application.Version)
Case 5 To 8
SendKeys ("%xs" & KennWort & "{ENTER}{ENTER}"), True
Case Else
SendKeys ("%xi" & KennWort & "{ENTER}{ENTER}"), True
SendKeys ("%Dh"), True
End Select
End If
Application.ScreenUpdating = True
End Sub

Gruß aus'm Pott
Udo

Gruß
Bild

Betrifft: AW: VBA Projekt Passwort aufheben?
von: Alexej

Geschrieben am: 14.03.2005 12:21:52
Hallo nochmals :)
Vielen Dank fuer die Hilfe, scheit ja schon etwas zu sein. Jedoch ist der Code nur fuer das aktive VBA Projekt, kann man irgendwie das Passwort von einem anderen, geoeffneten Projekt aufheben? :)
Viele Gruesse aus verschneitem Moskau,
Alexej
Bild

Betrifft: AW: VBA Projekt Passwort aufheben?
von: Bert

Geschrieben am: 14.03.2005 12:45:58
Hi,
SendKeys ist dir einzige Chance, aber von der jeweiligen Sprachversion abhängig.
Diese Methode greift nur beim aktiven Projekt. Wenn gerade etwas anderes aktiv ist, kann das unvorhersehbare Folgen haben.
Bert
 Bild
Excel-Beispiele zum Thema "VBA Projekt Passwort aufheben?"
Tabellenblattnamen der VBE-Projekte ändern Für ein VBE-Projekt mit VBA-Code ein Paßwort festlegen
Passwort vergeben und bei CheckBox-Aktivität abfragen Beim Öffnen der Arbeitsmappe Passwort abfragen
Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen Passwortabfrage mit ShortCut-Aufruf
Aktivierung von Berechnungen bei gültiger Passworteingabe Blattschutz mit und ohne Passwort aufheben und setzen
Automatische Passworteingabe in Internet-Formular Masterlistsystem mit Passwortabfrage bei Blattauswahl