Làm cách nào để tạo các ô chỉ đọc trong bảng tính?

Question

Tôi đang điền một bảng tính với các giá trị Cơ sở dữ liệu. Các ô mà tôi điền dữ liệu, tôi muốn chúng được đọc chỉ cho người dùng. Tôi có thể làm cái này như thế nào?

Answer 1

Phụ thuộc vào cách bạn muốn chọn dải ô. Đây chỉ là một ô. Nếu bạn quay lại J1 và thay đổi giá trị, bạn sẽ được nhắc nhở.

Private Sub Worksheet_Change(ByVal Target As Range) 
    Range("J1").Select 
    Selection.Locked = True 
    ActiveSheet.Protect Contents:=True 
    Range("K1").Select 

End Sub 

Các ô không bị khóa cho đến khi trang tính được bảo vệ. Theo mặc định, tất cả các ô được đặt thành Đã khóa, vì vậy, bạn sẽ phải mở khóa các ô bạn muốn người dùng có thể thay đổi.

Answer 2

This page cung cấp một phụ nhỏ để bảo vệ một dải ô.

Trích

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    If Not Intersect(Target, Range("H1:H10")) Is Nothing Then 
     Target.Offset(0, 1).Select 
     MsgBox "you may not enter that cell" 
    End If 
End Sub 

Để bảo vệ H1:H10. Khi người dùng muốn thay đổi một ô trong phạm vi H1:H10 thông báo cảnh báo cho biết rằng ô có thể không được sửa đổi và ô bên cạnh trong cột tiếp theo (I) được chọn thay thế.

Answer 3

Trong excel bạn có thể chuyển đến menu Bảo vệ và chỉ định ô nào sẽ yêu cầu mật khẩu để sửa đổi. Bạn cũng có thể chỉ định nhiều dải ô.

Hy vọng đây là những gì bạn đang tìm kiếm.

Answer 4

Bạn có thể thử bảo vệ các ô. Hoặc bạn có thể tự viết mã bằng cách sử dụng sự kiện xử lý SelectionChange ...:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
     If Not Intersect(Selection, Range("A24:A50")) Is Nothing Then 
     Range("B1").Select 
     End If 
    End Sub 

Answer 5

Trong những trường hợp này, tôi thường tìm cách tốt nhất là khóa trang tính nhưng chỉ cho người dùng bằng cách sử dụng đối số UserInterfaceOnly vẫn cho phép tương tác không bị giới hạn theo chương trình với trang tính.

ActiveSheet.ProtectUser InterfaceOnly:=True 

Có nhiều đối số khác có thể đặt cho phép người dùng lọc, sắp xếp, v.v ... nếu cần, tệp trợ giúp có danh sách đầy đủ.