Làm cách nào để khóa các ô được chỉ định mà không bảo vệ toàn bộ trang tính trong Excel?

Thông thường, bạn cần bảo vệ toàn bộ trang tính để khóa các ô khỏi việc chỉnh sửa. Có phương pháp nào để khóa ô mà không cần bảo vệ toàn bộ trang tính không? Bài viết này đề xuất một phương pháp VBA cho bạn.

Khóa các ô được chỉ định mà không bảo vệ toàn bộ trang tính bằng VBA

Khóa các ô được chỉ định mà không bảo vệ toàn bộ trang tính bằng VBA

Kinh ngạc! Sử dụng các tab hiệu quả trong Excel như Chrome, Firefox và Safari!

Tiết kiệm 50% thời gian của bạn và giảm hàng ngàn lần nhấp chuột cho bạn mỗi ngày!

Giả sử bạn cần khóa ô A3 và A5 trong trang tính hiện tại, mã VBA sau sẽ giúp bạn đạt được điều đó mà không cần bảo vệ toàn bộ trang tính.

1. Nhấp chuột phải vào tab trang tính và chọn Mã Chế độ xem từ menu chuột phải.

2. Sau đó sao chép và dán mã VBA bên dưới vào cửa sổ Mã. Xem ảnh chụp màn hình:

Mã VBA: Khóa các ô được chỉ định mà không bảo vệ toàn bộ trang tính

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
        If Target.Row = 3 Or Target.Row = 5 Then
            Beep
            Cells(Target.Row, Target.Column).Offset(0, 1).Select
        End If
    End If
End Sub

Chú thích: Trong mã, Cột 1, Hàng = 3 và Hàng = 5 cho biết ô A3 và A5 trong trang tính hiện tại sẽ bị khóa sau khi chạy mã. Bạn có thể thay đổi chúng khi bạn cần.

3. Nhấn nút Khác + Q các phím đồng thời để đóng Microsoft Visual Basic cho các ứng dụng cửa sổ.

Bây giờ ô A3 và A5 bị khóa trong trang tính hiện tại. Nếu bạn cố gắng chọn ô A3 hoặc A5 trong trang tính hiện tại, con trỏ sẽ tự động được di chuyển đến ô liền kề bên phải.

Các bài liên quan:

Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
Super Formula Bar (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2019 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ các tính năng dùng thử miễn phí 30 ngày. Đảm bảo hoàn tiền trong 60 ngày.

Đọc thêm ... Tải xuống miễn phí... Mua, tựa vào, bám vào...

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!

Đọc thêm ... Tải xuống miễn phí... Mua, tựa vào, bám vào...

20 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest

or post as a guest, but your post won't be published automatically.

Loading comment... The comment will be refreshed after 00:00.

To post as a guest, your comment is unpublished.
Aaron · 6 months ago
Is there a way for this VBA code to run automatically every time someone opens the file?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 5 months ago
  
  Hi Aaron,
  After adding the code, please save the workbook as an Excel Macro-Enabled Workbook (click File > Save As > specify a folder for the file > choose Excel Macro-Enabled Workbook from the Save as type drop-down list > Save). After that, every time when you open the file, the code works automatically.
  
  Reply
To post as a guest, your comment is unpublished.
peggywong44667799@gmail.com · 1 years ago
I have try cannot, Hide formula without protecting.
- Reply
To post as a guest, your comment is unpublished.
Kasey · 1 years ago
Hi,

I have tried to use the code for ranges you have previously posted but it isn't working - can you advise me if I should be combining the code for ranges above or below?

Thanks
- Reply
To post as a guest, your comment is unpublished.
Charlie · 2 years ago
Hello,

I used the code provided to Carlos and it did exactly what I wanted it to. Is there a way to have some ranges offset within the ROW to the right of the protected range (as the "Carlos" code already does), but have other ranges offset within the COLUMN to the cell directly below the protected range? I tried entering the "Carlos" code twice and changing the offset, but I received a variety of errors.

Thank you
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Hi Charlie,
  Sorry can't help you with that yet. Thank you for your comment.
  
  Reply
To post as a guest, your comment is unpublished.
Espen · 2 years ago
Is there any function to set for example Row 2 cell 13 to 900? Or do i need to manually punch each cell name in the code?
- Reply
To post as a guest, your comment is unpublished.
christophe.bourquard@gmail.com · 2 years ago
Bonjour,
Comment faire pour verrouiller de la cellule B8 à B10000?
D'avance merci de votre réponse.
Christophe
- Reply
To post as a guest, your comment is unpublished.
Erin · 2 years ago
Dear Crystal,

Thank you so much for this! It works perfectly.

I have used the code in Carlos' comment to run the macro automatically as you open the file. I was wondering if there is a way of having an "Undo" button or something like it, that allows you to cancel that code and therefore, unlock those ranges that have been locked.

I want those to be locked most of the time, but I would like to unlock them should I need to change any of the data. The only reason I am not protecting the whole sheet is because, if I do, it deactivates the ability to expand on tables. That in turn, expand on a line chart.

Thanks so much for the help!
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Hi Erin,
  You can manually break the code by clicking the Break button in the Microsoft Visual Basic for Applications window to unlock those ranges. And run the code to activate it again. Thanks for your comment.
  
  Reply
To post as a guest, your comment is unpublished.
carlito2002wgn · 3 years ago
Dear Crystal,

Is there anyway that this macro can be run automatically upon opening the file, or upon clicking any cell. I don't want people to have to run the macro manually in order for the required ranges to be protected.

Also, I will need to protect 12 non adjacent ranges. For example: I11:I20 and K11:K20 and M11:20 etc... How do I do this?

Last, and this one might be asking too much, but is it possible to apply the protection to the example ranges that I provided above, BUT then extend the protection down additional rows as new ones are added? In other words, protection would be applied to I11:I20 and K11:K20 and M11:20, but a user would be able to add a new row (row 21), with new data, but once the new row is added, then the protection would apply to I11:I21 and K11:K21 and M11:21. Am I asking for the moon? :-)

