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

Jak ukryć formułę, ale wyświetlić wynik bez ochrony arkusza roboczego w programie Excel?

W niektórych przypadkach może być konieczne ukrycie formuł w arkuszu w celu zachowania prywatności. W tym artykule jest mowa o ukrywaniu formuł, ale wyświetlaniu wyników bez ochrony arkusza roboczego w programie Excel.

Ukryj formułę, ale wyświetl wynik bez ochrony arkusza roboczego z kodem VBA


Ukryj formułę, ale wyświetl wynik bez ochrony arkusza roboczego z kodem VBA

Aby ukryć formuły, ale wyświetlać wyniki bez ochrony arkusza, wykonaj następujące czynności.

1. W arkuszu roboczym musisz ukryć formuły, ale wyświetlając wyniki, kliknij prawym przyciskiem myszy kartę arkusza i wybierz Wyświetl kod z menu po kliknięciu prawym przyciskiem myszy.

2. w Microsoft Visual Basic for Applications należy skopiować i wkleić kod VBA do okna Code.

Kod VBA: ukryj formułę, ale wyświetl wynik bez arkusza ochronnego

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

Uwagi: W kodzie C1: C10 to zakres komórek, w których chcesz ukryć formuły. Zmień to w zależności od potrzeb.

3. Następnie kliknij Narzędzia > Bibliografia…, Sprawdź Środowisko wykonawcze skryptów firmy Microsoft Microsoft i kliknij OK przycisk w Referencje - VBAProject okno. Zobacz zrzut ekranu:

4. wciśnij inny + Q klucze do zamknięcia Microsoft Visual Basic for Applications okno.

Odtąd po kliknięciu komórki w określonym zakresie formuła zostanie natychmiast ukryta na pasku formuły.


Podobne artykuły:


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
officetab dół
Sortuj komentarze według
Komentarze (20)
Znamionowy 5 z 5 · 1 oceny
Ten komentarz został zminimalizowany przez moderatora na stronie
Próbowałem użyć kodu VBA i otrzymałem komunikat o błędzie informujący, że muszę debugować następującą część kodu: „If xDic.Count <> xRg.Count Then”
Ten komentarz został zminimalizowany przez moderatora na stronie
Droga Jenessy,
Z której wersji pakietu Office korzystasz?
Ten komentarz został zminimalizowany przez moderatora na stronie
u mnie też ten sam błąd
wersja biurowa 2013
Ten komentarz został zminimalizowany przez moderatora na stronie
Dobry dzień,
Proszę skopiować cały skrypt zawierający pierwszą linię "Dim xDic As New Dictionary".
Pominięcie pierwszego wiersza kodu spowoduje ten błąd.
Ten komentarz został zminimalizowany przez moderatora na stronie
Dostaję też ten sam błąd
Ten komentarz został zminimalizowany przez moderatora na stronie
Zostałem skopiowany na cały świat, ale nadal podaję błąd, ponieważ typ zdefiniowany przez użytkownika nie został zdefiniowany, więc co mogę zrobić?
Ten komentarz został zminimalizowany przez moderatora na stronie
Zaznacz odwołanie do biblioteki Microsoft Active X Data Object Library w edytorze VBA.


1. Otwórz edytor VBA i przejdź do Narzędzia | Bibliografia.


2. Przewiń w dół, aż zobaczysz bibliotekę obiektów danych Microsoft Active X.


3. Jeśli masz wiele wersji, użyj najnowszej wersji. Wersje będą odpowiadać wersjom MDAC. Jedynym przypadkiem, w którym nie chcesz korzystać z najnowszej wersji, jest dystrybucja projektu na maszynie, na której znajduje się starsza wersja. Jeśli więc na komputerach, na których dystrybuujesz, zainstalowano tylko MDAC 2.6, a Ty masz MDAC 2.7, sprawdź odniesienie do wersji 2.6 biblioteki Microsoft Active X Data Object Library, aby upewnić się, że projekt będzie działał na komputerach, na których go dystrybuujesz.
Plus
Środowisko wykonawcze skryptów firmy Microsoft Microsoft
Ten komentarz został zminimalizowany przez moderatora na stronie
Ciągle mówi debugowanie i odświeża się co sekundę...
Ten komentarz został zminimalizowany przez moderatora na stronie
Jest też łatwy sposób.
Zaznacz komórkę lub komórki, które chcesz ukryć formułę lub dane.
Idź do Strona główna --> Format --> Formatuj komórki --> Liczba --> Niestandardowe
W polu Typ usuń ogólne i wprowadź „”””
Wartość komórki lub formuła nie pojawiają się na ekranie
Jednak pojawi się na pasku formuły, jeśli wybierzesz komórkę.
Ten komentarz został zminimalizowany przez moderatora na stronie
Próbowałem użyć kodu VBA, ale po zastosowaniu tego kodu mój Excel powoli się zawiesza. Pomóż mi w rozwiązaniu tego problemu.
Ten komentarz został zminimalizowany przez moderatora na stronie
Jeśli naciśniemy i przytrzymamy lewy przycisk myszy na komórce, formuła będzie wyświetlana, dopóki nie zwolnisz lewego kliknięcia. W przeciwnym razie powinno to działać poprawnie.
Ten komentarz został zminimalizowany przez moderatora na stronie
po tym kodzie vba zastosuj nowy wynik formuły sumy, który nie wyświetla się w komórce, pomóż....
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję Ci. Formuła zadziałała.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Im gracy, próbuję ukryć formułę w określonej kolumnie bez hasła chroniącego arkusz. skopiowałem, wkleiłem cały kod i zmieniłem komórki, ale nadal nie mogę ukryć formuły. Czy możesz pomóc.

Ten komentarz został zminimalizowany przez moderatora na stronie
formuła działała, ale problem polega na tym, że zamykamy arkusz i ponownie go otwieramy, niż VBA nie działa ...
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, Aby kontynuować korzystanie z tego języka VBA w przyszłości, po dodaniu kodu zapisz skoroszyt jako skoroszyt programu Excel z obsługą makr.Kliknij filet > Zapisz jako. W oknie dialogowym Zapisz jako wybierz Skoroszyt Excel z włączoną obsługą makr z Zapisz jako wpisz rozwijaną listę, a następnie kliknij Zapisz A następnie użyj tego skoroszytu z obsługą makr w programie Excel w przyszłości.
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję za ten kod, naprawdę potrzebowałem czegoś takiego
Znamionowy 5 z 5
Ten komentarz został zminimalizowany przez moderatora na stronie
Dia tetap ładuje ya ko?
Ten komentarz został zminimalizowany przez moderatora na stronie
saya da coba sesuai kodowanie nya, bisa berjalan, tetapi di layar ketika saya klik ke tempat yang dimaksud ada keluar tanda loading, (tanda bulat berkedip). Plik saya mmg 18 MB, bagaimana caranya agar tidak keluar tanda kedip tersebut?
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Akka,
Wspomniany przez Ciebie problem nie występuje w moim przypadku. Czy mogę zapytać, której wersji Excela używasz?
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL