Password på form1

Det gør du sådan:

Indsæt en textbox og en knap.

Insæt denne kode:

Private sub(command1)
if text1.text = "dinkode" then form1.show else msgbox "Forkert kode!"
End Sub

ups.. sådan her:

Private sub command1()
if text1.text = "dinkode" then form2.show else msgbox "Forkert kode!"
End Sub

prøver

virker ikke når man tester det viser den bare form2 med det samme

det her skal i form1
Option Explicit

Private Sub Command1_Click()
    Dim Navn As String
    Dim Kodeord As Integer
    Navn = Text1.Text
        If Navn = "Jens Lyn" Then
            Kodeord = InputBox("Skriv 4-cifret kodeord")
                If Kodeord = 1234 Then
                    Form2.Show
                Else
                    MsgBox "Forkert - prøv med 1234"
                End If
        Else
            MsgBox "Prøv igen"
        End If
End Sub

bruger navn er Jens Lyn og loden er 1234
Mvh H Cichosz

codemasterz's kode dur nu også skal bare se sådan ud
Private Sub Command1_Click()
If text1.Text = "123456" Then form2.Show Else MsgBox "Forkert kode!"
End Sub

koden er 123456
Mvh H Cichosz