Thank you for everything that you've already provided! I can't thank you and other people like you enough for sharing the your knowledge. Amazing!
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear Carlos,
  The following VBA code can help you solving the problem. Please fill in your ranges in the fourth line of the code and press the Alt + Q keys to return to the worksheet. Then please shift to other worksheet and then go back to current sheet to activate the code. Thank you for your comment.
  
  Dim xRg As Range
  Private Sub Worksheet_Activate()
  If xRg Is Nothing Then
  Set xRg = Union(Range("I10:I20"), Range("K10:K20"), Range("M10:M20"), Range("O10:O20"))
  End If
  End Sub
  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim I As Integer
  Dim xRgNew As Range
  Dim xRgLCell As Range
  On Error Resume Next
  Application.EnableEvents = False
  For I = 1 To xRg.Areas.Count
  Set xRgLCell = xRg.Areas.Item(I)
  Set xRgLCell = xRgLCell(xRgLCell.Count).Offset(1, 0)
  If Target.Address = xRgLCell.Address Then
  If xRgNew Is Nothing Then
  Set xRgNew = Target
  Else
  Set xRgNew = Union(xRgNew, Target)
  End If
  End If
  Next
  Set xRg = Union(xRg, xRgNew)
  Application.EnableEvents = True
  End Sub
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  On Error GoTo Exitsub
  If (Not Intersect(xRg, Target) Is Nothing) And (Target.Count = 1) Then
  Target.Offset(0, 1).Select
  End If
  Exitsub:
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
pabloizquierdo88@gmail.com · 3 years ago
Dear Crystal,

You have provided me with a solution (half of it) that I have been struggling for the last few weeks, but I would need some more hints.

How this could be applied to a table range only, not whole worksheet? Thanks in advance.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Good Day,
  As the VBA code provided below, please change the specified range "H:J,4:46" to the table range you only want to lock in the worksheet.
  And cells(1,1) should be the cell outside the table range. When clicking on any cell in the table range, the cursor will be moved to that cell automatically.
  
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim xRg As Range
  Dim xRgEx As Range
  Dim xRgExEach As Range
  On Error Resume Next
  Application.ScreenUpdating = False
  Set xRg = Range("H:J,4:46") 'Change the row range and column range you will lock without protecting worksheet
  Set xRgEx = Application.Intersect(xRg, Target)
  If xRgEx Is Nothing Then Exit Sub
  Cells(1, 1).Select 'Specify a cell you will shift to after selecting the locked cells
  Application.ScreenUpdating = True
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
AJ · 3 years ago
how could i lock a range of rows, say 4-46 and columns 8 and 10
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear AJ,
  If you want to lock a range of specified rows and columns, please try the below VBA script.
  
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim xRg As Range
  Dim xRgEx As Range
  Dim xRgExEach As Range
  On Error Resume Next
  Application.ScreenUpdating = False
  Set xRg = Range("H:J,4:46") 'Change the row range and column range you will lock without protecting worksheet
  Set xRgEx = Application.Intersect(xRg, Target)
  If xRgEx Is Nothing Then Exit Sub
  Cells(1, 1).Select 'Specify a cell you will shift to after selecting the locked cells
  Application.ScreenUpdating = True
  End Sub
  
  Reply
  
  To post as a guest, your comment is unpublished.
  
  Nikki · 8 months ago
  
  This is a great workaround, especially in shared workbooks where turning protection on/off is unsupported. Thank you so much.
  
  Reply
To post as a guest, your comment is unpublished.
ajay · 4 years ago
I wanted to hide formula in Cell O1. Please inform formula for the same.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear ajay,
  If you want to hide formula in cell O1 without protecting the worksheet, please try the below VBA script.
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Static TheFormula As String
  If Target.Address = "$O$1" Then
  With Target
  TheFormula = .Formula
  .Value = .Value
  End With
  Else
  With Range("O1")
  If Not .HasFormula Then
  .Formula = TheFormula
  End If
  End With
  End If
  End Sub
  
  After using the code, it seems that the formula of cell O1 is changed to formula result. Actually, it hides the formula with displaying the formula result in the Formula Bar. And the formula will display if the code is broken.
  
  Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear ajay,
  For hidding formula of cells, please follow the below hyperlink to get the solution.
  https://www.extendoffice.com/documents/excel/1424-excel-hide-formulas.html
  
  Reply

Đăng nhập vào tài khoản của bạn

Đặt lại mật khẩu