Hoppa till huvudinnehåll

Hur döljer jag formeln men visar resultatet utan att skydda kalkylbladet i Excel?

I vissa fall kan du behöva dölja formler i kalkylbladet för privata. Den här artikeln talar om att dölja formler men visa resultat utan att skydda kalkylblad i Excel.

Dölj formeln men visa resultatet utan att skydda kalkylbladet med VBA-kod


Dölj formeln men visa resultatet utan att skydda kalkylbladet med VBA-kod

Gör så här för att dölja formler men visa resultat utan att skydda ett kalkylblad.

1. I kalkylbladet måste du dölja formler men visa resultaten, vänligen högerklicka på arkfliken och välj Visa kod från högerklickmenyn.

2. I Microsoft Visual Basic för applikationer kopiera och klistra in VBA-kod i kodfönstret.

VBA-kod: dölj formeln men visa resultatet utan att skydda kalkylbladet

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

Anmärkningar: I koden är C1: C10 det cellområde som du vill dölja formler inuti. Ändra det baserat på dina behov.

3. Klicka sedan verktyg > Referenser .... Kolla Microsoft Script Runtime ruta och klicka på OK knapp i Referenser - VBAProject fönster. Se skärmdump:

4. tryck på andra + Q för att stänga Microsoft Visual Basic för applikationer fönster.

Från och med nu, när du klickar på cellen i det angivna intervallet, döljs formeln omedelbart i formelfältet.


Relaterade artiklar:

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

kte-flik 201905


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
Comments (20)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
saya da coba sesuai coding nya, bisa berjalan, tetapi di layar ketika saya klik ke tempat yang dimaksud ada keluar tanda loading, (tanda bulat berkedip). File saya mmg 18 MB, bagaimana caranya agar tidak keluar tanda kedip tersebut ?
This comment was minimized by the moderator on the site
Hi akkia,
The problem you mentioned is not reproduced in my case. May I ask which Excel version you are using?
This comment was minimized by the moderator on the site
dia tetap loading ya ko ?
This comment was minimized by the moderator on the site
Thank you for this code, I really needed something like this
Rated 5 out of 5
This comment was minimized by the moderator on the site
formula worked but the problem is when we close the sheet and reopen it than VBA not worked...
This comment was minimized by the moderator on the site
Hi, To continue using this VBA in future, after adding the code, please save the workbook as an Excel Macro-Enabled Workbook.Click File > Save As. In the Save As dialog box, select Excel Macro-Enabled Workbook from the Save as type drop down list, then click the Save button.And then use this excel macro-enabled workbook in the future.
This comment was minimized by the moderator on the site
Hi Im gracy, i am trying to hide the formula in a particular column without password protecting the sheet. i copy pasted the entire code and changed the cells but still unable to hide the formula. Can you please assist.

This comment was minimized by the moderator on the site
Thank you. Formula Worked.
This comment was minimized by the moderator on the site
after this vba code apply new sum formula result not showing in cell, please help....
This comment was minimized by the moderator on the site
If we press and hold the mouse left click to a cell, the formula shows until you release the left click. Otherwise this should work fine.
This comment was minimized by the moderator on the site
I tried using the VBA code but after applying this code my excel is getting slow and hanged.please help me in resolving this issue.
This comment was minimized by the moderator on the site
There is easy way as well.
Select the cell or cells you want to hide the formula or data.
Go to Home --> Format --> Format Cells --> Number --> Custom
Under Type, Remove General and Enter """"
The cell value or formula do not appear on the screen
However it will appear in the Formula bar if you select the cell.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations