Hallo Zusammen,

ich bin gerade dabei einige Änderungen an einem Frontend vorzunehmen.

Bisher konnte bei einer Toleranzabweichung eine MessageBox geöffnet, in der dann die Abweichungen Angezeigt wurden. Dann konnte ziwschen freigeben (ja) und nicht freigeben (nein) gewählt werden.

Nun soll aber vor der Freigabe eine Passwort eingegeben werden.

Der bisherige Code:

If Fehler_Gesamt Or Fehler_Mehl Or Fehler_Zucker Or Fehler_Hefe Or Fehler_Salz Or Fehler_Farbstoff Or Fehler_Nüsse Then
	Antwort = MsgBox(("Achtung Toleranzverletzung!" + Chr(13) + Chr(13) + Chr(13) + Text_Gesamt + Chr(13) + Chr(13) + Text_Mehl + Chr(13) + Chr(13) + Text_Zucker + Chr(13) + Chr(13) + Text_Hefe + Chr(13) + Chr(13) + Text_Salz + Chr(13) + Chr(13) + Text_Farbstoff + Chr(13) + Chr(13) + Text_Nüsse + Chr(13) + Chr(13) + Chr(13) + "Für Freigabe bitte mit Ja bestätigen, sonst Nein wählen."), vbYesNo + vbCritical)
	FldToleranzabweichung = "Ja"
    If Antwort = vbYes Then    ' Benutzer hat "Ja" gewählt.
        FldFreigabe = "freigegeben"    ' Operation ausführen.
    Else    ' Benutzer hat "Nein" gewählt.
        FldFreigabe = "gesperrt"    ' Operation ausführen.
    End If
Else
    FldFreigabe = "freigegeben"    ' Operation ausführen.
    FldToleranzabweichung = "Nein"
End If	

Nun habe ich den Code wie folgt geändert:

If Fehler_Gesamt Or Fehler_Mehl Or Fehler_Zucker Or Fehler_Hefe Or Fehler_Salz Or Fehler_Farbstoff Or Fehler_Nüsse Then
	Antwort = MsgBox(("Achtung Toleranzverletzung!" + Chr(13) + Chr(13) + Chr(13) + Text_Gesamt + Chr(13) + Chr(13) + Text_Mehl + Chr(13) + Chr(13) + Text_Zucker + Chr(13) + Chr(13) + Text_Hefe + Chr(13) + Chr(13) + Text_Salz + Chr(13) + Chr(13) + Text_Farbstoff + Chr(13) + Chr(13) + Text_Nüsse + Chr(13) + Chr(13) + Chr(13) + "Für Freigabe bitte mit Ja bestätigen, sonst Nein wählen."), vbYesNo + vbCritical)
	FldToleranzabweichung = "Ja"
    If Antwort = vbYes Then    ' Benutzer hat "Ja" gewählt.
       'FldFreigabe = "freigegeben"    ' Operation ausführen.
        Dim strEingabe As String
        strEingabe = InputBox("Bitte Code eingeben", "Eingabe")
        If strEingabe = "1234" Then
            FldFreigabe = "freigegeben"
        Else
            FldFreigabe = "gesperrt"
        End If
    Else    ' Benutzer hat "Nein" gewählt.
       FldFreigabe = "gesperrt"    ' Operation ausführen.
    End If
Else
    FldFreigabe = "freigegeben"    ' Operation ausführen.
    FldToleranzabweichung = "Nein"
End If	

Leider ist das Passwortfeld nicht unkenntlich, daher würde ich jetzt gerne eine Passwortfomular schreiben, das aber universell einsetzbar sein soll.

Es soll quasi als Paramter den Passwortsollwert übergeben kiregen und dann eine Ok oder nicht ok zurückliefern.

Kann mir jemand auf die Sprünge helfen?