Шановний аджай,
Щоб приховати формулу клітинок, перейдіть за наведеним нижче гіперпосиланням, щоб отримати рішення.
https://www.extendoffice.com/documents/excel/1424-excel-hide-formulas.html

Шановний аджай,
Якщо ви хочете приховати формулу в комірці O1, не захищаючи аркуш, спробуйте наведений нижче сценарій VBA.
Приватний додатковий аркуш_SelectionChange(ByVal Target As Range)
Статична Формула як рядок
Якщо Target.Address = "$O$1", Тоді
З Target
Формула = .Формула
.Value = .Value
Кінець з
Ще
З діапазоном ("O1")
Якщо ні .HasFormula Then
.Формула = Формула
End If
Кінець з
End If
End Sub

Після використання коду здається, що формула комірки O1 змінюється на результат формули. Насправді він приховує формулу з відображенням результату формули в рядку формул. І формула відобразиться, якщо код зламаний.

Шановний AJ!
Якщо ви хочете заблокувати діапазон вказаних рядків і стовпців, спробуйте наведений нижче сценарій VBA.

Приватний додатковий аркуш_SelectionChange(ByVal Target As Range)
Dim xRg As Range
Dim xRgEx як діапазон
Dim xRgExEach як діапазон
On Error Resume Next
Application.ScreenUpdating = Невірний
Встановити xRg = Range("H:J,4:46") 'Змініть діапазон рядків і стовпців, які ви заблокуєте, не захищаючи аркуш
Встановити xRgEx = Application.Intersect(xRg, Target)
Якщо xRgEx — нічого, вийдіть із Sub
Клітинки(1, 1). Виберіть "Вкажіть клітинку, до якої ви будете переміщатися після вибору заблокованих комірок
Application.ScreenUpdating = True
End Sub

Хороший день,
Як наведений нижче код VBA, будь ласка, змініть вказаний діапазон "H:J,4:46" на діапазон таблиці, який ви хочете заблокувати лише на аркуші.
А клітинки(1,1) мають бути клітинкою за межами діапазону таблиці. Якщо клацнути будь-яку клітинку в діапазоні таблиці, курсор буде автоматично переміщено до цієї клітинки.

Приватний додатковий аркуш_SelectionChange(ByVal Target As Range)
Dim xRg As Range
Dim xRgEx як діапазон
Dim xRgExEach як діапазон
On Error Resume Next
Application.ScreenUpdating = Невірний
Встановити xRg = Range("H:J,4:46") 'Змініть діапазон рядків і стовпців, які ви заблокуєте, не захищаючи аркуш
Встановити xRgEx = Application.Intersect(xRg, Target)
Якщо xRgEx — нічого, вийдіть із Sub
Клітинки(1, 1). Виберіть "Вкажіть клітинку, до якої ви будете переміщатися після вибору заблокованих комірок
Application.ScreenUpdating = True
End Sub

Привіт РЕНІК,

Ми не надаємо розблокований код VBA, зламайте код вручну, після чого область можна редагувати звичайним чином.

Шановний Карлос,
Наведений нижче код VBA може допомогти вам вирішити проблему. Будь ласка, заповніть свої діапазони в четвертому рядку коду та натисніть клавіші Alt + Q, щоб повернутися до робочого аркуша. Потім перейдіть до іншого аркуша, а потім поверніться до поточного аркуша, щоб активувати код. Дякуємо за коментар.

Dim xRg As Range
Приватний додатковий аркуш_Activate()
Якщо xRg - це нічого, то
Встановити xRg = Union(Діапазон("I10:I20"), Діапазон("K10:K20"), Діапазон("M10:M20"), Діапазон("O10:O20"))
End If
End Sub
Приватний допоміжний робочий лист_Change(ByVal Target As Range)
Dim I As Integer
Dim xRgNew As Range
Dim xRgLCell як діапазон
On Error Resume Next
Application.EnableEvents = False
Для I = 1 До xRg.Areas.Count
Встановіть xRgLCell = xRg.Areas.Item(I)
Встановити xRgLCell = xRgLCell(xRgLCell.Count).Offset(1, 0)
Якщо Target.Address = xRgLCell.Address Тоді
Якщо xRgNew — це нічого
Встановіть xRgNew = Ціль
Ще
Встановити xRgNew = Union(xRgNew, Target)
End If
End If
Далі
Встановити xRg = Union(xRg, xRgNew)
Application.EnableEvents = True
End Sub
Приватний додатковий аркуш_SelectionChange(ByVal Target As Range)
Помилка Перейдіть до Exitsub
Якщо (Not Intersect(xRg, Target) Is Nothing) і (Target.Count = 1), то
Target.Offset(0, 1).Вибрати
End If
Exitsub:
End Sub

Привіт Ерін,
Ви можете вручну зламати код, натиснувши кнопку Розрив у вікні Microsoft Visual Basic для програм, щоб розблокувати ці діапазони. І запустіть код, щоб знову активувати його. Дякую за коментар.

Привіт Чарлі,
На жаль, поки що не можу вам допомогти. Дякуємо за коментар.

Привіт, Аарон! Після додавання коду збережіть книгу як книгу Excel з підтримкою макросів (клацніть філе > Зберегти як > вкажіть папку для файлу > виберіть Книга Excel з підтримкою макросів від Зберегти як введіть спадний список > зберегти). Після цього кожен раз, коли ви відкриваєте файл, код працює автоматично.