当先打开一个EXCEL文件时，VBA进入界面出错！

lvyongqing99

Private Sub CommandButton3_Click()
Dim a As String
Dim b As String
Dim c As Range
a = ComboBox1.Text
b = TextBox1.Text
Set c = Sheets("user").[a:b].Find(a, , , 1)
If a = "" Or b = "" Then
MsgBox ("用户名或密码不能为空!"), vbInformation, "收款管理系统V2.0"
'End If
Else

If Not c Is Nothing Then
If c.Offset(0, 1).Text = TextBox1.Text Then
MsgBox ("欢迎进入系统！"), vbInformation, "收款管理系统V2.0"
'定义主界面
Dim MainForm As Worksheet
Set MainForm = Sheets("主界面")
MainForm.Range("d13") = a
Sheets("user").Range("c2") = a
Sheets("user").Range("d2") = b
Unload Me
Application.Visible = True
Sheet3.Visible = xlSheetVeryHidden '需要定义xlSheetVeryHidden的值
Else
MsgBox ("密码错误，请重新输入..."), vbInformation, "收款管理系统V2.0"
TextBox1.SetFocus
End If
End If
End If
End Sub

先打开这个VBA文件，没任何问题，请各位高手指导！

3190496160

代涉及到工作表名称的加上工作簿名称限制，thisworkbook

3190496160

Private Sub CommandButton3_Click()
Dim a As String
Dim b As String
Dim c As Range
a = ComboBox1.Text
b = TextBox1.Text
Set c = ThisWorkbook.Worksheets("user").[a:b].Find(a, , , 1)
If a = "" Or b = "" Then
MsgBox ("用户名或密码不能为空!"), vbInformation, "收款管理系统V2.0"
'End If
Else
If Not c Is Nothing Then
If c.Offset(0, 1).Text = TextBox1.Text Then
MsgBox ("欢迎进入系统！"), vbInformation, "收款管理系统V2.0"
'定义主界面
Dim MainForm As Worksheet
Set MainForm = Sheets("主界面")
MainForm.Range("d13") = a
ThisWorkbook.Worksheets("user").Range("c2") = a
ThisWorkbook.Worksheets("user").Range("d2") = b
Unload Me
Application.Visible = True
ThisWorkbook.Sheet3.Visible = xlSheetVeryHidden '需要定义xlSheetVeryHidden的值
Else
MsgBox ("密码错误，请重新输入..."), vbInformation, "收款管理系统V2.0"
TextBox1.SetFocus
End If
End If
End If
End Sub

3190496160

lvyongqing99

3190496160 发表于 2023-2-6 08:50

谢谢侠圣！我学习测试一下！