Worksheet_Change保护工作表致同表其他宏无法运行问题咨询

问题根源 #

当其他宏修改工作表内容时，会触发Worksheet_Change事件，而事件中强制执行的工作表保护操作会打断宏的正常执行，导致逻辑冲突。

解决方案 #

1. 修改其他宏，临时禁用事件触发

在执行修改工作表的宏时，先禁用事件，避免Worksheet_Change干扰执行流程：

Sub Office_Counter_E()
    Application.ScreenUpdating = False
    Application.EnableEvents = False ' 禁用事件，避免触发Worksheet_Change
    
    Sheet17.Unprotect ("1")
    Sheet17.Range("AC5").Value = 1
    Sheet17.Range("AD5:AG5").ClearContents ' 简化清空操作
    Sheet17.Protect ("1")
    
    Application.EnableEvents = True ' 恢复事件触发
    Application.ScreenUpdating = True
End Sub

2. 优化Worksheet_Change事件的保护逻辑

调整事件代码，仅在需要处理合并单元格时才执行解锁/保护，同时优化错误处理确保状态恢复：

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo ErrorHandler
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    
    Dim c As Range, ma As Range
    Dim cWdth As Double, MrgeWdth As Double, NewRwHt As Double
    
    With Target
        If .MergeCells And .WrapText Then
            Me.Unprotect ("1") ' 用Me指向当前工作表，避免ActiveSheet的不确定性
            
            Set c = .Cells(1, 1)
            cWdth = c.ColumnWidth
            Set ma = c.MergeArea
            
            For Each cc In ma.Cells
                MrgeWdth = MrgeWdth + cc.ColumnWidth
            Next
            
            ma.MergeCells = False
            c.ColumnWidth = MrgeWdth
            c.EntireRow.AutoFit
            NewRwHt = c.RowHeight
            c.ColumnWidth = cWdth
            ma.MergeCells = True
            ma.RowHeight = NewRwHt
            
            Me.Protect ("1")
        End If
    End With

Cleanup:
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Exit Sub

ErrorHandler:
    ' 错误时确保工作表回到保护状态
    If Not Me.ProtectContents Then
        Me.Protect ("1")
    End If
    MsgBox "执行出错: " & Err.Description, vbExclamation
    Resume Cleanup
End Sub

关键修改点说明 #

• 禁用事件触发：其他宏执行时关闭事件，防止Worksheet_Change重复执行保护逻辑
• 精准工作表引用：用Me代替ActiveSheet，避免切换工作表时的错误
• 缩小保护范围：仅在处理合并单元格时解锁工作表，减少不必要的状态变更
• 完善错误处理：确保无论是否出错，都恢复事件和屏幕更新，同时维持工作表保护状态

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