Xin giúp đỡ CODE để xóa dòng và khóa bảng tính (PROTECT) (1 người xem)

[trananhtommy]

Xin chào các Bác, em xin nhờ các Bác giúp hộ E:

1. Khóa bảng tính có điều kiện:

Dữ liệu E cho ghi vào, nhưng nhiều người nhập dễ nhầm lẫn vì vậy trước khi ghi E cho mở khóa, sau khi ghi dữ liệu thì lại khóa luôn vào. Em dùng:

Sheets("Dulieu").Unprotect "abc"

...

Sheets("Dulieu").Protect "abc"

Tuy nhiên cách này E lại không dùng auto filter được, không biết phải viết mã thế nào để nó khóa nhưng vẫn cho sử dụng auto filter trong bảng tính đó ạ.

2. Tìm và xóa dòng cần xóa:

Cũng với bảng tính đó, E xin code để xóa dòng. Để khi chạy code nó hỏi dòng nào cần xóa. Ví dụ mình nhập 6600 thì nó sẽ đi đến dòng 6600 và delete luôn cho mình.

Mong các bác giúp E với! E cảm ơn.

 

[giaiphap]

Xin chào các Bác, em xin nhờ các Bác giúp hộ E:

1. Khóa bảng tính có điều kiện:

Dữ liệu E cho ghi vào, nhưng nhiều người nhập dễ nhầm lẫn vì vậy trước khi ghi E cho mở khóa, sau khi ghi dữ liệu thì lại khóa luôn vào. Em dùng:

Sheets("Dulieu").Unprotect "abc"

...

Sheets("Dulieu").Protect "abc"

Tuy nhiên cách này E lại không dùng auto filter được, không biết phải viết mã thế nào để nó khóa nhưng vẫn cho sử dụng auto filter trong bảng tính đó ạ.

2. Tìm và xóa dòng cần xóa:

Cũng với bảng tính đó, E xin code để xóa dòng. Để khi chạy code nó hỏi dòng nào cần xóa. Ví dụ mình nhập 6600 thì nó sẽ đi đến dòng 6600 và delete luôn cho mình.

Mong các bác giúp E với! E cảm ơn.

Ý thứ nhất bạn sử dụng lệnh này để khóa bảng tính.

ActiveSheet.Protect "abc", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True

Ý thứ 2 bạn sử dụng lệnh này để xóa hàng

Sub GPE()
On Error Resume Next
Dim k As Integer
    k = InputBox("Nhap hang can xoa")
    Rows(k).Delete Shift:=xlUp
End Sub

 

[trananhtommy]

Thật là tuyệt vời quá. E cảm ơn nhiều ạ! Đúng chỗ ngứa rồi hí hí