Xin giúp code lock/unlock vùng lựa chọn

[letuvan]

Mình có file báo cáo hằng ngày trên thư mục chung có rất nhiều công thức nên chỉ muốn mọi người xem, có thể click vào từng ô xem công thức mà ko được chỉnh sửa (Chế độ view)

Do vậy muốn nhờ các bạn giúp mình đoạn code như sau:

+ Code lock/unlock từ ô C6 đến ô L30: Chế độ view và chế độ chỉnh sửa
+ Tích hộp lock/unlock trong 1 phím mình đã để sẵn
+ Không cần mật khẩu để lock

Mình gửi file đính kèm nhé

Mong nhận được sự giúp đỡ từ các cao thủ

 

[letuvan]

Có ai giúp mình ko ạ

 

[leonguyenz]

Bạn tìm hiểu Protect Sheet chưa? Nếu chưa thì nên tìm hiểu và áp dụng cho trường hợp này.
Chọn các ô bạn muôn cho người khác chỉnh sửa, Format Cells (nhấn Ctrl+1)> tab Protection > bỏ chọn Locked > OK. Trên thanh công cụ, tab Review > Protect Sheet > đặt password (nhập 2 lần) > OK.

 

[letuvan]

Bạn tìm hiểu Protect Sheet chưa? Nếu chưa thì nên tìm hiểu và áp dụng cho trường hợp này.
Chọn các ô bạn muôn cho người khác chỉnh sửa, Format Cells (nhấn Ctrl+1)> tab Protection > bỏ chọn Locked > OK. Trên thanh công cụ, tab Review > Protect Sheet > đặt password (nhập 2 lần) > OK.

Mình biết tính năng đó, tuy nhiên mình muốn chủ động trong việc lock/unlock khi xem
sử dụng pass mỗi lần sửa lại unlock và mỗi lần chỉnh sửa dữ liệu chọn lại vùng để lock rất bất tiện
hơn nữa mình chỉ muốn chế độ view vẫn có thể kick vào để xem mà ko chỉnh sửa đc

 

[leonguyenz]

Bạn tham khảo code sau:

Sub Rectangle3_Click()
With Sheet1
    If .Shapes("Rectangle 3").TextFrame.Characters.Text = "Lock" Then
        .Unprotect "*"
        .Range("C6:L29").Locked = False
        .Shapes("Rectangle 3").TextFrame.Characters.Text = "Unlock"
        .Columns("O:V").EntireColumn.Hidden = True
        .Protect "*"
    Else
        .Unprotect "*"
        .Shapes("Rectangle 3").TextFrame.Characters.Text = "Lock"
        .Columns("O:V").EntireColumn.Hidden = False
    End If
End With
End Sub