Giúp đoạn code Protect Sheet

[hongtruong101186]

Mình thấy có nhiều sheet chỉ cho Chọn một số ô trong bảng, còn lại không chọn được ô nào, nếu Click đúp thì báo bị protech.
Mình đã thử làm như sau:
Ctrl + A \ format - cell - protection - bỏ locked \ chọn vùng cần protech \ vào tool - protech...
Cách này vẫn cho chọn ô, nhưng không thay đổi được.
Mình muốn bảo vệ vùng bằng cách không cho chọn ô vào vùng muốn bảo vệ giống như phần mềm phổ cập của chibi.
Ai giúp mình với! Xin cảm ơn.

 

[Po_Pikachu]

Trong khung nhập pass đó. Bạn bỏ chọn dòng chữ có ghi: "Select Locked cells" rồi mới nhập pass.

bạn cứ theo code này mà viết thêm vào nha!

'...
    ActiveSheet.Protect "123", True, True, True
    ActiveSheet.EnableSelection = xlUnlockedCells
'...

Thân.

 

[concogia]

Mình thấy có nhiều sheet chỉ cho Chọn một số ô trong bảng, còn lại không chọn được ô nào, nếu Click đúp thì báo bị protech.
Mình đã thử làm như sau:
Ctrl + A \ format - cell - protection - bỏ locked \ chọn vùng cần protech \ vào tool - protech...
Cách này vẫn cho chọn ô, nhưng không thay đổi được.
Mình muốn bảo vệ vùng bằng cách không cho chọn ô vào vùng muốn bảo vệ giống như phần mềm phổ cập của chibi.
Ai giúp mình với! Xin cảm ơn.

Một thí dụ: trong sheet hiện hành chỉ được nhập dữ liệu ở cột B, còn "bi nhiêu" cột khác bị "tèo" hết, không cho chọn
Còn bạn muốn không cho chọn vùng nào thì sửa code nhé
Thân

 

[hoangdanh282vn]

Mình thấy có nhiều sheet chỉ cho Chọn một số ô trong bảng, còn lại không chọn được ô nào, nếu Click đúp thì báo bị protech.
Mình đã thử làm như sau:
Ctrl + A \ format - cell - protection - bỏ locked \ chọn vùng cần protech \ vào tool - protech...
Cách này vẫn cho chọn ô, nhưng không thay đổi được.
Mình muốn bảo vệ vùng bằng cách không cho chọn ô vào vùng muốn bảo vệ giống như phần mềm phổ cập của chibi.
Ai giúp mình với! Xin cảm ơn.

Mình thì sử dụng code sau :

Sub Lock_Unlock(Rng As Range, Opt As Boolean)
On Error Resume Next
ActiveSheet.Unprotect "danh"
Rng.Locked = Opt
ActiveSheet.Protect Password:="danh", DrawingObjects:=False, Contents:=True, AllowFormattingCells:=True, AllowFiltering:=True, AllowSorting:=True
'Dung de khoa hay mo khoa du lieu.
End Sub

Bạn có thể thay đổi hoặc thêm bớt các tùy chọn để có được code như ý.