Locked cell không cho copy trong sheet (2 người xem)

[overnight_9]

Dear các anh chị
Anh chị giúp xem code Workbook_SheetSelectionChange bị lỗi chổ nào mà không kích hoạt.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If InStr(".1.2.3.4.", "." & Sh.Name & ".") = 0 Then Exit Sub
    If Not Intersect(Target, Union(Sh.[A1:AA21], Sh.[AB19:IV21])) Is Nothing Then Application.CutCopyMode = False
End Sub

Mục đích là locked 2 vùng A1:AA21 & AB19:IV21 của sheet (1,2,3,4) không cho copy vùng này.

không biết lỗi gì mà sự kiện Sheetselectionchange không tác dụng, hay tôi khai tên sheet bị sai chăng? Mong anh chị chỉ giúp.
cảm ơn nhiều.

 

[Quang_Hải]

Dear các anh chị
Anh chị giúp xem code Workbook_SheetSelectionChange bị lỗi chổ nào mà không kích hoạt.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If InStr(".1.2.3.4.", "." & Sh.Name & ".") = 0 Then Exit Sub
    If Not Intersect(Target, Union(Sh.[A1:AA21], Sh.[AB19:IV21])) Is Nothing Then Application.CutCopyMode = False
End Sub

Mục đích là locked 2 vùng A1:AA21 & AB19:IV21 của sheet (1,2,3,4) không cho copy vùng này.

không biết lỗi gì mà sự kiện Sheetselectionchange không tác dụng, hay tôi khai tên sheet bị sai chăng? Mong anh chị chỉ giúp.
cảm ơn nhiều.

Nếu người sử dụng không enable macros cho code này không ép phê...

 

[overnight_9]

Nếu người sử dụng không enable macros cho code này không ép phê...

Không áp phê sư huynh, nó cứ trơ trơ luôn ah,

Nhưng sub này thì OK,

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If InStr(".1.2.3.", "." & Sh.Name & ".") = 0 Then Exit Sub
    If Not Intersect(Target, Union(Sh.[A18:AA22], Sh.[AB19:AC21])) Is Nothing Then Application.CutCopyMode = False
End Sub

Không cho copy vào vùng cấm thì được mà ngược lại thì không được nhờ các sư phụ chỉ giúp.

-------------------------------------------
Hôm nay sư phụ đi vắng rồi, em vọc và kết hợp proctetsheet thì có tác dụng.