Hỏi về khóa Sheet mà vẫn chạy được lệnh

[thanhvien1802]

XIn hỏi có cách nào để chay được lệnh của Command sau khi đã khóa sheet : Tool -> Protection -> Protect Sheet. "Nếu không khóa thì lệnh chạy bình thường"
XIn cảm ơn.

 

[Po_Pikachu]

Bạn làm theo cấu trúc như sau:

Sub .... Sheets("Tên sheet muốn khóa").Unprotect "Password" '.......... code của lệnh Sheets("Tên sheet muốn khóa").Protect "Password" End Sub

Thân.

 

[thanhvien1802]

Bạn làm theo cấu trúc như sau:

Sub ....
Sheets("Tên sheet muốn khóa").Unprotect "Password"
'.......... code của lệnh
Sheets("Tên sheet muốn khóa").Protect "Password"
End Sub

Thân.

Lệnh trên khi thực thi thì không dùng được : AutoFiter
Vậy muốn dùng được Firtel thì thêm câu lênh gì.
Xin cảm ơn.

 

[thanhvien1802]

Mình nghĩ cách của Po_Pikachu ổn mà! Nếu có lỗi là lỗi Bạn viết coode autofilter như thế nào thôi! Bạn có thể đưa đoạn code bạn viết lên không?

Hàm thì đúng rồi, nhưng mình cần thêm 1 lệnh để filter đươch dữ liệu.
lênh nhu sau :

Private Sub CommandButton1_Click()
       Sheets("INFOR").Unprotect "123456"
       Call GOITEN
       Sheets("INFOR").Protect "123456"
End Sub

 

[Po_Pikachu]

Còn sub của GOITEN đâu? Có thể nó có liên qua gì đến các sheet khác mà các sheet đó đang bị khóa thì cũng không được đâu? Bạn có thể đăng ký 1 tài khoản trên www.box.net hoặc www.mediafire.com để tải dữ liệu lên. Thân.

 

[thanhvien1802]

file : http://www.mediafire.com/download.php?zh22kzmjkyw

Sub GOITEN()
Range("D2:E" & Range("E125").End(xlUp).Row).Select
Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Private Sub CommandButton1_Click()
Sheets("INFOR").Unprotect "123456"
Call GOITEN
Sheets("INFOR").Protect "123456"
End Sub

Mình cần làm :
-Nhấp vào Nút Firter để chọn mã số có sẵn.
-Và làm thế nào để tạo 1 command để chạy list auto đó thêm 1 giá trị " Ví dụ dang lọc List 1 nhấp vào sẽ lọc lên list 2 ............."
Xin cảm ơn.

 

[Po_Pikachu]

Có thể khỏi cần tạo thêm command làm chi. Nhưng bạn có thể nói rõ những ai sẽ nằm trong List 1 những ai sẽ nằm trong List 2,v.v... Bạn phải đặt thêm danh hoặc 1 cột có chỉ số List 1 và List 2. Còn hai cột D, F có viết =RANDBETWEEN(1,500) nghĩa là sao vậy? Ý bạn muốn làm gì với cột này? Đây là file đã chỉnh sữa 1 chút cho bạn đây. http://www.mediafire.com/?2ymzm3z30e4 Thân.

 

[thanhvien1802]

Mình đã xóa bớt cho gọn rồi, Ý mình sau khi nhấp vào lệnh "TEN" rồi, thì làm sao giả sử muốn lọc thông tin người thứ 2 "Côt C là cột thứ tự của ho ten" để xem thông tin đó. Nhưng khi lênh chạy thì Nút Lọc tại Ô C1 không dùng được vì chưa kich hoạt được : Use AutoFilter khi khóa Prosheet.
"Lệnh gọi tên đã đúng rồi nhưng làm sao thêm lệnh để kích hoạt đuọc AutoFilter khi khóa Prosheet"
File mới của mình :
http://www.mediafire.com/download.php?iyvomzojgu2
MÌnh xin cảm ơn.

 

[Po_Pikachu]

À giờ mình mới hiểu ý bạn. Bạn viết thêm code như vầy là có thể Filter được rồi!

Private Sub CommandButton1_Click() Sheets("INFOR").Unprotect "123456" Call GOITEN Sheets("INFOR").Protect "123456", AllowFiltering:=True End Sub   Private Sub CommandButton2_Click() Sheets("INFOR").Unprotect "123456" Call GOIHO Sheets("INFOR").Protect "123456", AllowFiltering:=True End Sub

Thân.

 

[thanhvien1802]

Cảm ơn bạn Po_Pikachu nhiều. MÌnh hỏi thêm 1 vấn đề khác nữa. Giả sử sau khi lọc thông tin người thứ 1 rồi, muốn tạo 1 Command để nhấp vào đó để xem thông tin người tiếp theo. "Xem thông tin dụa vào Cột C, là côt thứ tự của Tên người đó"
XIn cảm ơn.

 

[Po_Pikachu]

Vậy bạn thêm 1 nút Next và viết code như mình là được. http://www.mediafire.com/?nmnrmnymimc Thân.