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.
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
Prima! Das funktioniert Super!
Dankeschön!
Prima! Das funktioniert Super!
Hallo Feets,
wie das funktiert schon super *staun* 
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