ข้อผิดพลาด VBA เมื่อแผ่นงานได้รับการป้องกัน

สวัสดีทุกคน รหัสทำงานได้ดี แต่ฉันไม่ทำงานเมื่อแผ่นงานได้รับการป้องกัน แม้ว่าฉันจะไม่ได้ป้องกันคอลัมน์ แต่คอลัมน์สำหรับการประทับเวลาคือ ฉันกำลังแนบข้อความแสดงข้อผิดพลาดปรากฏขึ้น โปรดช่วย [สิ่งที่แนบมา][/สิ่งที่แนบมา] [สิ่งที่แนบมา][/สิ่งที่แนบมา]


Worksheet_Change ย่อยส่วนตัว (เป้าหมายเป็นช่วง ByVal)
โทร Micro1(เป้าหมาย)
โทร Micro2(เป้าหมาย)
โทร Micro3(เป้าหมาย)
ย่อยสิ้นสุด

Private Sub Micro1 (เป้าหมาย ByVal เป็นช่วง)
ถ้า Target.Column = 1 แล้ว
Target.Offset(0, 1).เลือก
ElseIf Target.Column = 2 จากนั้น
Target.Offset(1, -1) เลือก
End If
ย่อยสิ้นสุด

Private Sub Micro2 (เป้าหมาย ByVal เป็นช่วง)
'อัปเดต 20140722
Dim WorkRng เป็นช่วง
Dim Rng เป็นช่วง
Dim xOffsetColumn เป็นจำนวนเต็ม
ตั้งค่า WorkRng = Intersect(Application.ActiveSheet.Range("A:A") เป้าหมาย)
xOffsetColumn = 2
ถ้าไม่ได้ผลก็ไม่มีอะไรทั้งนั้น
Application.EnableEvents = เท็จ
สำหรับแต่ละ Rng ในการทำงานRng
ถ้าไม่ใช่ VBA.IsEmpty(Rng.Value) แล้ว
Rng.Offset(0, 2).Value = ตอนนี้
Rng.Offset(0, 2).NumberFormat = "dd-mm-yyyy, hh:mm:ss"
อื่น
Rng.Offset(0, 2).ล้างเนื้อหา
End If
ถัดไป
Application.EnableEvents = จริง
End If
ย่อยสิ้นสุด

Private Sub Micro3 (เป้าหมาย ByVal เป็นช่วง)
'อัปเดต 20140722
Dim WorkRng เป็นช่วง
Dim Rng เป็นช่วง
Dim xOffsetColumn เป็นจำนวนเต็ม
ตั้งค่า WorkRng = Intersect(Application.ActiveSheet.Range("H:H"), Target)
xOffsetColumn = 6
ถ้าไม่ได้ผลก็ไม่มีอะไรทั้งนั้น
Application.EnableEvents = เท็จ
สำหรับแต่ละ Rng ในการทำงานRng
ถ้าไม่ใช่ VBA.IsEmpty(Rng.Value) แล้ว
Rng.Offset(0, 2).Value = ตอนนี้
Rng.Offset(0, 2).NumberFormat = "dd-mm-yyyy, hh:mm:ss"
อื่น
Rng.Offset(0, 2).ล้างเนื้อหา
End If
ถัดไป
Application.EnableEvents = จริง
End If
ย่อยสิ้นสุด