如何检查AutoSave状态并自动开启？VBA代码失效求助

问题分析 #

你的VBA代码无法触发错误提示，核心问题有两个：

1. 错误处理语句位置错误：On Error GoTo 必须放在可能抛出错误的代码（.AutoSaveOn = True）之前，否则赋值失败时无法捕获错误。
2. 流程跳转逻辑错误：GoTo SkipErrHandler 直接跳过了错误处理分支，即使触发错误也不会执行MsgBox。

另外，需要确保子程序正确绑定到工作簿的SheetChange事件，否则工作表变更时不会自动执行检查。

修正后的代码 #

1. 错误处理修复后的检查子程序 #

Public Sub CheckAutoSave()
    With ActiveWorkbook
        If .AutoSaveOn = False Then
            ' 先开启错误捕获，再执行可能出错的操作
            On Error GoTo AutoSaveErrHandler
            .AutoSaveOn = True
            ' 无错误时直接跳过错误处理
            GoTo SkipErrHandler
            
AutoSaveErrHandler:
            ' 捕获到错误时弹出提示
            MsgBox "AutoSave开启失败，请关闭并重新打开文档。", vbOKOnly + vbExclamation
            
SkipErrHandler:
            ' 重置错误捕获状态
            On Error GoTo 0
        End If
    End With
End Sub

2. 绑定到SheetChange事件 #

打开ThisWorkbook模块，添加以下代码，确保每次工作表内容变更时自动触发检查：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Call CheckAutoSave
End Sub

关键说明 #

• 错误捕获时机：必须在执行.AutoSaveOn = True前设置On Error GoTo，才能捕获赋值失败的错误（比如文档权限问题、协作文档状态异常）。
• 重置错误状态：On Error GoTo 0 用于恢复默认错误处理，避免影响后续代码执行。
• 事件绑定：只有将检查子程序关联到Workbook_SheetChange事件，才能实现工作表变更时自动检查AutoSave状态。

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