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:

• Hur låser man angivna celler utan att skydda hela kalkylbladet i Excel?
• Hur tar jag bort formler från kalkylbladet men behåller värdena / resultaten i Excel?