[VBA] 如何 隐藏 Excel 主窗口

我们可以利用隐藏主窗口的方式要求使用者输入账号密码，如下图

由上图得知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的安全性才能执行本范例！

若有谬误，烦请告知，新手发帖请多包涵

2010~2017 C# 第四季

原文:大专栏  [VBA] 如何 隐藏 Excel 主窗口