Xin hỏi về code protect sheet

[tam8678]

Mong các anh em trên GPE hướng dẩn về code protect sheet trong trường hợp sau (mong muốn được ghi trong file đính kèm).
Xin cám ơn trước

 

[Hoàng Trọng Nghĩa]

Bạn cứ làm 2 cái Code, 1 code là Protect, 1 cái là UnProtect, khi nào muốn khóa hoặc mở thì gọi 1 trong 2 lệnh này ra.
VD:
Cmd1()
Call UnProtect
CODE CỦA BẠN
Call Protect
End Sub

 

[Hoàng Trọng Nghĩa]

Đây là code Protect và UnProtect, bạn tham khảo nhé!

Sub ProtectSheet()
On Error Resume Next
Workbooks(ThisWorkbook.Name).Activate
    ActiveSheet.Protect ("PassWord"), DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables _
        :=True
    ActiveSheet.EnableSelection = xlNoRestrictions
End Sub
‘*******************************************************************************
Sub UnProtectSheet()
On Error Resume Next
Workbooks(ThisWorkbook.Name).Activate
    ActiveSheet.Unprotect ("PassWord ")
End Sub

 

[TrungChinhs]

Theo tôi chỉ cần thế này cũng được.

Sub ProtectSheet()
On Error Resume Next
Workbooks(ThisWorkbook.Name).Activate
    ActiveSheet.Protect ("PassWord")
End Sub

Sub UnProtectSheet()
On Error Resume Next
Workbooks(ThisWorkbook.Name).Activate
    ActiveSheet.Unprotect ("PassWord")
End Sub

 

[sealand]

Mình xin gửi 1 file ví dụ. Nó cung lôi thôi 1 chút bạn than khảo nhé. Khi rời sheet2 thì tự động khóa sheet