VBA không chạy được khi dùng chức protect sheet để bảo vệ một vài ô trong một sheet

[vitinhvnbmt]

file excel của mình có dùng đến vba để tính toán, mình muốn khóa một vài ô trong Sheet 1 nên đã dùng chức năng protect sheet. nhưng sau khi dùng protect sheet thì vba không chạy được nữa và hiện thông báo như ảnh mình gửi kèm.
vậy phải làm sao để vừa không cho chỉnh sửa một số cell mà vẫn chạy được vba?
xin nhờ các ace trong gpe giúp đỡ.

 

[quanluu]

file excel của mình có dùng đến vba để tính toán, mình muốn khóa một vài ô trong Sheet 1 nên đã dùng chức năng protect sheet. nhưng sau khi dùng protect sheet thì vba không chạy được nữa và hiện thông báo như ảnh mình gửi kèm.
vậy phải làm sao để vừa không cho chỉnh sửa một số cell mà vẫn chạy được vba?
xin nhờ các ace trong gpe giúp đỡ.

Trong code bạn unprotect ở đầu Sub, xong việc protect lại.

 

[vitinhvnbmt]

Trong code bạn unprotect ở đầu Sub, xong việc protect lại.

bạn hướng dẫn cụ thể hơn được không? mình không biết code unprotect và protect.

 

[giaiphap]

bạn hướng dẫn cụ thể hơn được không? mình không biết code unprotect và protect.

Bạn muốn cụ thể thì phải có code thật mới dễ chứ viết code xong bạn lại nói không biết áp dụng vào file của bạn nửa thì mất công không.

 

[HieuCD]

file excel của mình có dùng đến vba để tính toán, mình muốn khóa một vài ô trong Sheet 1 nên đã dùng chức năng protect sheet. nhưng sau khi dùng protect sheet thì vba không chạy được nữa và hiện thông báo như ảnh mình gửi kèm.
vậy phải làm sao để vừa không cho chỉnh sửa một số cell mà vẫn chạy được vba?
xin nhờ các ace trong gpe giúp đỡ.

bạn tham khảo trang web nầy
http://www.giaiphapexcel.com/diendan/threads/117613.Cách-chạy-macro-trong-sheet-bị-protect

 

[vitinhvnbmt]

Bạn muốn cụ thể thì phải có code thật mới dễ chứ viết code xong bạn lại nói không biết áp dụng vào file của bạn nửa thì mất công không.

ok bạn. sau một hồi google, tìm cả trang web viết tiếng anh thì mình đã tìm được cái này

Sheets("Sheet1").Unprotect Password:="123"

Sheets("Sheet1").Protect Password:="123"

 

[LamNA]

Gửi nhầm

 

[Thong Hoang Tien 250691]

With Sheet1
    .Protect ("123")
    .Unprotect ("123")
End With

bạn hướng dẫn cụ thể hơn được không? mình không biết code unprotect và protect.