Hướng dẫn cách khóa ô sau khi nhập dữ liệu trong Excel

Excel là công cụ hữu ích giúp ta tính toán dữ liệu làm việc hiệu quả hơn. Nhưng khi chia sẻ dữ liệu với người khác các bạn không muốn bị người khác sửa các công thức mà các bạn đã lập ra. Bài viết dưới đây trong series tự học Excel online mình sẽ hướng dẫn chi tiết cách khóa dữ liệu trong  Excel. Có 2 cách để khóa ô dữ liệu trong Excel sau:

– Cách 1: Đơn giản nhất là sử dụng công cụ Protect Sheet.

– Cách 2: Sử dụng VBA tự xây dựng hàm chuyển đổi.

Cách 1: Đơn giản nhất là sử dụng công cụ Protect Sheet.

Bước 1: Các bạn mở sheet chứa các công thức cần khóa, chọn tất cả sheet bằng tổ hợp phím Ctrl + A. Sau đó nhấn chuột phải chọn Format Cells.

Trong hộp thoại Format Cells nhấn chọn thẻ Protection, bỏ chọn trong mục Locked và nhấn OK.

Bước 3: Các bạn chọn Review -> Protect Sheet (hoặc Home -> Format -> Protect Sheet) để mở hộp thoại thiết lập mật khẩu.

Hộp thoại Protect Sheet xuất hiện các bạn nhập mật khẩu vào Password to unprotect sheet và nhấn OK.

Như vậy là các bạn đã khóa các công thức trong sheet, để mở khóa các bạn vào lại Review -> Unprotect Sheet(hoặc Home -> Format -> Unprotect Sheet) sau đó nhập mật khẩu vào hộp thoại Unprotect Sheet và nhấn OK để mở khóa công thức.

Cách 2: Sử dụng VBA tự xây dựng hàm chuyển đổi.

Bước 1: Nhấn tổ hợp phím Alt + F11 để mở cửa sổ VBA.

Bước 2: Vào thẻ Insert -> Module.

Bước 3: Copy đoạn mã sau vào Module

1> Code trong Module:

Public Check As Boolean
Sub ProtectSh()
  On Error Resume Next
  If Check = False Then
    With ActiveSheet
      .Unprotect ("abc12")
      .UsedRange.SpecialCells(2).Locked = True
      .UsedRange.SpecialCells(2).FormulaHidden = True
      .UsedRange.SpecialCells(3).Locked = True
      .UsedRange.SpecialCells(3).FormulaHidden = True
      .Protect ("abc12")
    End With
    Check = True
  End If
End Sub

2> Code trong Sheet

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
  If Target.Value <> "" Then
    Check = False
    Application.OnTime Now + TimeValue("00:00:06"), "ProtectSh"
  End If
End Sub

Bước 4: Quay trở lại file Excel vào File -> Options.

Bước 5: Hộp thoại xuất hiện chọn mục Trust Center -> Trust Center Settings.

Bước 6: Trong mục Macro Settings, phần Macro Settings chọn Enable all macros (not recommended; potentially dangerous code caption), phần Developer Macro Settings tích chọn mục Trust access to the VBA project object model.


Video hướng dẫn cụ thể:

Bài viết trên hướng dẫn chi tiết cách khóa công thức trong Excel, các bạn chỉ cần thực hiện lần lượt các bước là có thể khóa công thức theo ý muốn. Chúc các bạn thành công!

Bài viết cùng Serie<< Hướng dẫn cách loại bỏ dấu tiếng Việt trong ExcelCách viết chữ dọc trong Word >>

Bài viết liên quan:

Đọc nhiều cùng chuyên mục:

Add Comment