Passwort aus Datum generieren

Computer: Software & Programmierung Visual Basic
#1

Hallo.
Hab da mal wieder was für euch Experten. Ich möchte eine Passwortabfrage vor meine Tabellen schalten, wo sich das Lösungswort aus dem aktuellen Datum und vielleicht sogar der aktuellen Uhrzeit bildet. Also Lösung vielleicht so: 142327012013 (für 14:23 am 27.01.2013). Wäre das möglich? Hab es bis jetzt so, was auch noch nicht wirklich funktioniert:

Private Sub CommandButton1_Click()

If Me.passwort = Date Then
Sheets(„Codes“).Visible = True
Sheets(„Codes“).Select
Unload Me

Else

MsgBox „Nur Helge Schneider hat diese Berechtigung!“, vbCritical, „Fehler“
For Each ctl In Me.Controls
If TypeName(ctl) = „TextBox“ Or TypeName(ctl) = „ComboBox“ Then
ctl.Value = „“
ElseIf TypeName(ctl) = „CheckBox“ Then
ctl.Value = False
End If
Next ctl
End If
End Sub

Vielen Dank für eure Mühen.

#2

Hab da mal wieder was für euch Experten. Ich möchte eine
Passwortabfrage vor meine Tabellen schalten, wo sich das
Lösungswort aus dem aktuellen Datum und vielleicht sogar der
aktuellen Uhrzeit bildet. Also Lösung vielleicht so:
142327012013 (für 14:23 am 27.01.2013). Wäre das möglich? Hab
es bis jetzt so, was auch noch nicht wirklich funktioniert:

Hallo Feets,

du brauchst Userform1
mit den drei Elementen
lblKennwort (Label)
tbKennwort (TectBox)
cbPruefung (CommandButton)

In lblKennwort kommt die Eingabeaufforderung des Kennwortes rein.
In tbKennwort wird es eingetippselt.
Capion von Userform1 ist leer.

Dazu brauchste noch die nachstehenden Codes.

Gruß
Reinhard

In ein Standardmodul:

Option Explicit

Private Sub cbPruefung\_Click()
If tbKennwort.Text = Format(Now, "hhmmDDMMYYYY") Then
 MsgBox "Richtig"
Else
 MsgBox "Falsch"
End If
End Sub

Private Sub UserForm\_Activate()
Call Start
End Sub

Private Sub UserForm\_Deactivate()
Call Stopp
End Sub

Private Sub UserForm\_Terminate()
Call Stopp
End Sub

In das Modul der Userform:

Option Explicit

Private Sub cbPruefung\_Click()
If tbKennwort.Text = Format(Now, "hhmmDDMMYYYY") Then
 MsgBox "Richtig"
Else
 MsgBox "Falsch"
End If
End Sub

Private Sub UserForm\_Activate()
Call Start
End Sub

Private Sub UserForm\_Deactivate()
Call Stopp
End Sub

Private Sub UserForm\_Terminate()
Call Stopp
End Sub
#3

Prima! Das funktioniert Super!

Dankeschön!

#4

Prima! Das funktioniert Super!

Hallo Feets,

wie das funktiert schon super *staun* :smile:
Ich hatte den Code doppelt in beiden Modulen.

In das Standardmodul gehört dieser Code:

Option Explicit
Dim Intervall As Date
 
Sub Start()
Intervall = Now + TimeValue("00:00:01")
UserForm1.Caption = "Kennwortabfrage " & Format(Now, "DD.MM.YYYY hh:mm:ss")
Application.OnTime Intervall, "Start"
End Sub
 
Sub Stopp()
On Error Resume Next
Application.OnTime Intervall, "Start", , False
End Sub

Gruß
Reinhard