Tự động khóa dòng cuối khi nhập đủ dữ liệu

[anktdn]

Em có câu hỏi này nhờ anh chị giúp đỡ, Tự động xác định vùng cuối và khóa khi nhập đủ dữ liệu .

 

[huuthang_bd]

Em có câu hỏi này nhờ anh chị giúp đỡ, Tự động xác định vùng cuối và khóa khi nhập đủ dữ liệu .

Bạn thử code này xem sao.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$8" Then
Me.Unprotect "GPE"
[A1:G8].Locked = True
Me.Protect "GPE"
ElseIf Target.Column = 7 Then
Me.Unprotect "GPE"
Target.Offset(, -6).Resize(1, 7).Locked = True
Me.Protect "GPE"
End If
End Sub

 

[anktdn]

Bạn thử code này xem sao.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$8" Then
Me.Unprotect "GPE"
[A1:G8].Locked = True
Me.Protect "GPE"
ElseIf Target.Column = 7 Then
Me.Unprotect "GPE"
Target.Offset(, -6).Resize(1, 7).Locked = True
Me.Protect "GPE"
End If
End Sub

Code của bạn khi nhập xong khóa nguyên cả vùng dữ liệu, còn câu hỏi mình đưa ra là chì khóa vùng trên còn vùng dưới trống chưa nhập dữ liệu vẫn edit được. Thanks bạn đã quan tâm.
Vấn đề chính ở đây là người nhập liệu chỉ nhập dữ liệu và khi họ nhập xong thì không cho sửa được nên Unprotect thì họ đã biết mật khẩu rồi.

 

[huuthang_bd]

Code của bạn khi nhập xong khóa nguyên cả vùng dữ liệu, còn câu hỏi mình đưa ra là chì khóa vùng trên còn vùng dưới trống chưa nhập dữ liệu vẫn edit được. Thanks bạn đã quan tâm.

Tôi quên nói bạn. Phải bỏ Lock toàn bộ cells trong bảng tính đã.
Chọn hết bảng tính | Ctrl + 1 | Tab Protection | Bỏ chọn Locked | ok
Copy code vào sheet của bạn.

 

[nguyenbvc]

sao mình thấy làm theo như bạn mà vẫn bị báo lỗi ở dòng:
Target.Offset(, -6).Resize(1, 7).Locked = True
khi bắt đầu nhập dòng thứ 2

 

[huuthang_bd]

sao mình thấy làm theo như bạn mà vẫn bị báo lỗi ở dòng:
Target.Offset(, -6).Resize(1, 7).Locked = True
khi bắt đầu nhập dòng thứ 2

Thử với file này.
Có thể do bạn chưa bỏ Merge của các ô khác dòng.

 

[suntue]

Em thấy chiêu này hay quá, anh có thể giúp em vấn đề này được không: Trong bảng điểm ô tô màu có công thức, đã khóa (MK:123). Khi nhập điểm môn giữa học kỳ 1, nhập đến đâu thì khóa đến đó (nhập lần lượt hết môn này đến môn khác). Tương tự như vậy khi nhập điểm cuối học kỳ 1. Cảm ơn anh nhiều

 

[huuthang_bd]

Em thấy chiêu này hay quá, anh có thể giúp em vấn đề này được không: Trong bảng điểm ô tô màu có công thức, đã khóa (MK:123). Khi nhập điểm môn giữa học kỳ 1, nhập đến đâu thì khóa đến đó (nhập lần lượt hết môn này đến môn khác). Tương tự như vậy khi nhập điểm cuối học kỳ 1. Cảm ơn anh nhiều

Không thấy file của bạn.

 

[suntue]

em tải nhưng sao không lên, em tải lại nhé.
Sao kỳ quá, không hiểu vì lý do gì. Anh có thể hướng dẫn dùm được không?

 

[huuthang_bd]

em tải nhưng sao không lên, em tải lại nhé.
Sao kỳ quá, không hiểu vì lý do gì. Anh có thể hướng dẫn dùm được không?

File có dung lượng quá lớn sẽ không được post lên. Bạn copy sheet cần thiết ra file mới. Nếu cần thiết thì xóa bớt dữ liệu. Nén lại và gửi lại xem.

 

[suntue]

em chép sang file mới và xóa bớt, em thử tải lại nhé. Có lẽ bị virut quá? Dung lượng chỉ có 19,16kb thôi. Hay em chuyển qua mail của anh được không?

 

[suntue]

em chuyển qua mail của anh được không?

 

[huuthang_bd]

em chuyển qua mail của anh được không?

Được. Bạn gửi vào mail của tôi: 140286@yahoo.com
Tôi sẽ giúp bạn gửi lên diễn đàn.

 

[suntue]

Tối em nghiên cứu tải lại, anh thông cảm nhé. chắc máy bị sao rồi đấy.

 

[huuthang_bd]

Đây là file của bạn suntue.
Bây giờ tôi không có thời gian. Nhưng hình như phần trình bày yêu cầu của bạn không được rõ ràng. Tôi chưa hiểu.

 

[suntue]

Ý em là: Em sẽ nhập điểm giữa học kỳ 1 trước (bắt đầu từ cột P, T, U, AB, AC, ...) Nhập đến đâu thì khoá đến đó. sau đó lại nhập tiếp điểm cuối học kỳ 1 (bắt đầu từ cột Q,W,XAE,AF..). Mục đích là không cho sửa điểm tuỳ tiện, mong anh nghiên cứu giúp em nhé.

 

[huuthang_bd]

Ý em là: Em sẽ nhập điểm giữa học kỳ 1 trước (bắt đầu từ cột P, T, U, AB, AC, ...) Nhập đến đâu thì khoá đến đó. sau đó lại nhập tiếp điểm cuối học kỳ 1 (bắt đầu từ cột Q,W,XAE,AF..). Mục đích là không cho sửa điểm tuỳ tiện, mong anh nghiên cứu giúp em nhé.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column >= 16 And Target.Column <= 35 Then
Me.Unprotect "GPE"
Target.Locked = True
Me.Protect "GPE"
End If
End Sub

 

[suntue]

Gởi anh Huuthang_bd

Cảm ơn anh nhiều, bây giờ lại phát sinh ra vấn đề này: Nếu lỡ nhập sai, sửa ngay lúc đó thì phải gỡ bỏ MK thì bất tiện quá. Anh có thể giúp cho việc nhập sau khoảng thời gian 5 - 10 phút thì bảng tính tự động khóa được không?

 

[benxua1986]

nho nhu ban nhap sai thi sao sua lai! co phai wa phien phuc ko? toi thay ko kha thi lam! nhung neu nghien cuu de hoc hoi thi rat hay!

 

[benxua1986]

Private Sub Worksheet_Change(ByVal Target As Range)
'tôi xin lấy lại đoạn code trên để giải thích thêm:
If Target.Column >= 16 And Target.Column <= 35 Then
'chọn vùng có ActiveCell.Column >=16 và <=5 thì thực hiện lệnh sau
Me.Unprotect "GPE" 'GPE là từ khóa đẻ mở locked
Target.Locked = True 'khóa ô khi sheet có sự thay đổi
Me.Protect "GPE" 'GPE là từ khóa để locked
End If
End Sub
'bạn có thể dựa vào đoạn code trên để khai triển bài của mình như ý muốn.