Cảm ơn các bác! có bác nào có ví dụ hướng dẫn không. nghĩa là mình sẽ viết câu lệnh mở khóa. sau đó hết lệnh thì mình lại khoá vào ah! ý tưởng hay nhưng em phải thử xem thế nào đã nhé!
Option Explicit
Sub KhoaCot_C()
Columns("C:C").Select
ActiveSheet.Protect Password:="VHong"
End Sub
' * * * * * * * ** * * * *
Sub DeNhapDGiaMoi()
Columns("C:C").Select
ActiveSheet.Unprotect Password:="VHong"
End Sub