Hỏi về khóa cell sau khi nhập nội dung

[minhmang]

Chào các bạn
Tôi đàn làm 1 file báo cáo chung cho nhiều người, mỗi người sẽ nhập nội dung của mình vào. tôi muốn khi nhập dữ liệu vào cell A1 thì trong cell A2 sẽ lấy thông tin ngày giờ tại thời điểm nhập vào đó. Cho dù sau này người đó có muốn xóa hay sửa thông tin trong cell nào thì cell A2 cũng không thay đổi thông tin.
Xin hỏi tôi phải làm thế nào? Xin cám ơn.

 

[Po_Pikachu]

Bạn dùng file này của mình chắc ổn rồi đó.
Thân.

 

[hoangdanh282vn]

Chào các bạn
Tôi đàn làm 1 file báo cáo chung cho nhiều người, mỗi người sẽ nhập nội dung của mình vào. tôi muốn khi nhập dữ liệu vào cell A1 thì trong cell A2 sẽ lấy thông tin ngày giờ tại thời điểm nhập vào đó. Cho dù sau này người đó có muốn xóa hay sửa thông tin trong cell nào thì cell A2 cũng không thay đổi thông tin.
Xin hỏi tôi phải làm thế nào? Xin cám ơn.

Mình gửi VD minh họa :
Dòng 1 nhập liệu, dòng 2 Lưu giữ thời gian gốc :

Sub worksheet_change(ByVal target As Range)
ActiveSheet.Unprotect
Cells.Locked = False
With target
If .Row = 1 And .Value <> "" And .Offset(1, 0) = "" Then .Offset(1, 0) = Now
End With
Rows("2:2").Locked = True
ActiveSheet.Protect
End Sub

 

[Mr Okebab]

Mình gửi VD minh họa :
Dòng 1 nhập liệu, dòng 2 Lưu giữ thời gian gốc :

Sub worksheet_change(ByVal target As Range)
ActiveSheet.Unprotect
Cells.Locked = False
With target
If .Row = 1 And .Value <> "" And .Offset(1, 0) = "" Then .Offset(1, 0) = Now
End With
Rows("2:2").Locked = True
ActiveSheet.Protect
End Sub

Chịu khó bẫy lỗi xíu Danh à !!

Thân!

 

[minhmang]

Các bạn cho mình hỏi thêm chút: vì mình không chuyên lập trình nên thấy khó. Vì mình tạo 1 file báo cáo, trong đó cột A là nơi các thành viên nhập nội dung báo cáo vào, cột B là nơi mình muốn ghi nhận lại thời điểm lúc người đó nhập vào.
ví dụ tại cell A5 người ta nhập báo cáo lúc 10h 23 phut ngày 3/2/2009 thì bên cel B5 phải ghi nhận lại ngày giờ người ta bắt đầu nhập. Nếu sau này người đó có quay lại cell A5 sửa thì tại cell B5 cũng không thay đổi.
Và tương tự cho các dòng khác tiếp theo, vì báo cáo có nhiều dòng mà...
Vậy tôi phải làm thế nào? Cám ơn các bạn

@ to hoangdanh282vn: bạn có thể giải thích giúp mình mấy dòng này với
If .Row = 1 And .Value <> "" And .Offset(1, 0) = "" Then .Offset(1, 0) = Now
và
Rows("2:2").Locked = True