09. november 2006 - 09:44Der er
8 kommentarer og 1 løsning
Hvordan skjules indtastningen i en InputBox
Private Sub UserForm_Initialize() Dim BrugerGodkendt As Boolean ' ny Variabel BrugerNavn = InputBox("Hjerte-Banken: Skriv dit navn") PINkode = InputBox("Velkommen til Hjerte-Banken," _ & BrugerNavn & ". Skriv venlist din PinKode") If BrugerNavn = "XXXX ZZZZZ" And PINkode = 1234 Then BrugerGodkendt = True Else BrugerGodkendt = False End If If BrugerGodkendt = True Then MsgBox "Navn og kode er genkendt." Else MsgBox "Forkert Navn eller kode.Afslutter program" End 'afslutter program End If End Sub
Når ovennævnte pinkode indtastes skal, koden jo ikke vises, men kun noget lignende som (****). Hvordan klares det? På forhånd tak!
Private Sub CommandButton1_Click() Dim BrugerGodkendt As Boolean ' ny Variabel BrugerNavn = Me.TextBox1 PINkode = Me.TextBox2 If BrugerNavn = "XXXX ZZZZZ" And PINkode = 1234 Then BrugerGodkendt = True Else BrugerGodkendt = False End If If BrugerGodkendt = True Then MsgBox "Navn og kode er genkendt." Else MsgBox "Forkert Navn eller kode.Afslutter program" End 'afslutter program End If
End Sub
i Properties på TextBox2, sættes PasswordChar til en *
Hej Kabbak. Jeg har lavet en userform og den kan godt kører. Men nu har jeg 2 userform og det er den første der starter op,skal hvordan skal jeg få den til at kører sammen med den anden.
Private Sub CommandButton1_Click() Dim BrugerGodkendt As Boolean ' ny Variabel BrugerNavn = Me.TextBox1 PINkode = Me.TextBox2 If BrugerNavn = "XXXX ZZZZZ" And PINkode = 1234 Then BrugerGodkendt = True Else BrugerGodkendt = False End If If BrugerGodkendt = True Then MsgBox "Navn og kode er genkendt."
Me.Hide ' skjuler formen med password Userform2.show ' linien kalder den anden userform
Else MsgBox "Forkert Navn eller kode.Afslutter program" End 'afslutter program End If
Hej Kabbak.: Nu åbner ingen af Userform op,den åbner programmet uden Brugernavn & Pinkode, skal jeg slette noget på denne code," Private Sub UserForm_Initialize()"
Hej Kabbak.: Tak for den nye oplysning,nu har jeg fået det til at virke. Da jeg har 2 userform, ha jeg rette denne, Private Sub Workbook_Open() userform1.show,til 2 End Sub Og slettet den code med inputBox, og så virker den. Du skal havde mange tak for hjælpen. Læg venligst et svar.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
