如何在VBA中停止浏览器关闭

Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True '设置为True可见，False隐藏
ie.Navigate "http://www.example.com" '替换为你要打开的网页地址

Do While ie.Busy Or ie.readyState <> 4
    DoEvents
Loop

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If TypeName(Application.ActiveWindow) = "HTMLWindow" Then
        Cancel = True '取消关闭操作
    End If
End Sub

Dim ie As Object

Sub OpenWebpage()
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate "http://www.example.com"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If TypeName(Application.ActiveWindow) = "HTMLWindow" Then
        Cancel = True
    End If
End Sub