Không cho hiển thị công thức bằng VBA

[khoa_pr]

Tôi có đoạn code sau đây để bảo vệ những vùng dữ liệu có công thức trong Excel

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim rng As Range
For Each rng In Target.Cells
If rng.HasFormula Then
ActiveSheet.Protect (123)
Exit Sub
Else
ActiveSheet.Unprotect (123)
End If
Next rng
End Sub

Đoạn code trên đã bảo vệ được vùng có công thức, nhưng không làm ẩn công thức. Do đó tôi muốn thêm một dòng lệnh để không cho hiển thị công thức lên thanh FormulaBar. nhưng viết hoài vẫn bị báo lỗi. Mong được cộng đồng giúp đỡ.
Cám ơn nhiều.