Code tự động đặt pass protect sheet "DIEM", khi chuyển qua sheet khác (1 người xem)

[LienDong]

Em nhờ anh chị, viết Code tự đặt pass protect như sau
file của em có 2 sheet là:
Sheet: DIEM và sheet TONGHOP
Khi em đang ở sheet DIEM mà chọn qua sheet TONGHOP (hay có thể sheet khác bất kỳ) thì sheet DIEM sẽ tự động đặt pass protect, với pass là "LIEN"
Khi đặt pass thì với điều kiện sheet DIEM vẫn filter được, nhưng không thể xoá, sửa, delete ...
* việc đặt pass của em với mục đích là vô ý đụng bàn phím mà bị sửa chữa số liệu
Em cảm ơn

 

[huhumalu]

Bạn đặt code này vào ThisWorkbook nhé.
Còn tắt mở filter hay các nội dung khác, thì bạn dùng Recordmarco để chỉnh sửa tùy ý.

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    ' Neu sheet vua roi khoi la "DIEM" thi khoa lai sheet do
    If Sh.Name = "DIEM" Then
        On Error Resume Next
        Sh.Unprotect Password:="LIEN"
        On Error GoTo 0
       
        Sh.Protect Password:="LIEN", _
                      AllowFormattingCells:=True, _
                      AllowSorting:=True, _
                      AllowFiltering:=True
    End If
End Sub

 

[LienDong]

Bạn đặt code này vào ThisWorkbook nhé.
Còn tắt mở filter hay các nội dung khác, thì bạn dùng Recordmarco để chỉnh sửa tùy ý.

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    ' Neu sheet vua roi khoi la "DIEM" thi khoa lai sheet do
    If Sh.Name = "DIEM" Then
        On Error Resume Next
        Sh.Unprotect Password:="LIEN"
        On Error GoTo 0
      
        Sh.Protect Password:="LIEN", _
                      AllowFormattingCells:=True, _
                      AllowSorting:=True, _
                      AllowFiltering:=True
    End If
End Sub

Cảm ơn anh
Em cũng recod nhưng lại để Private Sub Workbook_SheetDeactivate trong code sheet DIEM chứ không phải để trong ThisWordbook nên nó không chạy