Passwortabfrage über Userform

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm TextBox MsgBox
Bild

Betrifft: Passwortabfrage über Userform
von: Daniel
Geschrieben am: 10.04.2005 11:47:13
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

Bild

Betrifft: AW: Passwortabfrage über Userform
von: Ramses
Geschrieben am: 10.04.2005 11:51:35
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
Bild

Betrifft: AW: Passwortabfrage über Userform
von: Daniel
Geschrieben am: 10.04.2005 12:04:43
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
Bild

Betrifft: AW: Passwortabfrage über Userform
von: Ramses
Geschrieben am: 10.04.2005 12:10:17
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
Bild

Betrifft: AW: Passwortabfrage über Userform
von: Daniel
Geschrieben am: 10.04.2005 12:16:08
Danke
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Passwortabfrage über Userform"