Pawoord vraag

[caffie]

Ik heb een paswoord controle gemaakt
Om code kleiner te maken dat ik dat het makkelijkere was om er een soort terug koppeling
van het krijgen

Ik wil het gebruiken in 1 module maar in diverse macros
Maar als ik controleer werkt het niet



TIP zijn welkom

Sub test()

Dim pswrd_cnt_rsp As String

pswrd_cnt
If pswrd_cnt_rsp = "oke" Then
MsgBox "Paswoord controle is gelukt"
Else
MsgBox "Paswoord controle is mislukt"
End If

End Sub

Sub pswrd_cnt()

Dim Pswrd As String
Dim paswoord As String
Dim pswrd_cnt_rsp As String


   Pswrd = "hark"
   
   paswoord = InputBox("Voor deze bewerkingen heb ik wel even een paswoord nodig")
   If paswoord <> Pswrd Then
    MsgBox ("Verkeerd paswwoord ingevuld?")
   Else
    pswrd_cnt_rsp = "oke"
   End If
      
End Sub

Het is het volgende geworden

Function Paswoord_controle(paswoord As String) As Boolean
Dim pswrd As String

Paswoord_controle = False
pswrd = "hark"
   
If paswoord <> pswrd Then
    MsgBox ("Verkeerd paswwoord ingevuld?")
Else
    Paswoord_controle = True
End If

End Function

        paswoord = InputBox("Voor deze bewerkingen heb ik wel even een paswoord nodig")
            If Paswoord_controle(paswoord) = True Then
            msgbox ("doe wat")
         Else
          msgbox ("fout paswoord")
           end if

 

[edmoor]

Je gebruikt je variabelen verkeerd.
Lees dit eens:
https://docs.microsoft.com/en-us/of...ng-started/understanding-scope-and-visibility

Daarnaast kan je er beter een Userform voor maken voor betere controle over het geheel.
Tevens kan je dan een tekst veld gebruiken waarbij je het ingetikte niet ziet.

Ennuh, het is wachtwoord.
Paswoord doet zeer aan m'n ogen

 

[popipipo]

Paswoord doet zeer aan m'n ogen

Je mag, wat mij betreft ook het engelse Password gebruiken.