初始化时清除用户表单

Question

我有一个系统，当选中一个复选框时，它将保存用户名和密码信息，但是如果不选中它，它将清除密码。

在某些情况下，当我打开表单时，如果我调试并逐行运行，则可以正常运行，但这几乎就像userform / excel的缓存不会每次都将其清除一样。

Private Sub UserForm_Initialize()

Dim StoreUsername As String, StorePassword As String, storeCheckbox As String

Application.DisplayFullScreen = True

With Me
   .Width = Application.UsableWidth / 4
   .Height = Application.UsableHeight / 2
End With

With Frame1
   .Width = Application.UsableWidth / 2
   .Height = Application.UsableHeight / 4
End With    

TextBox2.Value = ""
TextBox2.PasswordChar = "*"

StoreUsername = Sheets("Settings").Range("A2").Value
StorePassword = Sheets("Settings").Range("B2").Value

If Sheets("Settings").Range("C2").Value = "True" Then
        CheckBox1.Value = True

ElseIf Sheets("Settings").Range("C2").Value = "False" Then
        CheckBox1.Value = False

End If

If CheckBox1.Value = True Then
    TextBox1.Value = StoreUsername
    TextBox2.Value = StorePassword

ElseIf CheckBox1.Value = False Then
    TextBox1.Value = StoreUsername
    TextBox2.Value = ""

End If

End Sub


Private Sub CommandButton1_Click()

Dim username As String, Password As String, R As Range, M As Range
Dim Name As String, SECLEVEL As String, Level As String

Dim StoreUsername As String, StorePassword As String
Dim CheckboxStatus As String

username = Login.TextBox1.Value
Password = Login.TextBox2.Value

Set R = Sheets("Employee").Range("A:A").Find(What:=TextBox1.Text, LookAt:=xlWhole, MatchCase:=False)
Set M = Sheets("Employee").Range("F:F").Find(What:=TextBox2.Text, LookAt:=xlWhole, MatchCase:=False)

'MsgBox r

If R Is Nothing Then
    MsgBox "User is not found"
    Exit Sub

Else
    Name = R.Offset(0, 1).Value

End If

SECLEVEL = R.Offset(0, 4).Value

MainMenu.Label3.Caption = "Good Morning " & Name

SuperAdminMainMenu.Label3.Caption = "Good Morning " & Name

'Level = SECLEVEL.Value

If TextBox1.Value = "" Then
    MsgBox "You need to Enter a valid Username"
    Exit Sub

Else

    If TextBox2.Value = "" Then
        MsgBox "You need to Enter a valid Password"
        Exit Sub

    Else

    End If

End If

If R Is Nothing Then
    MsgBox "Please Enter a valid Username"

Else

    If M Is Nothing Then
        MsgBox "Please Enter a valid Username and Password"

    Else

        If R.Offset(0, 4).Value = "Super Admin" Then
            Application.DisplayFullScreen = True
            SuperAdminMainMenu.Label4 = username
            MainMenu.TextBox1.Value = username

            If CheckBox1.Value = True Then

                Sheets("Settings").Range("C2").Value = "True"
                Sheets("Settings").Range("A2").Value = username
                Sheets("Settings").Range("B2").Value = Password

            ElseIf CheckBox1.Value = False Then

                Sheets("Settings").Range("C2").Value = "False"
                Sheets("Settings").Range("A2").Value = username
                Sheets("Settings").Range("B2").Value = ""

            End If

            Login.Hide

            SuperAdminMainMenu.Show

        Else

            Application.DisplayFullScreen = True
            MainMenu.TextBox1.Value = username

            If CheckBox1.Value = True Then

                Sheets("Settings").Range("C2").Value = "True"
                Sheets("Settings").Range("A2").Value = username
                Sheets("Settings").Range("B2").Value = Password

            ElseIf CheckBox1.Value = False Then

                 Sheets("Settings").Range("C2").Value = "False"
                 Sheets("Settings").Range("A2").Value = username
                 Sheets("Settings").Range("B2").Value = ""
                 TextBox2.Value = ""

            End If

            Login.Hide

            MainMenu.Show

        End If

    End If

End If

End Sub

Answer 1

当您使用Login.Hide ，userform是隐藏的，但是表单中的数据仍然保留。 尝试改用“ Unload Me 。