用VBA試試吧,首先確保你的工作薄中有至少兩個工作表(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
注意:此處假設使用者名稱為“張三”,密碼為“123456”,你可以自己更改。我已經上傳了一個樣板,請注意檢視程式碼並做出思考。
用VBA試試吧,首先確保你的工作薄中有至少兩個工作表(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”,你可以自己更改。我已經上傳了一個樣板,請注意檢視程式碼並做出思考。