Excel VBA如何遍历所有活动窗口

Posted 2023-04-30

这段小程序就把一个EXCEL文件中每个工作表的A1单元格填上了a

Sub tt()
For i = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(i).Cells(1, 1).Value = "a"
Next
End Sub 参考技术A 活动窗口（ActiveWindow）只有一个呀，用不着遍历 参考技术B for each window in xl.windows追答

是application.windows

[VBA] 如何 隐藏 Excel 主窗口

[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 主窗口