Vb Kode med password i userform

Hej splokit

Private Sub CommandButton1_Click()
Dim Pass As String
Pass = TextBox1

If TextBox1 = "test" Then
UserForm2.Show
Else
If TextBox1 = "" Then
MsgBox "Du skal indtaste et paswood"
Else
MsgBox "Forkert paswood"


End If
End If

'MsgBox Me.TextBox1
TextBox1 = ""
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub


mvh

mvhansen

========== Kode til ThisWorkbook: =====================
Public okFlag As Boolean

Sub workbook_activate()
    okFlag = False
End Sub

Public Function testAdgang()
    Load UserForm1
    UserForm1.Show
    testAdgang = okFlag
End Function

Public Sub LåsArk()
    ActiveSheet.Protect
End Sub

Public Sub ÅbnLåsArk()
    ActiveSheet.Unprotect
End Sub

========== Kode til Ark1: =====================
Dim ræk, kol

Private Sub Worksheet_Change(ByVal Target As Range)
    If ThisWorkbook.okFlag = False Then
        If ThisWorkbook.testAdgang = False Then
                Cells(ræk, kol) = ""
        End If
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ræk = Target.Row
    kol = Target.Column
End Sub

========== Kode til Userform1: =====================
Private Sub f_pw_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim strPassWord As String
    strPassWord = f_pw.Value
    If strPassWord <> "XXX" Then
'        ActiveWorkbook.Close
        f_annuller_Click
        ThisWorkbook.okFlag = False
    Else
        ThisWorkbook.okFlag = True
        Unload UserForm1
    End If
End Sub

Private Sub f_annuller_Click()
    ThisWorkbook.okFlag = False
    Unload UserForm1
End Sub

mvhansen. Det er over i denne her stil jeg vil over i!?
''ThisWorkbook
Private Sub CommandButton1_Click()
Load UserForm1
End Sub

''TextBox1
Private Sub TextBox1_Change()
If TextBox1 = "Pass" Then
Unload UserForm1
Workbooks("Ark1.xls").Activate
Else
If TextBox1 = "" Then
Unload UserForm1
ActiveWorkbook.Close
End If
End If
End Sub

supertekst.
Jeg kan ikke få den til at virke, hvor er textbox1

Det eneste jeg skal bruge på userformen er 1 textbox ikke andet men din kode kan jeg ikke få til at virke

I min kode hedder tekstboksen f_pw - jfr. med uddrag af koden:

Private Sub f_pw_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim strPassWord As String
    strPassWord = f_pw.Value

humm jeg kan ikke få den til at virke

er der nogle knapper i din kode!?

Humm