lỗi khi chạy macro

[sangbt]

Các bạn ơi, ai biết giúp mình với, mình viết một lệnh macro xoá dữ liệu vùng. sheet đó mình để chế độ protect thì macro chạy được, khi mình khoá lại thì macro bị lỗi, ai biết giúp mình với

 

[befaint]

Khóa rồi thì xóa sao được nữa => lỗi!

Vậy, trước khi muốn làm gì cần UnProtect > Làm gì đó (xóa dữ liệu chẳng hạn) > Protect lại.

 

[LamNA]

Các bạn ơi, ai biết giúp mình với, mình viết một lệnh macro xoá dữ liệu vùng. sheet đó mình để chế độ protect thì macro chạy được, khi mình khoá lại thì macro bị lỗi, ai biết giúp mình với

Bạn thêm

Sub Lenh_Tao_MoiCC()
Sheets("BCC").Unprotect Password:=""
    Range("j8:an100").ClearContents
Sheets("BCC").Protect Password:=""
End Sub

 

[befaint]

Gán mật khẩu vào một hằng, đặt ở đầu Sub (hoặc đầu module nếu dùng chung cho nhiều Sub).
Để muốn thay đổi cũng dễ, gọi tới nó cũng dễ.

Const mat_khau as String = "chuoi_bi_duong"
Unprotect Password:=mat_khau
'...'
Protect Password:=mat_khau

------------

Ah, lâu nên quên. Còn một cách không cần mở khóa.

 Protect Password:=mat_khau, UserInterFaceOnly:=True

 

[gaucon122]

Các bác giúp em với, đầu em u tối quá lên đọc mãi mà không làm được. Em có cái bảng này, muốn ẩn bớt các dòng để trống nhưng nếu protect sheet thì nó không chạy. các bác giúp em làm sao để nó vẫn hoạt động chức năng ẩn hiện bình thường trong khi sheet đang protect với ạ. em xin gửi file lên đây, pass là 1 ạ

 

[nguyenthuy13388]

Các bác giúp em với, đầu em u tối quá lên đọc mãi mà không làm được. Em có cái bảng này, muốn ẩn bớt các dòng để trống nhưng nếu protect sheet thì nó không chạy. các bác giúp em làm sao để nó vẫn hoạt động chức năng ẩn hiện bình thường trong khi sheet đang protect với ạ. em xin gửi file lên đây, pass là 1 ạ

Xem file

 

[gaucon122]

Xem file

Cảm ơn bác rất nhiều, em loay hay mãi

 

[gaucon122]

Xem file

Bác ơi, nhờ có bác em làm trên 1 sheet được rồi nhưng của em có gần 10 sheet, mỗi sheet dành cho một công đoạn khác nhau nên khi sang sheet khác nó không cho làm nữa bác ạ, có các nào bác giúp em với ạ ?

 

[nguyenthuy13388]

Bác ơi, nhờ có bác em làm trên 1 sheet được rồi nhưng của em có gần 10 sheet, mỗi sheet dành cho một công đoạn khác nhau nên khi sang sheet khác nó không cho làm nữa bác ạ, có các nào bác giúp em với ạ ?

với các "nút ấn" khác: chuột phải ==> format ==> size ==> properties ==> bỏ tích phần locked