Khoá dòng theo điều kiện (1 người xem)

[gakon_Office]

Mong các chuyên gia và các anh chị thành viên trong GPE giúp đỡ em trường hợp này với.
Thắc mắc xin được viết trong file đính kèm ạ!
Xin cảm ơn!

 

[gakon_Office]

Chuyên gia nào biết vấn đề này giúp em với ạ!

 

[Ba Tê]

Mong các chuyên gia và các anh chị thành viên trong GPE giúp đỡ em trường hợp này với.
Thắc mắc xin được viết trong file đính kèm ạ!
Xin cảm ơn!

Nhập dữ liệu vào cột B cả dòng trong khung sẽ bị khoá luôn. PassWord: 123.
Muốn trở lại trạng thái ban đầu: UnProtect - Format cells lại toàn dòng: Protection - Bỏ chọn Locked và Hidden.

 

[hoangvuluan]

Theo mẫu file bank đã gửi, có thể thực hiện theo các bước sau:

1. Đặt tên vùng dữ liệu, chẳng hạn là: bdulieu
2. Chọn bdulieu, đặt thuộc tính Locked của các ô là False (không bảo vệ các ô trong bdulieu)
3. Chọn chức năng bảo vệ sheet (Protect Sheet)
4. Mở cửa số VBA, và copy đoạn mã sau vào trang mã sheet1

Hy vọng giải quyết được vấn đề!

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ra As Range, i As Long
Set ra = Me.Range("bdulieu")
If Not Intersect(Target, ra.Columns(3)) Is Nothing Then   ' cột nhập dữ liệu kiểm tra là cột 3 của bdulieu '
    Me.Unprotect
    For i = 1 To Target.Rows.Count
        ra.Rows(Target.Rows(i).Row - ra.Row + 1).Locked = (Target.Cells(i, 1).Value <> "")
        Target.Cells(i, 1).Locked = False
    Next
    Me.Protect
    xl = False
End If
Set ra = Nothing
End Sub

 

[gakon_Office]

Nhập dữ liệu vào cột B cả dòng trong khung sẽ bị khoá luôn. PassWord: 123.
Muốn trở lại trạng thái ban đầu: UnProtect - Format cells lại toàn dòng: Protection - Bỏ chọn Locked và Hidden.

Cám ơn 2 giáo sư!
Nhưng mà thưa Giáo sư Ba Tê, điều kiện là ô phải có dữ liệu chứ không phải kích hoạt ô ạ!
Mà em muốn gán code này cho một butom thì phải sửa lại như thế nào ạ?
Mong các chuyên gia chỉ bảo.

 

[Ba Tê]

Cám ơn 2 giáo sư!
Nhưng mà thưa Giáo sư Ba Tê, điều kiện là ô phải có dữ liệu chứ không phải kích hoạt ô ạ!
Mà em muốn gán code này cho một butom thì phải sửa lại như thế nào ạ?
Mong các chuyên gia chỉ bảo.

1. Mình không phải "Giáo sư", hổng dám nhận.
2. Hổng hiểu bạn muốn gì.

Dùng VBA nào để khi những ô trong cột E (màu xanh) có dữ liệu (màu da cam) thì các dòng tương ứng (bao gồm màu xám và màu da cam bị khóa)

3. Híc!

 

[KUMI]

1. Mình không phải "Giáo sư", hổng dám nhận.
2. Hổng hiểu bạn muốn gì.

3. Híc!

Thầy ơi! ý của bạn ý là khi có dữ liệu thì ô đó sẽ có màu da cam(vì bạn ý đã dùng định dạng coditional rồi).
điền xong dữ liệu xong thì ô mơi khóa lại. còn code của thầy thì chỉ kích vào sau đó enter là ô đã khóa lại rồi dù có hay không có dữ liệu.