VBA mit Kennwort öffnen
30.09.2004 18:09:04
Erich
habe mit Hilfe des Forums einen Code, der dann funktioniert, wenn ich ihn
über einen CommandButton starte. Wenn ich das so mache, dass bereits bei
Workbook_Open der Code ausgeführt wird - blockiert er.
Dabei geht es darum, dass ich ein geschütztes VB-Project zur Bearbeitung
öffnen möchte (das Kennwort ist mir bekannt).
So sieht mein Code aus:
1. WorkbookOpen
2. Schutz des VBProjects aufheben
3. Code der UF (wird nur 1 Sekunde angezeigt)
Option Explicit
Private Sub Workbook_Open()
Call aufrufen
End Sub
Sub aufrufen()
Dim FreischaltCode As String
Application.ScreenUpdating = True
UserForm1.Show
FreischaltCode = "g" ' = Passwort
SendKeys ("%{F11}"), True
If Application.VBE.ActiveVBProject.Protection Then
SendKeys ("%xi" & FreischaltCode & "{ENTER}{ENTER}"), True '' für XLS2000 und XP
' SendKeys ("%xs" & FreischaltCode & "{ENTER}{ENTER}"), True ''für XLS97
End If
Application.ScreenUpdating = False
End Sub
Private Sub UserForm_Activate()
Dim sngTime As Single
sngTime = Timer + 1
Do
DoEvents
Loop Until sngTime <= Timer
Unload Me
End Sub
Bestne Dank für eine Hilfe!
mfg
Erich