Em chào cả nhà,
Em là thành viên mới, hiện đang gặp 1 case khó, rất mong anh/chị giúp đỡ ạ.
Em cần khóa vùng trong 1 sheet, tuy nhiên sheet đó đang có 1 đoạn mã vba cho chức năng tự động ẩn/hiện dòng nên không sử dụng chức năng khóa vùng thủ công được.
Anh/chị hỗ trợ giúp em đoạn mã vba khóa vùng như hình được không ạ. Các vùng tô màu cam ở sheet (Cong cu) là vùng được quyền nhập liệu, còn lại là khóa hết ạ.
Em cảm ơn các anh/chị đã hỗ trợ ạ!
Đoạn mã vba tự động ẩn/hiện dòng em đang sử dụng trong sheet (cong cu) như sau ạ:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xRg As Range
Application.ScreenUpdating = False
For Each xRg In Range("C3:C240")
If xRg.Value = "" Then
xRg.EntireRow.Hidden = True
Else
xRg.EntireRow.Hidden = False
End If
Next xRg
Application.ScreenUpdating = True
End Sub
Em là thành viên mới, hiện đang gặp 1 case khó, rất mong anh/chị giúp đỡ ạ.
Em cần khóa vùng trong 1 sheet, tuy nhiên sheet đó đang có 1 đoạn mã vba cho chức năng tự động ẩn/hiện dòng nên không sử dụng chức năng khóa vùng thủ công được.
Anh/chị hỗ trợ giúp em đoạn mã vba khóa vùng như hình được không ạ. Các vùng tô màu cam ở sheet (Cong cu) là vùng được quyền nhập liệu, còn lại là khóa hết ạ.
Bạn cần đăng nhập để thấy hình ảnh
Em cảm ơn các anh/chị đã hỗ trợ ạ!
Đoạn mã vba tự động ẩn/hiện dòng em đang sử dụng trong sheet (cong cu) như sau ạ:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xRg As Range
Application.ScreenUpdating = False
For Each xRg In Range("C3:C240")
If xRg.Value = "" Then
xRg.EntireRow.Hidden = True
Else
xRg.EntireRow.Hidden = False
End If
Next xRg
Application.ScreenUpdating = True
End Sub
Sửa lần cuối: