不保护工作表，程序运行很正常。但保护工作表后， 没办法实现触发CHANGE事件，会报错

tj_jim2008

请高手帮忙，多谢！多谢！

不保护工作表，程序运行很正常。但保护工作表后， 没办法实现触发CHANGE事件，会报错（报错见附件截图）请高手帮忙优化一下多谢！

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 And Target.Row > 6 And Target.Count = 1 Then
        With Sheet2
            If Application.WorksheetFunction.CountIf(.Range("A:A"), Target) > 1 Then
                Target.Offset(, 7) = "有重名"
                Target.Offset(, 8) = "有重名"
            Else
                I = .Range("A" & .Rows.Count).End(3).Row
                For Each rg In .Range("A1:A" & I)
                    If rg.Value = Target.Value Then
                        Target.Offset(, 8) = rg.Offset(, 1)
                        Target.Offset(, 9) = rg.Offset(, 2)
                        Target.Offset(, 10) = rg.Offset(, 3)
                        Target.Offset(, 6) = rg.Offset(, 4)



                    End If
                Next
            End If
        End With
End If

End Sub