Khoá dữ liệu sau khi nhập vào excel (tự động khoá)

[nadfuji]

Chào các bạn !

Tôi đang muốn tạo 1 bảng excel , nhưng có vài yêu cầu mà tôi chưa làm được như sau :
1. Ở cột STT , khi tôi click vào hàng đó thì tự động sẽ cho tôi 1 số đếm tiếp theo của hàng phía trên cạnh
2. Ngày giờ hệ thống của hàng đó tự động cập nhật (nhưng sau đó đứng yên , không nhảy nữa)
3. Khi tôi nhập xong hàng đó thì các ô của hàng đó tự động bị khoá lại

Tôi có gởi theo file đi kèm ,các bạn tham khảo và chỉ giúp dùm tôi nhé , nếu được viết dùm đoạn code này dùm .
Cảm ơn các bạn

 

[nghiaphuc]

Chào các bạn !

Tôi đang muốn tạo 1 bảng excel , nhưng có vài yêu cầu mà tôi chưa làm được như sau :
1. Ở cột STT , khi tôi click vào hàng đó thì tự động sẽ cho tôi 1 số đếm tiếp theo của hàng phía trên cạnh
2. Ngày giờ hệ thống của hàng đó tự động cập nhật (nhưng sau đó đứng yên , không nhảy nữa)
3. Khi tôi nhập xong hàng đó thì các ô của hàng đó tự động bị khoá lại

Tôi có gởi theo file đi kèm ,các bạn tham khảo và chỉ giúp dùm tôi nhé , nếu được viết dùm đoạn code này dùm .
Cảm ơn các bạn

Bạn thực hiện các bước sau:
1. Chọn toàn bộ các cột có sử dụng (trong file là 3 cột A, B, C), nhấn Ctrl+1, chọn tab Protection và bỏ tùy chọn Locked --> OK.
2. Click chuột phải vào nhãn Sheet, chọn View code và dán vào code sau:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 3 Or Target.Count > 1 Then Exit Sub
    Target.Offset(, -2) = WorksheetFunction.Max([A:A]) + 1
    Target.Offset(, -1) = Now
    ActiveSheet.Unprotect "GPE"
    Intersect(UsedRange, Target.EntireRow).Locked = True
    Intersect(UsedRange, Target.EntireRow).Borders.LineStyle = 1
    Target.Offset(, -1).NumberFormat = "dd-MMM-yy HH:mm:ss"
    ActiveSheet.Protect "GPE"
End Sub

Bây giờ, bạn nhập nội dung vào cột C và xem kết quả nhé. Còn việc nhập dữ liệu nhầm mà bị khóa lại không cho sửa thì... bạn tự chịu trách nhiệm nhé!

 

[nadfuji]

Chào bạn !

Cảm ơn bạn nhiều nhé , các bạn trong diễn đàn có thắc mắc về đề tài này thì hãy cùng tham khảo nhé .
Chúc bạn vui,

 

[nadfuji]

Bạn ơi !
Nhưng nếu như mình muốn cột E vẫn được ghi chú bình thường thì sao bạn ? (tức là không bị ảnh hưởng bởi chức năng này)
Nhờ các bạn giúp dùm , do hiện tại nó khoá hết nguyên cả worksheet ,

 

[Huu]

Sổ điểm

Chào các bạn ! Hiện nay tôi đang tham khảo và làm một sổ điểm với mục đích không để cho các giáo viên tự ý sửa điểm (nếu sửa điểm phải nhập pas), tôi muốn thêm vào trong Thisworkbook đoạn code sau:

Dim OldValue
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
OldValue = Target.Cells(1, 1)
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not IsEmpty(OldValue) And (OldValue <> Target.Cells(1, 1)) Then
If InputBox("Password:", "Yeu cau nhap Password") <> "Songma1964" Then
Application.Undo
End If
End If
End Sub


Sau khi thêm vào thi thấy phần nhập điểm đảm bảo theo yêu cầu (muốn sửa phải nhập pas), nhưng nó khoá cả Sheet DSHS (Sheet này không muốn khoá, để GV nhập và sửa danh sách cho dễ) và khi nhập pas nó nên cả kí tự.
Nhờ bạn sửa giúp (Ở phần nhập điểm thì cứ nhập đến đâu tự động khoá đến đó nếu không có điểm để trống , khi nhập pas mã hoá thành dấu ****). Thank các bạn nhiều! Nếu có thể các bạn gửi hộ vào địa chỉ: vuhuu248@gmail.com

 

