Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA mit Kennwort öffnen

VBA mit Kennwort öffnen
30.09.2004 18:09:04
Erich
Hallo EXCEL-Freunde,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige