yome
GPE thật tuyệt vời
- Tham gia
- 9/5/08
- Bài viết
- 347
- Được thích
- 113
Bạn chọn locked cho toàn bộ cell, bỏ chọn locked D1, sau đó thêm đoạn code Unprotect và protect trước và sau khi fillter là okChào các anh chị GPE!
Em cò 1 file vidu (file đính kèm). Em muốn thiết kế mật khẩu vùng dữ liệu để không ai sửa văđựuowc công thức em thiết lập. Cụ thể câu hỏi có trong file đính kèm rồi.
Xin anh chị vui lòng chỉ dùm!
Private Sub worksheet_change(ByVal target As Range)
If target.Address = "$D$1" Then
ActiveSheet.Unprotect
[A5].CurrentRegion.AutoFilter 6, IIf(target = "", "<>", target)
ActiveSheet.Protect
End If
End Sub
Bạn thêm Pass vào trong code thì ai mà sửa được chứ (muốn sửa đương nhiên phải biết pass) ---> Nói chung là "tương đối" thôiAnh hoangdanh ơi, em làm rồi nhưng có điều là khi thực hiện lọc xong vào Tools\Protection\Unprotection lại sửa được mà anh?
Thì protect bằng pass vào. thêm ví dụ muốn đặt pass protect abc thì:Anh hoangdanh ơi, em làm rồi nhưng có điều là khi thực hiện lọc xong vào Tools\Protection\Unprotection lại sửa được mà anh?
Private Sub worksheet_change(ByVal target As Range)
If target.Address = "$D$1" Then
ActiveSheet.Unprotect "abc"
[A5].CurrentRegion.AutoFilter 6, IIf(target = "", "<>", target)
ActiveSheet.Protect "abc"
End If
End Sub