使用Excel中的宏命令（VB寫的）實現 注：投入使用需要加密，不要跳出除錯視窗（儘可能的捕捉掉執行中的異常） 用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"
使用Excel中的宏命令（VB寫的）實現 注：投入使用需要加密，不要跳出除錯視窗（儘可能的捕捉掉執行中的異常） 用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"