sorry bạn, mình mới tham gia Group nên còn nhiều sai sót. mong bạn thông cảm, để mình bổ sung cho rõ thêm để mọi người dễ hướng dẫn hơnBạn muốn nhờ người khác giúp gì ít nhất phải nói rõ bạn muốn khóa như thế nào. Tạo một nút bấm hay thay đổi dữ liệu ở Cell nào đó thì dữ liệu khóa. Cả 1 cái file ví dụ cũng không thấy ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Or Target.Column = 3 Or Target.Column = 4 Then 'NEU COT THAY DOI LA B,C,D
If Target.Value <> "" Then 'NEU CELL DO KHAC RONG
ActiveSheet.Unprotect "GPE" 'MO KHOA VOI PASS LA "GPE"
Target.Locked = True 'KHOA CELL DO LAI
ActiveSheet.Protect "GPE" 'PROTECT SHEET LAI VOI PASS LA "GPE"
End If
End If
End Sub
Mình cảm ơn bạn nha, đúng như ý mình luôn, à tiện bạn cho mình hỏi, bạn có tài liệu học excel kèm VBA cho mình xin với, mình muốn co thêm kiến thức về Excel như bạn đó. Thanks bạnBạn thử nhé
Mã:Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Or Target.Column = 3 Or Target.Column = 4 Then 'NEU COT THAY DOI LA B,C,D If Target.Value <> "" Then 'NEU CELL DO KHAC RONG ActiveSheet.Unprotect "GPE" 'MO KHOA VOI PASS LA "GPE" Target.Locked = True 'KHOA CELL DO LAI ActiveSheet.Protect "GPE" 'PROTECT SHEET LAI VOI PASS LA "GPE" End If End If End Sub
Quảng cáo cho việc học cũng tốt, còn hơn kiểu quảng cáo cho bán hàngMã:https://tuhocvba.net/
Vào đây quảng cáo hả bạn?
Cạnh tranh gì bạn?...Có thêm diễn đàn , thì sự cạnh tranh càng tốt, lợi cho người sử dụng
Vì tôi thấy hiện nay có 1 số diễn đàn ở Việt nam chặn băng thông (làm chậm) truy cập với các user account (tài khoản người dùng / nick) họ không thích, và âm thầm làm việc đó, thật là lợi hại. Đó là vì tính độc quyền, tính quan của họ.Cạnh tranh gì bạn?
Bạn muốn nói địa vị độc tôn của GPE sẽ lung lay đối với những người đói bài?
Hổng dám đâu. Mấy quán khác cơm hẩm cà mốc không hè. Cho đến nay GPE vẫn là quán cơm nóng canh sốt. Tuy rằng cái vụ ruồi nhặng thì có vẻ đang trên đà tăng.
Bạn cho mình hỏi cái code này là dùng để làm gì ạBạn thử nhé
Mã:Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Or Target.Column = 3 Or Target.Column = 4 Then 'NEU COT THAY DOI LA B,C,D If Target.Value <> "" Then 'NEU CELL DO KHAC RONG ActiveSheet.Unprotect "GPE" 'MO KHOA VOI PASS LA "GPE" Target.Locked = True 'KHOA CELL DO LAI ActiveSheet.Protect "GPE" 'PROTECT SHEET LAI VOI PASS LA "GPE" End If End If End Sub
Hình như cái diễn đàn kia là do một cựu thành viên GPE lập ra.Mã:https://tuhocvba.net/
Vào đây quảng cáo hả bạn?
Target.Column
Target.Range("A1:B2")
Mỗi diễn đàn mỗi cách hoạt động khác nhau. GPE "hiện tại" hoạt động dựa trên những bài hỏi đáp giữa những thành viên có nhu cầu và quảng cáo. TuhocVBA.net hoạt động dựa trên các bài viết dịch thuật. Một bên hỏi đáp, một bên dịch thuật. Hai trường phái rất khác nhau nhưng có điểm chung là VBA và giúp ích cho người học. Chúng ta không thể so sánh được.Cạnh tranh gì bạn?
Bạn muốn nói địa vị độc tôn của GPE sẽ lung lay đối với những người đói bài?
Hổng dám đâu. Mấy quán khác cơm hẩm cà mốc không hè. Cho đến nay GPE vẫn là quán cơm nóng canh sốt. Tuy rằng cái vụ ruồi nhặng thì có vẻ đang trên đà tăng.
Đối với bạn không so sánh được.... Chúng ta không thể so sánh được.
Mỗi diễn đàn mỗi cách hoạt động khác nhau. GPE "hiện tại" hoạt động dựa trên những bài hỏi đáp giữa những thành viên có nhu cầu và quảng cáo. TuhocVBA.net hoạt động dựa trên các bài viết dịch thuật. Một bên hỏi đáp, một bên dịch thuật. Hai trường phái rất khác nhau nhưng có điểm chung là VBA và giúp ích cho người học. Chúng ta không thể so sánh được.
Bạn thử nhé.Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Range("B1:B10") Or Target.Range("C1:C10") Or Target.Range("D110") Then
If Target.Value <> "" Then
ActiveSheet.Unprotect "123"
Target.Locked = True
ActiveSheet.Protect "123"
End If
End If
End Sub
VẪN BỊ LỖI BẠN Ạ GIÚP MÌNH VỚI NHA
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1:D10")) Is Nothing Then
If Len(Target.Value) > 0 Then
ActiveSheet.Unprotect 123
Target.Locked = True
ActiveSheet.Protect 123
End If
End If
End Sub
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2