Làm thế nào để Khóa dữ liệu trong một ô trong excel bằng cách sử dụng vba

Question

Tôi muốn ngăn người khác chỉnh sửa nội dung ô trong bảng excel của tôi bằng VBA. có khả năng làm cái này không?

Answer 1

Hãy thử sử dụng các phương pháp Worksheet.Protect, như vậy:

Sub ProtectActiveSheet() 
    Dim ws As Worksheet 
    Set ws = ActiveSheet 
    ws.Protect DrawingObjects:=True, Contents:=True, _ 
     Scenarios:=True, Password="SamplePassword" 
End Sub 

Bạn nên, tuy nhiên, hãy quan tâm đến bao gồm cả mật khẩu trong mã VBA của bạn. Bạn không nhất thiết cần mật khẩu nếu bạn chỉ cố gắng tạo ra một rào cản đơn giản ngăn người dùng mắc lỗi nhỏ như xóa công thức, v.v.

Ngoài ra, nếu bạn muốn xem cách thực hiện một số điều trong VBA trong Excel, hãy thử ghi lại Macro và xem mã mà nó tạo ra. Đó là một cách hay để bắt đầu trong VBA.

Answer 2

Trước tiên, bạn có thể chọn ô bạn không muốn được bảo vệ (được sử dụng có thể chỉnh sửa) bằng cách thiết lập tình trạng bị khoá trong số họ để False:

Worksheets("Sheet1").Range("B2:C3").Locked = False 

Sau đó, bạn có thể bảo vệ sheet, và tất cả các ô khác sẽ được bảo vệ. Mã để làm điều này, và vẫn cho phép mã VBA của bạn để sửa đổi các tế bào là:

Worksheets("Sheet1").Protect UserInterfaceOnly:=True 

hoặc

Call Worksheets("Sheet1").Protect(UserInterfaceOnly:=True) 

Answer 3

Sub LockCells() 

Range("A1:A1").Select 

Selection.Locked = True 

Selection.FormulaHidden = False 

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= False, AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True 

End Sub 

Answer 4

Bạn cũng có thể làm điều đó trên mức bảng bị bắt trong của bảng thay đổi sự kiện. Nếu bộ đó nhu cầu của bạn tốt hơn. Cho phép khóa động dựa trên các giá trị, tiêu chí, vv ...

Private Sub Worksheet_Change(ByVal Target As Range) 

    'set your criteria here 
    If Target.Column = 1 Then 

     'must disable events if you change the sheet as it will 
     'continually trigger the change event 
     Application.EnableEvents = False 
     Application.Undo 
     Application.EnableEvents = True 

     MsgBox "You cannot do that!" 
    End If 
End Sub 

Answer 5

Hãy nói ví dụ như trong một trường hợp, nếu bạn muốn các tế bào bị khóa từ cự ly A1 đến I50 thì dưới đây là các mã:

Worksheets("Enter your sheet name").Range("A1:I50").Locked = True 
ActiveSheet.Protect Password:="Enter your Password" 

Trong một trường hợp khác nếu bạn đã có một tấm bảo vệ sau đó làm theo bên dưới mã:

ActiveSheet.Unprotect Password:="Enter your Password" 
Worksheets("Enter your sheet name").Range("A1:I50").Locked = True 
ActiveSheet.Protect Password:="Enter your Password"