CÁCH KHÓA DỮ LIỆU KHI ĐÃ NHẬP DỮ LIỆU 1 LẦN (1 người xem)

Locvo236 · 11/2/20

Chào mọi người! Hiện tại mình có vấn đề là mình muốn khóa ô trong excel khi đã nhập dữ liệu 1 lần. tránh tình trạng đã nhập dữ liệu rồi lại thay đổi dữ liệu thêm nữa. Mong mọi người chỉ giáo

thukhon2014 · 11/2/20

Bạ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 ?

Locvo236 · 11/2/20

thukhon2014 đã viết:
Bạ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 ?

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ơn

Bài đã được tự động gộp: 11/2/20

Mình muốn khi nhân viên của mình nhập "Ngày hẹn lần 1" vào thì không cho chỉnh sửa hoặc xóa dữ liệu ở Ô "Ngày hẹn lần 1"và hiện thông báo "yêu cầu nhập ngày hẹn tiếp theo" ,mà bắt buộc phải nhập ô " ngày hẹn lần 2" tiếp theo, Nếu có muốn thay đổi hoặc chỉnh sửa phải có yêu cầu nhập Password

thukhon2014 · 11/2/20

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

Locvo236 · 11/2/20

thukhon2014 đã viết:

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

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ạn

thukhon2014 · 11/2/20

@Locvo236 Bạn hỏi mình xin trả lời. Mình học chủ yếu ở ĐÂY. Bạn có thể tham khảo để có thêm tài liệu VBA nhé

thukhon2014 · 11/2/20

@hpkhuong Quảng cáo gì bạn ?, bạn ấy hỏi thì mình trả lời?. Với lại, mình có thu đồng xu, lợi nhuận nào từ việc này mà bạn bảo mình quảng cáo ?.

ppc0312 · 11/2/20

hpkhuong đã viết:
Mã:

https://tuhocvba.net/

Vào đây quảng cáo hả bạn?

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àng
Có thêm diễn đàn , thì sự cạnh tranh càng tốt, lợi cho người sử dụng

VetMini · 11/2/20

ppc0312 đã viết:
...Có thêm diễn đàn , thì sự cạnh tranh càng tốt, lợi cho người sử dụng

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.

ppc0312 · 11/2/20

VetMini đã viết:
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.

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òn diễn đàn nào cũng phát triển từ số nhỏ lên thôi, có thịnh ắt có suy.

Locvo236 · 12/2/20

thukhon2014 đã viết:

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

Bạn cho mình hỏi cái code này là dùng để làm gì ạ

thukhon2014 · 12/2/20

@Locvo236 Xóa giúp mình nhé, mình Record mà quên xóa đó mà !

Locvo236 · 13/2/20

thukhon2014 đã viết:
@Locvo236 Xóa giúp mình nhé, mình Record mà quên xóa đó mà !

B Cho mình hỏi nếu như mình chỉ muốn làm một vùng dữ liệu thôi không cần hết cả cột thì phải làm ntn

VetMini · 13/2/20

hpkhuong đã viết:
Mã:

https://tuhocvba.net/

Vào đây quảng cáo hả bạn?

Hình như cái diễn đàn kia là do một cựu thành viên GPE lập ra.
Và hình như cũng có một mớ thành viên GPE viết bài trong đó.

thukhon2014 · 13/2/20

@Locvo236 Bạn thay

Mã:

Target.Column

Ví dụ thành từ vùng A1:B2

Mã:

Target.Range("A1:B2")

Bài đã được tự động gộp: 13/2/20

VetMini đã viết:
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.

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.

VetMini · 13/2/20

thukhon2014 đã viết:
... Chúng ta không thể so sánh được.

Đối với bạn không so sánh được.
Nhưng đối với tôi là chuyện khác. Gán điểm cụ thể vào các điểm mốc để so sánh (performance benchmarks) không mới mẻ gì cả.

