Hallo Leute
Habe da ein kleines Problem.
Beim starten einer ExcelDatei soll über ein Userform ein Passwort abgefragt werden. Wenn das Passwort richtig ist öffnet es die Datei normal sonst schreibgeschützt.
Danke für die Hilfe
Gruss
Hallo
Bei VBA-Gut sollte das eigentlich kein problem sein.
Userform erstellen für Passwort-Abfrage Aufruf der UF aus dem Workbook Open Ereignis
Wenn Passwort Korrekt, dann Blatt- und Arbeitsmappenschutz entfernen, sonst nicht.
Der Zustand der Datei (Schreibgeschützt oder Nicht) kann nicht mehr geändert werden, weil die Datei bereits geöffnet ist
Gruss Rainer
AW: Passwortabfrage über Userform
10.04.2005 12:04:43
Daniel
Sorry bin wohl doch nicht so gut in VBA
habe leider nichts verstanden Aufruf der UF aus dem Workbook Open Ereignis ist ok User Form erstellen ebenfalls. Aber dann.. den Code keine Ahnung.
Sorry
Anzeige
AW: Passwortabfrage über Userform
10.04.2005 12:10:17
Ramses
Hallo
du musst in der UF eine Textbox reinsetzen Dort muss der Benutzer das Passwort eingeben Im OK Button dann prüfen, ob das Passwort korrekt ist
Private Sub OK_Button_Click() Dim i as Integer dim myPw as String myPW = "MeinPasswort" If Me.Textbox1.Text = myPW Then For i = 1 to Worksheets.Count Worksheets(i).Unprotect myPW Next i Else Msgbox "Falsches Passwort" End If Unload Me End If
Die Tabellen sollten dann natürlich alle mit dem gleichen Passwort geschützt sein. Ansonsten musst du halt alle Sheets einzeln "entschützen".
Gruss Rainer