首先确保工作薄中有至少两个工作表(sheet),然后ALT+F11,新建一个用户窗体,用默认名称:userform1,拖放两个标签控件,两个文本框控件,一个按钮控件。在“ThisWorkbook上双击,在右边输入如下代码: Private Sub Workbook_Open() Sheet1.Visible = xlSheetVeryHidden UserForm1.Show End Sub 然后双击按钮控件,输入如下代码: Private Sub CommandButton1_Click() If TextBox1.Text = 张三 And TextBox2.Text = 123456 Then Unload Me Sheet1.Visible = xlSheetVisible Sheet1.Activate Else MsgBox 请输入正确的用户名和密码!, vbOKOnly + vbInformation, 提醒 TextBox1.SetFocus End If End Sub 注意:此处假设用户名为“张三”,密码为“123456