Locvo236 · 13/2/20

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Range("B1:B10") Or Target.Range("C1:C10") Or Target.Range("D1

10") 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

CHAOQUAY · 13/2/20

thukhon2014 đã viết:
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.

vui chơi có thưởng

Mời anh chị em tham gia giải toán bằng VBA. Thời gian: Ai trả lời sớm nhất, và trước ngày 10/11/2019 sẽ trúng thưởng. Giải thưởng: Một cuốn sách VBA. Yêu cầu dùng VBA để chỉ ra được một đáp án đúng. Nội dung:

www.giaiphapexcel.com

Bạn có quen thành viên @khongtu19bk ở đường dẫn trên không vậy?

snow25 · 13/2/20

Locvo236 đã viết:
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

Bạn thử nhé.

Mã:

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

Locvo236 · 14/2/20

snow25 đã viết:

Bạn thử nhé.

Mã:

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

BỊ LỖI LUÔN R BẠN ƠI. HUHU

snow25 · 14/2/20

Locvo236 đã viết:
BỊ LỖI LUÔN R BẠN ƠI. HUHU

Lỗi gì bạn phải bảo thì mới biết chứ.Ít ra bạn chụp cái màn hình lỗi lên đây xem nào.

befaint · 14/2/20

snow25 đã viết:
Lỗi gì

Lỗi là hợp lý rồi.
Vì bảng tính, mặc định khi chưa làm gì, các cells đều có thuộc tính Locked. Vậy nên, ngay sau sự kiện đầu tiên bảng tính khóa lại => không làm gì được nữa.

VetMini · 14/2/20

befaint đã viết:
Lỗi là hợp lý rồi.
Vì bảng tính, mặc định khi chưa làm gì, các cells đều có thuộc tính Locked. Vậy nên, ngay sau sự kiện đầu tiên bảng tính khóa lại => không làm gì được nữa.

Chu choa. Bạn học Vê Bê A ở diễn đàn nào mà giỏi vậy? Cho cái linh bà con theo với

batman1 · 14/2/20

VetMini đã viết:
Hình như cái diễn đàn kia là do một cựu thành viên GPE lập ra.

Ai thế bác? Bác nói thế nên tôi tò mò sang xem thế nào. Một lúc thì thấy bên ấy "chửi GPE quá.
Vd. như chủ đề "hi-hi-ai-la-thay-cua-em-hay-gio-tay"

Trích đoạn cuối

VetMini · 14/2/20

batman1 đã viết:
Ai thế bác? Bác nói thế nên tôi tò mò sang xem thế nào. Một lúc thì thấy bên ấy "chửi GPE quá.
...

Thế giới ảo mà. Mình chỉ có thể nói sơ sơ thôi chứ làm sao chỉ tên vạch mặt.
Nếu có dùng địa chỉ IP để so sánh thì người A vẫn có thể nói rằng mình ở chung nhà trọ với người B.

Trên nguyên tắc thì nếu hai diễn đàn cùng loại thì ở diễn đàn A chửi diễn đàn B là hành động cạnh tranh không lành mạnh. Tôi chỉ có thể nói thế thôi.

befaint · 14/2/20

hpkhuong đã viết:
Vào đây quảng cáo hả bạn?

Ối chời. Mình thấy thành viên kia cứ lượt vài ba chủ đề ở GPE là lại pọt được một bài sang bên đó.

CHAOQUAY · 14/2/20

batman1 đã viết:
Ai thế bác? Bác nói thế nên tôi tò mò sang xem thế nào. Một lúc thì thấy bên ấy "chửi GPE quá.
Vd. như chủ đề "hi-hi-ai-la-thay-cua-em-hay-gio-tay"

Trích đoạn cuốiView attachment 232004

Trước có tham gia vui chơi có thưởng của @khongtu19bk tôi cũng đã đọc mấy bài viết trên, rác rưởi quá nên cũng chẳng bận tâm bác ạ.

hongphuong1997 · 14/2/20

CHAOQUAY đã viết:
Trước có tham gia vui chơi có thưởng của @khongtu19bk tôi cũng đã đọc mấy bài viết trên, rác rưởi quá nên cũng chẳng bận tâm bác ạ.

Anh oi, họ nói xấu GPE mình quá anh à.

Locvo236 · 17/2/20

Sao Group toàn chửi nhau không vậy mọi người ? chủ yếu để trao đổi học hỏi thôi mà, mình mới vào mà thấy nhiều chuyện quá

VetMini · 17/2/20

Locvo236 đã viết:
Sao Group toàn chửi nhau không vậy mọi người ? chủ yếu để trao đổi học hỏi thôi mà, mình mới vào mà thấy nhiều chuyện quá

"Group" nào? ai chửi ai?
Người cần "học hỏi" tự động biết lướt qua những chỗ "nhiều chuyện".
Mới vào mà không chịu chú tâm vào chỗ đáng học hỏi thì còn khuya mới khá được.

Locvo236 · 17/2/20

VetMini đã viết:
"Group" nào? ai chửi ai?
Người cần "học hỏi" tự động biết lướt qua những chỗ "nhiều chuyện".
Mới vào mà không chịu chú tâm vào chỗ đáng học hỏi thì còn khuya mới khá được.

Tôi chưa thấy bạn ở trong group này hơi phí thời gian đó, thay vì giải đáp thắc mắc của các bạn khác để hỗ trợ nhau, bạn toàn đi Comment những điều vô ích trên đây, để thời gian làm những chuyển có ích nha bạn

VetMini · 17/2/20

Locvo236 đã viết:
Tôi chưa thấy bạn ở trong group này hơi phí thời gian đó, thay vì giải đáp thắc mắc của các bạn khác để hỗ trợ nhau, bạn toàn đi Comment những điều vô ích trên đây, để thời gian làm những chuyển có ích nha bạn

Vậy sao? Ý thức nhận định cỡ vậy mà cũng đòi học Excel.
Đã nói muốn học thì lo chú tâm vào chỗ cần học đi. Nếu không biết nổi chỗ để cần học thì những nhận định về "hỗ trợ nhau" có giá trị gì? Biết thế nào là bài có thể học được? Biết thế nào là "có ích"?
Sau khi học được cỡ 100 bài ở đây rồi hẵn quay lại phê phán.
Nên nhớ rằng từ "có ích" nó phải dựa vào ý kiến khách quan chứ đâu thể chủ quan. Trong cái đầu óc chủ quan của thằng du đãng thì đàn em của hắn là có ích.

Và bỏ cái tật Tây bồi với tôi đi.

Locvo236 · 17/2/20

VetMini đã viết:
Vậy sao? Ý thức nhận định cỡ vậy mà cũng đòi học Excel.
Đã nói muốn học thì lo chú tâm vào chỗ cần học đi. Nếu không biết nổi chỗ để cần học thì những nhận định về "hỗ trợ nhau" có giá trị gì? Biết thế nào là bài có thể học được? Biết thế nào là "có ích"?
Sau khi học được cỡ 100 bài ở đây rồi hẵn quay lại phê phán.
Nên nhớ rằng từ "có ích" nó phải dựa vào ý kiến khách quan chứ đâu thể chủ quan. Trong cái đầu óc chủ quan của thằng du đãng thì đàn em của hắn là có ích.

Và bỏ cái tật Tây bồi với tôi đi.

Ý thức hay không tự mà nhìn nhận lấy nhé!. Chưa biết bạn giỏi Excel ntn, nhưng qua những gì bạn nói thì bạn rất giỏi bàn phím, và nếu có lịch sự và lòng tự trọng thì đừng tranh luận việc cá nhân vào trong bài đăng của người khác nhé. Chào bạn

VetMini · 17/2/20

Người biết lịch sự không dùng tiếng Tây bồi để giao tiếp.
Người biết tự trọng đã trọng tiếng mẹ đẻ hơn tiếng Tây.
Chỉ có những người yêu tiếng mẹ đẻ mới đủ tư cách dẫn dắt tôi về phép lịch sự và lòng tự trọng.

CÁCH KHÓA DỮ LIỆU KHI ĐÃ NHẬP DỮ LIỆU 1 LẦN (1 người xem)

Người dùng đang xem chủ đề này

Thành viên mới

Thành viên hoạt động

Thành viên mới

File đính kèm

Thành viên hoạt động

File đính kèm

Thành viên mới

Thành viên hoạt động

Thành viên hoạt động

whom?

Đang đi tìm hòn đá

whom?

Thành viên mới

Thành viên hoạt động

Thành viên mới

Đang đi tìm hòn đá

Thành viên hoạt động

Đang đi tìm hòn đá

Thành viên mới

Thành viên gắn bó

Thành viên gạo cội

Thành viên mới

Thành viên gạo cội

|||||||||||||

Đang đi tìm hòn đá

Thành viên gạo cội

Đang đi tìm hòn đá

|||||||||||||

Thành viên gắn bó

Thành viên tiêu biểu

Thành viên mới

Đang đi tìm hòn đá

Thành viên mới

Đang đi tìm hòn đá

Thành viên mới

Đang đi tìm hòn đá

Thời gian đếm ngược.