hỏi code nào cho sự kiện worksheet _change để khi nhập xong 1 cell thì khóa sheet lại

[quoc nhat]

Chào các anh chị
các anh chị giúp em code này với
Ví dụ em đang có 1 file excel.làmm thế nào để khi update xong cell A1 thì khóa sheet lại
em cảm ơn nhiều

 

[thanhsangnguyen1982]

Gửi file lên đi bạn, mọi người mới giúp bạn được

 

[ptm0412]

Gửi file lên đi bạn, mọi người mới giúp bạn được

Cái này đơn giản mà, nếu buộc gởi file thì tôi cũng sẽ gởi 1 file trắng tinh.

 

[leonguyenz]

Cái này đơn giản mà, nếu buộc gởi file thì tôi cũng sẽ gởi 1 file trắng tinh.

Viết vậy được không Thầy:
[gpecode=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Range("A1"), Target) Is Nothing Then
ActiveSheet.Protect ("123")
End If
Application.ScreenUpdating = True
End Sub
[/gpecode]
Nhờ Thầy chỉ thêm cách khác ạ.

 

[quoc nhat]

Viết vậy được không Thầy:
[gpecode=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Range("A1"), Target) Is Nothing Then
ActiveSheet.Protect ("123")
End If
Application.ScreenUpdating = True
End Sub
[/gpecode]
Nhờ Thầy chỉ thêm cách khác ạ.

EM đã test thử Ok rồi anh