[cao.pham]

Các pác viết cho em xin code tự động khóa dữ liệu sau khi nhập (chỉ khóa dữ liệu của một cột do mình chỉ định)
Ths!

 

[ASROMAGOAL]

Các bác ơi, mình muốn làm 1 bảng dự đoán worldcup, nhưng muốn nó tự động khóa không cho sửa sau 11h đêm và tự động mở (sửa được) sau 8h sáng hôm sau, các bác giúp mình với nhé, thanks nhiều nhiều

 

[binh_minhmhc]

Chào các bạn, nhờ các bạn chỉ giúp giùm, mình muốn sử dụng hàm Today() lồng trong hàm If. Nhờ các bạn chỉ giúp dùm sao cho nó không thay đổi theo ngày của hệ thống.
Vd: =If(A1="","",Today()).

 

[HieuCD]

Chào các bạn, nhờ các bạn chỉ giúp giùm, mình muốn sử dụng hàm Today() lồng trong hàm If. Nhờ các bạn chỉ giúp dùm sao cho nó không thay đổi theo ngày của hệ thống.
Vd: =If(A1="","",Today()).

chọn Today() trong công thức, nhấn F9

 

[silverbretx]

Bạn thực hiện các bước sau:
1. Chọn toàn bộ các cột có sử dụng (trong file là 3 cột A, B, C), nhấn Ctrl+1, chọn tab Protection và bỏ tùy chọn Locked --> OK.
2. Click chuột phải vào nhãn Sheet, chọn View code và dán vào code sau:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 3 Or Target.Count > 1 Then Exit Sub
    Target.Offset(, -2) = WorksheetFunction.Max([A:A]) + 1
    Target.Offset(, -1) = Now
    ActiveSheet.Unprotect "GPE"
    Intersect(UsedRange, Target.EntireRow).Locked = True
    Intersect(UsedRange, Target.EntireRow).Borders.LineStyle = 1
    Target.Offset(, -1).NumberFormat = "dd-MMM-yy HH:mm:ss"
    ActiveSheet.Protect "GPE"
End Sub

Bây giờ, bạn nhập nội dung vào cột C và xem kết quả nhé. Còn việc nhập dữ liệu nhầm mà bị khóa lại không cho sửa thì... bạn tự chịu trách nhiệm nhé!

Bạn cho mình hỏi, mình có bảng tính cần khoá các dữ liệu đã nhập thôi thì làm thế nào hả bác

 

[Huudanh1996]

Bạn thực hiện các bước sau:
1. Chọn toàn bộ các cột có sử dụng (trong file là 3 cột A, B, C), nhấn Ctrl+1, chọn tab Protection và bỏ tùy chọn Locked --> OK.
2. Click chuột phải vào nhãn Sheet, chọn View code và dán vào code sau:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 3 Or Target.Count > 1 Then Exit Sub
    Target.Offset(, -2) = WorksheetFunction.Max([A:A]) + 1
    Target.Offset(, -1) = Now
    ActiveSheet.Unprotect "GPE"
    Intersect(UsedRange, Target.EntireRow).Locked = True
    Intersect(UsedRange, Target.EntireRow).Borders.LineStyle = 1
    Target.Offset(, -1).NumberFormat = "dd-MMM-yy HH:mm:ss"
    ActiveSheet.Protect "GPE"
End Sub

Bây giờ, bạn nhập nội dung vào cột C và xem kết quả nhé. Còn việc nhập dữ liệu nhầm mà bị khóa lại không cho sửa thì... bạn tự chịu trách nhiệm nhé!

Bạn cho hỏi khi khoá theo cách của bạn có cách nào để dùng lọc dữ liệu ko

 

[le_vis]

Bạn cho hỏi khi khoá theo cách của bạn có cách nào để dùng lọc dữ liệu ko

Tôi mượn luôn File của bạn nghiaphuc tùy biến thêm phần lọc được khi khóa - Còn 2 việc nữa xoay mãi chưa được đó là :
- Sửa code Format ngày tháng năm sao cho không ngầm ẩn giờ-phút-giây
- Khi sửa lại dữ liệu cột C thì số thứ tự tại cột A không được thay đổi (Hiện tại nó đang công thêm 1)
Kính mong các bạn xem file đính kèm và trợ giúp - Xin cảm ơn