Note: The other languages of the website are Google-translated. Back to English

Як приховати формулу, але відобразити результат без захисту робочого аркуша в Excel?

У деяких випадках вам може знадобитися приховати формули на своєму робочому аркуші приватно. У цій статті йдеться про приховування формул, але відображення результатів без захисту робочого аркуша в Excel.

Приховати формулу, але відобразити результат, не захищаючи аркуш кодом VBA


Приховати формулу, але відобразити результат, не захищаючи аркуш кодом VBA

Щоб приховати формули, але відображати результати без захисту робочого аркуша, виконайте наступні дії.

1. На аркуші потрібно приховати формули, але відображаючи результати, клацніть правою кнопкою миші вкладку аркуша та виберіть Переглянути код з меню, що клацне правою кнопкою миші.

2 В Microsoft Visual Basic для додатків вікно, скопіюйте та вставте код VBA у вікно коду.

Код VBA: приховати формулу, але відобразити результат без захисту робочого аркуша

Dim xDic As New Dictionary
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xCell As Range
    Dim xRg As Range
    Set xRg = Range("C1:C10")
    If xDic.Count <> xRg.Count Then
        For Each xCell In xRg
            xDic.Add xCell.Address, xCell.FormulaR1C1
        Next
    End If
    If (Target.Count = 1) And (Not Application.Intersect(xRg, Target) Is Nothing) And (Target.HasFormula) Then
        With Target
            .Value = .Value
        End With
    Else
        For Each xCell In xRg
            xCell.Formula = xDic.Item(xCell.Address)
        Next
    End If
End Sub

примітки: У коді C1: C10 - це діапазон комірок, який потрібно заховати всередині формул. Будь ласка, змініть його відповідно до ваших потреб.

3 Потім натисніть інструменти > Список літератури ..., перевірте Виконання сценарію Microsoft і натисніть на OK кнопка в Посилання - VBAProject вікно. Дивіться знімок екрана:

4 Натисніть кнопку інший + Q клавіші, щоб закрити Microsoft Visual Basic для додатків вікна.

Відтепер, коли ви натискаєте клітинку в зазначеному діапазоні, формула буде негайно прихована у рядку формул.


Статті по темі:


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (16)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Я спробував використати код VBA, і мені було видано повідомлення про помилку про те, що мені потрібно налагодити таку частину коду: " Якщо xDic.Count <> xRg.Count Then"
Цей коментар був мінімізований модератором на сайті
Шановна Дженессі,
Яку версію Office ви використовуєте?
Цей коментар був мінімізований модератором на сайті
для мене теж така сама помилка
офісна версія 2013
Цей коментар був мінімізований модератором на сайті
Хороший день,
Будь ласка, скопіюйте весь сценарій, включіть перший рядок "Dim xDic As New Dictionary".
Пропуск першого рядка в коді спричинить цю помилку.
Цей коментар був мінімізований модератором на сайті
Я також отримую таку ж помилку
Цей коментар був мінімізований модератором на сайті
Я був скопійований по всьому світу, але все ще дає помилку, оскільки визначений користувачем тип не визначено, так що я можу зробити
Цей коментар був мінімізований модератором на сайті
Позначте посилання на бібліотеку об’єктів даних Microsoft Active X у редакторі VBA.


1. Відкрийте редактор VBA та перейдіть до Інструменти | Посилання.


2. Прокрутіть униз, доки не побачите бібліотеку об’єктів даних Microsoft Active X.


3. Якщо у вас декілька версій, використовуйте останню версію. Версії відповідатимуть версіям MDAC. Єдиний раз, коли ви не захочете використовувати останню версію, це якщо ви розповсюджуєте проект на машину, на якій є старіша версія. Отже, якщо на машинах, які ви розповсюджуєте, встановлено лише MDAC 2.6, а у вас MDAC 2.7, перевірте посилання на версію 2.6 бібліотеки об’єктів даних Microsoft Active X, щоб переконатися, що проект працюватиме на машинах, на які ви його поширюєте.
плюс
Виконання сценаріїв Microsoft
Цей коментар був мінімізований модератором на сайті
Він постійно говорить про налагодження і оновлюється щосекунди...
Цей коментар був мінімізований модератором на сайті
Також є легкий шлях.
Виберіть клітинку або клітинки, у яких потрібно приховати формулу або дані.
Перейдіть на головну → Формат → Формат клітин → Число → Власний
У розділі «Тип» видаліть загальні та введіть «»»
Значення комірки або формула не відображаються на екрані
Однак він з’явиться в рядку формул, якщо ви виберете клітинку.
Цей коментар був мінімізований модератором на сайті
Я спробував використовувати код VBA, але після застосування цього коду мій Excel стає повільним і зависає. Будь ласка, допоможіть мені вирішити цю проблему.
Цей коментар був мінімізований модератором на сайті
Якщо ми натиснемо й утримуємо ліву кнопку миші на клітинці, формула відображатиметься, доки ви не відпустите ліву кнопку миші. Інакше це повинно працювати нормально.
Цей коментар був мінімізований модератором на сайті
після цього коду vba застосувати новий результат формули суми не відображається в клітинці, будь ласка, допоможіть....
Цей коментар був мінімізований модератором на сайті
Дякую. Формула спрацювала.
Цей коментар був мінімізований модератором на сайті
Привіт, милості, я намагаюся приховати формулу в певному стовпці, не захищаючи аркуш паролем. я скопіював весь код і змінив клітинки, але все ще не можу приховати формулу. Чи можете ви допомогти.

Цей коментар був мінімізований модератором на сайті
формула спрацювала, але проблема в тому, що коли ми закриваємо аркуш і знову відкриваємо його, VBA не працює...
Цей коментар був мінімізований модератором на сайті
Привіт! Щоб і надалі використовувати цей VBA, після додавання коду збережіть книгу як робочу книгу Excel з підтримкою макросів. Натисніть філе > Зберегти як. У діалоговому вікні Зберегти як виберіть Книга Excel з підтримкою макросів від Зберегти як введіть спадний список, а потім натисніть кнопку зберегти button.А потім використовуйте цю книгу Excel з підтримкою макросів у майбутньому.
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця