Herbers Excel-Forum - das Archiv

Userform mit Passwort

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

Betrifft: Userform mit Passwort
von: faby71

Geschrieben am: 17.02.2005 02:51:50
Hallo,
kann mir bitte jemand sagen was mache ich falsch:
Ich habe
userform---frmPasswort
textfeld---txtpasswort
button-----bpassword
Der Button habe ich so programmiert
Private Sub bPasswort_Click()
Unload FrmPasswort
Range("F14").Select
End Sub

Option Explicit
Sub schutzweg()
Dim ws As Worksheet
Dim pw, pass As String
FrmPasswort.Show
pw = FrmPasswort.txtPasswort.Text
pass = "faby"
If pw = pass Then
For Each ws In Worksheets
ws.Unprotect Password:=pw
Next ws
Else
MsgBox ("Sorry,falsche Passwort")
End If
End Sub

Ich bekomme immer Sorry, falsche Passwort obwohl ich die richtige eingebe.
Hilfe
Danke
Faby
Bild

Betrifft: AW: Userform mit Passwort
von: Huber Peter

Geschrieben am: 17.02.2005 03:22:31
hallo faby
versuch mal
Sub schutzweg()
Dim ws As Worksheet
Dim pw, pass As String 'XXXXXXXX
FrmPasswort.Show
zu ändern in
Sub schutzweg()
Dim ws As Worksheet
Dim pw As String , pass As String
FrmPasswort.Show
ciao peter
Bild

Betrifft: AW: Userform mit Passwort
von: faby71
Geschrieben am: 17.02.2005 05:45:16
Hallo Peter,
Dim pw,pass as string
oder
Dim pw as string, pass as string
Ist genau dass gleiche, ich bekomme immer die gleiche Meldung obwohl ich die richtige Passwort eingebe

Fabiano
Bild

Betrifft: AW: Userform mit Passwort
von: Peter

Geschrieben am: 17.02.2005 07:02:33
Hallo FDabiano
In deinem Makro wird die abfrage gleich weiter verarbeitet obwohl ja noch gar kein Passwort eingegeben ist. Nur durch den Klick auf deinen Butten kommt erst jetzt die Anzeige. Du mußt die Abfrage aus dem Makro rausnehmen und in Deinen Button einbauen.
Private Sub CommandButton1_Click()
pw = FrmPasswort.txtPasswort.Text
pass = "faby"
If pw = pass Then
For Each ws In Worksheets
ws.Unprotect Password:=pw
Next ws
Else
MsgBox ("Sorry,falsche Passwort")
End If
Unload FrmPasswort
Range("F14").Select
End Sub

So müßte es gehen Probier mal. Bei mir kamm dan keine Fehler.
Gruß Peter
 Bild
Excel-Beispiele zum Thema "Userform mit Passwort"
Diagramm in Userform XL-Dateien in UserForm listen
UserForm an Excel-Fenster anpassen Fundstellen in UserForm listen
Module und UserForms austauschen In einer Schleife auf Elemente einer UserForm zugreifen
Werte in eine ComboBox einer UserForm übernehmen Zellinhalt als Label-Aufschrift in UserForm
Alle CheckBoxes einer UserForm ansprechen Wenn kein Eintrag, UserForm nicht schließen