如何在重新打开Excel文件后自动执行缩放锁定代码？

你的原代码通过无限循环监控缩放比例，但无法自动运行且存在资源占用过高的问题，以下是两种可行的解决方案：

方案一：工作簿打开自动启动循环监控 #

通过Workbook_Open事件实现文件打开时自动启动监控，同时优化代码减少资源占用：

1. 按Alt + F11打开VBA编辑器
2. 双击左侧工程窗口的ThisWorkbook模块
3. 粘贴以下代码：

Private Sub Workbook_Open()
    Call LockZoomInExcel
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    End
End Sub

Sub LockZoomInExcel()
    Do
        If Not ActiveWindow Is Nothing Then
            If ActiveWindow.Zoom <> 100 Then
                ActiveWindow.Zoom = 100
            End If
        End If
        DoEvents
        Application.Wait Now + TimeValue("00:00:00.1")
    Loop While True
End Sub

• Workbook_Open：文件打开时自动启动监控
• Workbook_BeforeClose：关闭文件时终止循环，避免后台残留
• Application.Wait：添加100毫秒延迟，降低CPU占用

方案二：窗口调整时触发检查（推荐） #

无需无限循环，仅在窗口大小改变时检查缩放比例，资源占用极低：

同样在ThisWorkbook模块中粘贴以下代码：

Private Sub Workbook_Open()
    ' 初始化缩放为100%
    If Not ActiveWindow Is Nothing Then
        ActiveWindow.Zoom = 100
    End If
End Sub

Private Sub Workbook_WindowResize(ByVal Wn As Window)
    ' 窗口调整时锁定缩放
    If Wn.Zoom <> 100 Then
        Wn.Zoom = 100
    End If
End Sub

注意事项 #

• 保存文件为启用宏的工作簿（.xlsm），否则宏无法运行
• 打开文件时需在Excel的安全提示中选择「启用内容」

内容的提问来源于stack exchange，提问作者Ethan