运行时错误1004-无法设置范围类的“隐藏”属性

Question

我为员工设置了一个表格，用于在特定单元格中输入数据。我已经使用宏根据单元格值自动隐藏了行。宏代码在选择“荷兰”时隐藏行，而在选择“瑞士”时取消隐藏行。我正在尝试保护工作表，并保留一些未受保护的单元格（其中之一是我插入宏的位置），以便员工只能编辑这些单元格。

我尝试了各种锁定和解锁方式，但是没有任何作用

Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveSheet.Activate

    If Not Application.Intersect(Range("G9"), Range(Target.Address)) Is Nothing Then
        Select Case Target.Value
        Case Is = "Netherlands": Rows("23:24").EntireRow.Hidden = True
                                 Rows("31:31").EntireRow.Hidden = False

        Case Is = "Switzerland": Rows("23:24").EntireRow.Hidden = False
                                 Rows("31:31").EntireRow.Hidden = True

        End Select
    End If
End Sub

我希望受到工作表保护，并且员工能够编辑未锁定的单元格，并且也应该没有错误。