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

Hoe de formule te verbergen maar het resultaat weer te geven zonder het werkblad in Excel te beschermen?

In sommige gevallen moet u formules in uw werkblad verbergen voor privégebruik. Dit artikel heeft het over het verbergen van formules maar het weergeven van resultaten zonder het werkblad in Excel te beschermen.

Verberg formule maar geef het resultaat weer zonder het werkblad te beschermen met VBA-code


Verberg formule maar geef het resultaat weer zonder het werkblad te beschermen met VBA-code

Ga als volgt te werk om formules te verbergen maar resultaten weer te geven zonder een werkblad te beschermen.

1. In het werkblad moet u formules verbergen, maar als u de resultaten weergeeft, klikt u met de rechtermuisknop op de bladtab en selecteert u Bekijk code vanuit het rechtsklikmenu.

2. In de Microsoft Visual Basic voor toepassingen venster, kopieer en plak de VBA-code in het codevenster.

VBA-code: formule verbergen maar resultaat weergeven zonder werkblad te beschermen

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

Opmerking:: In de code is C1: C10 het celbereik waarin u formules wilt verbergen. Wijzig het op basis van uw behoeften.

3. Dan klikken Toolbox > Referenties…. Controleer de Microsoft Script-runtime vak en klik op het OK knop in de Referenties - VBAProject venster. Zie screenshot:

4. druk de anders + Q toetsen om de Microsoft Visual Basic voor toepassingen venster.

Als u vanaf nu op de cel in het opgegeven bereik klikt, wordt de formule onmiddellijk verborgen in de formulebalk.


Gerelateerde artikelen:


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
officetab onderkant
Heb je vragen? Stel ze hier. (20)
Rated 5 uit 5 · 1 ratings
Deze opmerking is gemaakt door de moderator op de site
Ik heb geprobeerd de VBA-code te gebruiken en ik kreeg een foutmelding waarin stond dat ik het volgende deel van de code moest debuggen: "If xDic.Count <> xRg.Count Then"
Deze opmerking is gemaakt door de moderator op de site
Beste Jenessy,
Welke Office-versie gebruik je?
Deze opmerking is gemaakt door de moderator op de site
voor mij ook dezelfde fout
office-versie 2013
Deze opmerking is gemaakt door de moderator op de site
Good Day,
Kopieer het hele script en voeg de eerste regel "Dim xDic As New Dictionary" toe.
Als u de eerste regel in de code mist, wordt deze fout veroorzaakt.
Deze opmerking is gemaakt door de moderator op de site
Ik krijg ook dezelfde fout
Deze opmerking is gemaakt door de moderator op de site
Ik ben de hele wereld gekopieerd, maar geef nog steeds een fout als door de gebruiker gedefinieerd type niet gedefinieerd, dus wat kan ik doen?
Deze opmerking is gemaakt door de moderator op de site
Markeer een verwijzing naar een Microsoft Active X Data Object Library in de VBA-editor.


1. Open de VBA-editor en ga naar Tools | Referenties.


2. Scroll naar beneden totdat u de Microsoft Active X Data Object Library ziet.


3. Als je meerdere versies hebt, gebruik dan de nieuwste versie. De versies komen overeen met de versies van MDAC. De enige keer dat u de nieuwste versie niet wilt gebruiken, is als u het project distribueert naar een machine waarop een oudere versie staat. Dus als de machines waarnaar u distribueert alleen MDAC 2.6 hebben geïnstalleerd, en u hebt MDAC 2.7, controleer dan de verwijzing naar versie 2.6 van de Microsoft Active X Data Object Library om er zeker van te zijn dat het Project zal werken op de machines waarnaar u het distribueert.
Meer
Microsoft Scripting-runtime
Deze opmerking is gemaakt door de moderator op de site
Het blijft foutopsporing zeggen en het ververst elke seconde...
Deze opmerking is gemaakt door de moderator op de site
Er is ook een gemakkelijke manier.
Selecteer de cel of cellen waarvoor u de formule of gegevens wilt verbergen.
Ga naar Home --> Opmaak --> Cellen opmaken --> Getal --> Aangepast
Onder Type, Verwijder Algemeen en voer """" in
De celwaarde of formule verschijnt niet op het scherm
Het verschijnt echter in de formulebalk als u de cel selecteert.
Deze opmerking is gemaakt door de moderator op de site
Ik heb geprobeerd de VBA-code te gebruiken, maar na het toepassen van deze code wordt mijn Excel traag en loopt hij vast. Help me alstublieft bij het oplossen van dit probleem.
Deze opmerking is gemaakt door de moderator op de site
Als we de linkermuisklik op een cel ingedrukt houden, wordt de formule weergegeven totdat u de linkerklik loslaat. Anders zou dit goed moeten werken.
Deze opmerking is gemaakt door de moderator op de site
nadat deze vba-code een nieuw resultaat van de somformule toepast dat niet in de cel wordt weergegeven, help alstublieft ....
Deze opmerking is gemaakt door de moderator op de site
Dank u. Formule werkte.
Deze opmerking is gemaakt door de moderator op de site
Hallo, ik ben gratie, ik probeer de formule in een bepaalde kolom te verbergen zonder het blad met een wachtwoord te beveiligen. ik kopieerde, plakte de volledige code en veranderde de cellen, maar kon de formule nog steeds niet verbergen. Kunt u alstublieft helpen.

Deze opmerking is gemaakt door de moderator op de site
formule werkte, maar het probleem is wanneer we het blad sluiten en opnieuw openen, dan werkte VBA niet ...
Deze opmerking is gemaakt door de moderator op de site
Hallo, Als u deze VBA in de toekomst wilt blijven gebruiken, moet u na het toevoegen van de code de werkmap opslaan als een Excel-werkmap met macro's.Klik Dien in > Opslaan als. Selecteer in het dialoogvenster Opslaan als Excel-werkmap met ingeschakelde macro's van het Opslaan als type vervolgkeuzelijst en klik vervolgens op de Bespaar button.En gebruik dan deze Excel-werkmap met macro's in de toekomst.
Deze opmerking is gemaakt door de moderator op de site
Bedankt voor deze code, zoiets had ik echt nodig
Rated 5 uit 5
Deze opmerking is gemaakt door de moderator op de site
dia tetap laden ya ko ?
Deze opmerking is gemaakt door de moderator op de site
Saya da coba sesuai coding nya, bisa berjalan, tetapi di layar ketika saya click ke tempat yang dimaksud ada keluar tanda loading, (tanda bulat berkedip). File saya mmg 18 MB, bagaimana caranya agar tidak keluar tanda kedip tersebut ?
Deze opmerking is gemaakt door de moderator op de site
hallo akkia,
Het probleem dat u noemde, wordt in mijn geval niet gereproduceerd. Mag ik vragen welke versie van Excel je gebruikt?
Er zijn nog geen reacties geplaatst

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL