vba - 我正在尝试在所有工作表中运行此代码，除了工作簿中的一个

Question

Sub Worksheet_SelectionChange(ByVal ws As Range)

        Dim rInt As Range
        Dim rCell As Range

        Set rInt = Intersect(Target, Range("B1:B32, B37:B45, K3:K11, K12:K18"))
        If Not rInt Is Nothing Then
            For Each rCell In rInt
                rCell.Value = "1"
            Next
        End If
        Set rInt = Nothing
        Set rCell = Nothing


End Sub

Answer 1

将代码放在您拥有的所有工作表的工作表代码区域中，除了您要避免的一张工作表。