Private Sub Workbook_Open() Sheet1.Visible = xlSheetVeryHidden UserForm1.ShowEnd 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 IfEnd Sub
用VBA試試吧,首先確保你的工作薄中有至少兩個工作表(sheet),然後ALT+F11,新建一個使用者窗體,用預設名稱:userform1,拖放兩個標籤控制元件,兩個文字框控制元件,一個按鈕控制元件。在“ThisWorkbook"上雙擊,在右邊輸入如下程式碼:
Private Sub Workbook_Open() Sheet1.Visible = xlSheetVeryHidden UserForm1.ShowEnd 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 IfEnd Sub
注意:此處假設使用者名稱為“張三”,密碼為“123456”,你可以自己更改。我已經上傳了一個樣板,請注意檢視程式碼並做出思考。