Ajay thân mến,
Đối với công thức ẩn của ô, vui lòng theo siêu liên kết dưới đây để nhận giải pháp.
https://www.extendoffice.com/documents/excel/1424-excel-hide-formulas.html

Ajay thân mến,
Nếu bạn muốn ẩn công thức trong ô O1 mà không bảo vệ trang tính, hãy thử tập lệnh VBA bên dưới.
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Công thức tĩnh dưới dạng chuỗi
Nếu Target.Address = "$ O $ 1" thì
Với mục tiêu
TheFormula = .Formula
.Giá trị = .Giá trị
Kết thúc với
Khác
Với Phạm vi ("O1")
Nếu không .HasFormula thì
.Formula = TheFormula
Cuối Nếu
Kết thúc với
Cuối Nếu
End Sub

Sau khi sử dụng mã, có vẻ như công thức của ô O1 được thay đổi thành kết quả công thức. Trên thực tế, nó ẩn công thức với việc hiển thị kết quả công thức trong Thanh công thức. Và công thức sẽ hiển thị nếu mã bị hỏng.

AJ thân mến,
Nếu bạn muốn khóa một loạt các hàng và cột được chỉ định, hãy thử tập lệnh VBA bên dưới.

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Dim xRg theo phạm vi
Dim xRgEx dưới dạng phạm vi
Dim xRgExEach As Range
On Error Resume Next
Application.ScreenUpdating = Sai
Đặt xRg = Range ("H: J, 4: 46") 'Thay đổi phạm vi hàng và phạm vi cột mà bạn sẽ khóa mà không bảo vệ trang tính
Đặt xRgEx = Application.Intersect (xRg, Target)
Nếu xRgEx không có gì thì thoát Sub
Các ô (1, 1). Chọn 'Chỉ định một ô bạn sẽ chuyển sang sau khi chọn các ô bị khóa
Application.ScreenUpdating = True
End Sub

Ngày tốt,
Như mã VBA được cung cấp bên dưới, vui lòng thay đổi phạm vi được chỉ định "H: J, 4: 46" thành phạm vi bảng mà bạn chỉ muốn khóa trong trang tính.
Và các ô (1,1) phải là ô bên ngoài phạm vi bảng. Khi nhấp vào bất kỳ ô nào trong phạm vi bảng, con trỏ sẽ tự động được di chuyển đến ô đó.

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Dim xRg theo phạm vi
Dim xRgEx dưới dạng phạm vi
Dim xRgExEach As Range
On Error Resume Next
Application.ScreenUpdating = Sai
Đặt xRg = Range ("H: J, 4: 46") 'Thay đổi phạm vi hàng và phạm vi cột mà bạn sẽ khóa mà không bảo vệ trang tính
Đặt xRgEx = Application.Intersect (xRg, Target)
Nếu xRgEx không có gì thì thoát Sub
Các ô (1, 1). Chọn 'Chỉ định một ô bạn sẽ chuyển sang sau khi chọn các ô bị khóa
Application.ScreenUpdating = True
End Sub

Xin chào RENICK,

Chúng tôi không cung cấp code bẻ khóa VBA, các bạn tự phá code thì có thể chỉnh sửa bình thường.

Carlos thân mến,
Mã VBA sau có thể giúp bạn giải quyết vấn đề. Vui lòng điền các phạm vi của bạn vào dòng thứ tư của mã và nhấn các phím Alt + Q để quay lại trang tính. Sau đó, vui lòng chuyển sang trang tính khác và sau đó quay lại trang tính hiện tại để kích hoạt mã. Cảm ơn bình luận của bạn.

Dim xRg theo phạm vi
Private Sub Worksheet_Activate ()
Nếu xRg không có gì thì
Đặt xRg = Union (Phạm vi ("I10: I20"), Phạm vi ("K10: K20"), Phạm vi ("M10: M20"), Phạm vi ("O10: O20"))
Cuối Nếu
End Sub
Private Sub Worksheet_Change (ByVal Target As Range)
Dim I dưới dạng số nguyên
Dim xRgNew As Range
Dim xRgLCell As Range
On Error Resume Next
Application.EnableEvents = Sai
Đối với I = 1 Đến xRg.Areas.Count
Đặt xRgLCell = xRg.Areas.Item (I)
Đặt xRgLCell = xRgLCell (xRgLCell.Count) .Offset (1, 0)
Nếu Target.Address = xRgLCell.Address Thì
Nếu xRgNew không có gì thì
Đặt xRgNew = Target
Khác
Đặt xRgNew = Union (xRgNew, Target)
Cuối Nếu
Cuối Nếu
Sau
Đặt xRg = Union (xRg, xRgNew)
Ứng dụng.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Về lỗi GoTo Exitsub
Nếu (Không Giao nhau (xRg, Mục tiêu) Không có gì) Và (Mục tiêu.Count = 1) Thì
Target.Offset (0, 1) .Select
Cuối Nếu
Thoát khỏi trang:
End Sub

Chào Erin,
Bạn có thể phá mã theo cách thủ công bằng cách nhấp vào nút Break trong cửa sổ Microsoft Visual Basic for Applications để mở khóa các phạm vi đó. Và chạy mã để kích hoạt lại. Cám ơn bạn đã góp ý.

Chào Charlie,
Xin lỗi không thể giúp bạn với điều đó được nêu ra. Cảm ơn bình luận của bạn.

Xin chào Aaron, Sau khi thêm mã, vui lòng lưu sổ làm việc dưới dạng Sổ làm việc Hỗ trợ Macro Excel (bấm vào Tập tin > Save As > chỉ định một thư mục cho tệp> chọn Sổ làm việc hỗ trợ macro Excel từ Tiết kiệm như gõ danh sách thả xuống> Lưu). Sau đó, mỗi khi bạn mở tệp, mã sẽ tự động hoạt động.