[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 IfEnd Sub

Private Sub Cancel_Click()    Unload Me    ‘关闭应用程序    Application.QuitEnd Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)    ‘判断是否按X关闭    If CloseMode  1 Then        Cancel = True        ‘关闭应用程序        Application.Quit    End IfEnd Sub

3.范例下载：如何隐藏主窗口.rar

PS.别忘了设定Execl的安全性才能执行本范例！

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

2010~2017 C# 第四季

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

原文地址：https://www.cnblogs.com/petewell/p/11495873.html