Jak skrýt vzorec, ale zobrazit výsledek bez ochrany listu v aplikaci Excel?

V některých případech možná budete muset skrýt vzorce v listu pro soukromé účely. Tento článek hovoří o skrytí vzorců, ale o zobrazování výsledků bez ochrany listu v aplikaci Excel.

Skrýt vzorec, ale zobrazit výsledek bez ochrany listu pomocí kódu VBA

Skrýt vzorec, ale zobrazit výsledek bez ochrany listu pomocí kódu VBA

Chcete-li skrýt vzorce, ale zobrazit výsledky bez ochrany listu, postupujte takto.

1. V listu musíte skrýt vzorce, ale při zobrazování výsledků klikněte pravým tlačítkem na kartu listu a vyberte Zobrazit kód z nabídky pravého tlačítka myši.

2. V Microsoft Visual Basic pro aplikace zkopírujte a vložte kód VBA do okna Kód.

Kód VBA: skrýt vzorec, ale zobrazit výsledek bez ochrany listu

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

Pozor: V kódu je C1: C10 rozsah buněk, do kterého chcete skrýt vzorce. Změňte to prosím podle svých potřeb.

3. Pak klikněte na tlačítko Tools > Reference…, Zkontrolovat Microsoft Script Runtime a klikněte na tlačítko OK tlačítko v Reference - VBAProject okno. Viz snímek obrazovky:

4. zmáčkni Další + Q klávesy pro zavření Microsoft Visual Basic pro aplikace okno.

Od nynějška, když kliknete na buňku ve specifikovaném rozsahu, vzorec bude okamžitě skryt v panelu vzorců.

Související články:

• Jak zamknout určené buňky bez ochrany celého listu v aplikaci Excel?
• Jak odstranit vzorce z listu, ale zachovat hodnoty / výsledky v aplikaci Excel?