Về việc sử dụng Table cùng với Protect sheet trong Excel

[ngocham2001]

Nhờ mọi người giúp mình giải quyết vấn đề này!
Mình có 1 worksheet có sử dụng chức năng Insert --> Table để tạo 1 bảng tự động.
Vấn đề là mình muốn thực hiện chức năng Protect sheet ở sheet đó, nhưng khi mình locked 1 số ô lại (Không nằm trong table đã tạo) và chọn Protect sheet thì chức năng Table cũng tự động mất luôn..
Mình phải làm thế nào bây giờ? Nhờ mọi người chỉ giúp

 

[ngocham2001]

Cám ơn các bạn, mình đã tìm được giải pháp cho vấn đề này băng VBA
Post lên để nếu bạn nào có cùng thắc mắc với mình tham khảo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim tr As Long
tr = Target.Row
If Target.Count > 1 Then Exit Sub
If tr = 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
ActiveSheet.Unprotect
ActiveSheet.ListObjects("Table2").Resize Range("$A$1:$D" & tr)
Range(Cells(tr + 1, "A"), Cells(tr + 1, "B")).Locked = False
ActiveSheet.Protect
End Sub

 

[duyanhhcm]

Cám ơn các bạn, mình đã tìm được giải pháp cho vấn đề này băng VBA
Post lên để nếu bạn nào có cùng thắc mắc với mình tham khảo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim tr As Long
tr = Target.Row
If Target.Count > 1 Then Exit Sub
If tr = 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
ActiveSheet.Unprotect
ActiveSheet.ListObjects("Table2").Resize Range("$A$1:$D" & tr)
Range(Cells(tr + 1, "A"), Cells(tr + 1, "B")).Locked = False
ActiveSheet.Protect
End Sub

Rõ hơn tý được không bạn. Bạn nói thêm về đầu bài để anh em dễ hiểu code hơn