AW: Passworteingabe in txtBox prüfen
23.11.2006 10:19:57
Engelbert
Hi Dennis, jetzt vielleicht?
1. in Diese Arbeitsmappe:
Private Sub Workbook_Open()
Sheets("Timer").Range("D1") = 0
End Sub
2. und deine Userform:
Private Sub CommandButton2_Click()
Dim Pfad As String
Dim wb1 As Workbook
Dim ws1 As Worksheet
Dim Wert As Long
Application.EnableCancelKey = xlDisabled
Set wb1 = ThisWorkbook
Set ws1 = wb1.Worksheets("Timer")
' Application.ScreenUpdating = False 'ausschalten der Bildschirmaktualisierung
Sheets("Timer").Visible = True 'xlVeryHidden 'Vorteil sie können nicht über "Format" -> "Blatt einblenden" eingeblendet werden
Wert = Sheets("Timer").Range("D1")
If TextBox1.Text = Sheets("Timer").Cells(1, 3).Text Then
'Prüfen ob Passwort noch gültig
'code aus dem Netz bekommen
If ws1.Cells(1, 1).Value = "" Then 'eintrag des starttages der Frist beim ersten Start
ws1.Cells(1, 1).Value = Date
End If
'Test ob die Frist rum ist
If ws1.Cells(1, 2).Value = "unbegrenzt#543" Then 'bei Besitz einer unbegrenzt gültigen Version (string ist egal bedeutung ist wichtig)
If ws1.Cells(1, 1).Value + ws1.Cells(1, 2).Value < Date Then 'wenn startdatum+Frist schon vergangen sind
Unload Me
frmStartseite.Show
Sheets("test").Visible = -1
Else
Application.ScreenUpdating = True
MsgBox "Das Passwort ist abgelaufen.", vbInformation, "Passwortänderung"
Application.DisplayAlerts = False
Unload Me
frmändern.Show
End If
End If
Else
Sheets("Timer").Range("D1") = Wert + 1
If Wert = 2 Then ThisWorkbook.Close savechanges:=False
Label2.Visible = True 'Kennwort falsch
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1)
Application.ScreenUpdating = True 'ausschalten der Bildschirmaktualisierung
End If
End Sub
Schöne Grüße aus Nürnberg, Bert