余小章 @ 大內殿堂

我們可以利用隱藏主視窗的方式要求使用者輸入帳號密碼，如下圖

由上圖得知Excel已經在執行了，但是主要的應用程式視窗被藏起來了。

1.隱藏的方式其實很簡單只要設定Application.Visible = True 屬性即可

2.或是利用下列屬性，將主視窗移出螢幕
Application.WindowState = xlNormal
Application.Left = 10000

如何隱藏 Excel 主視窗

1.利用Workbook_Open事件，使Excel一執行後便隱藏主程式畫面

 Private Sub Workbook_Open()
    '活頁簿開啟時即隱藏Excel
     Application.Visible = False
     '秀出登入畫面
     UserForm1.Show
 End Sub

 

2.加入判斷是否登入成功程式碼

Private Sub Login_Click()
    If UserName = "余小章" And UserPassword = "ggyy" Then
        Unload Me
        '登入成功後顯示EXCEL
        Application.Visible = True
    Else
        MsgBox "使用者名稱或密碼錯誤!", vbCritical, "錯誤"
    End If
End Sub

Private Sub Cancel_Click()
    Unload Me
    '關閉應用程式
    Application.Quit
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    '判斷是否按X關閉
    If CloseMode <> 1 Then
        Cancel = True
        '關閉應用程式
        Application.Quit
    End If
End Sub

3.範例下載：如何隱藏主視窗.rar

 

 

PS.別忘了設定Execl的安全性才能執行本範例！

若有謬誤，煩請告知，新手發帖請多包涵

Microsoft MVP Award 2010~2017 C# 第四季
Microsoft MVP Award 2018~2022 .NET