cacher les formules dans la barre de formule

Comment cacher une formule à partir de la barre de formule

Laissez-moi vous montrer deux façons de cacher des formules à partir de la barre de formule

---

No1.

Pour masquer la formule à partir de la barre de formule, vous devez définir le HiddenFormula propriété de l'objet à True


Il ne fonctionne que lorsque la feuille de calcul est protégé


Ainsi, le truc ici est la suivante:

-> sélectionner toutes les cellules et de les débloquer pour le montage

-> sélectionnez les cellules que vous souhaitez masquer des formules et de les verrouiller

-> protéger la feuille

Sélectionner toutes les cellules et de les débloquer pour l'édition

-> sélectionner toutes les cellules, cliquez-droit n'importe où pour formater les cellules. Aller à la Protection onglet et désélectionner Locked

Sélectionnez les cellules que vous souhaitez masquer des formules et de les verrouiller

-> sélectionnez A1, clic droit, aller à Protection et sélectionnez l'onglet Locked et Hidden

Protéger la feuille

-> Cliquez sur le Review onglet, puis Protect Sheet et OK ( aucun mot de passe nécessaire )

Maintenant, remarquez, vous pouvez modifier les paramètres de la cellule à l'exception de la A1. Regardez la barre de formule - Il n'y a pas de formule! Sa CACHÉ!

---

C'est un VBA solution:

Sub HideTheFormula()

    Dim ws As Worksheet
    Set ws = Sheets(1)

    Call IndexingSheets

    Call Setup(ws)
    Call ProtectSheet(ws)
    'Call UnprotectSheet(ws)

End Sub

Sub IndexingSheets()
    Sheets(1).Range("A1").Formula = _
    "=HYPERLINK(""#" & ThisWorkbook.Sheets(2).Name & "!A2"", ""TextHere"")"
End Sub

Sub ProtectSheet(ByRef ws As Worksheet)
    'ws.Protect userinterfaceonly:=True
    ws.Protect
End Sub

Sub UnprotectSheet(ByRef ws As Worksheet)
    ws.Unprotect
End Sub

Sub Setup(ByRef ws As Worksheet)
    With ws.Cells
        .Locked = False
        .FormulaHidden = False
    End With
    ws.Range("A1").Locked = True
    ws.Range("A1").FormulaHidden = True
End Sub

---

No2.

Avec une nouvelle feuille de calcul, insérer ce code dans un nouveau VBE(ALT+F11) Module. Exécuter le Main macro à partir de la View Macros fenêtre (ALT+F8)

Sub Main()
    With Range("A1")
        .Formula = "=1+1"
    End With

    With Range("A2")
        .Formula = "=1+1"
        .Value = .Value
    End With
End Sub

Après l'exécution de regarder les draps les plages de A1 et A2

Lorsque A1 est sélectionné et que vous regardez la barre de formule, vous pouvez voir la formule =1+1,

toutefois, lorsque vous sélectionnez A2 même si vous avez mis une formule dans la cellule, il a été evaluated et caché alors maintenant, il affiche la valeur évaluée (comment cool!)

Le même principe s'applique lorsque vous êtes tirant une valeur à partir d'un classeur fermé, par exemple

Sub PullValueFromAClosedWorkbooksRange()
    With Range("A1")
        .Formula = "='C:\Users\admin\Desktop\[temp.xlsm]Sheet1'!A1"
        .Value = .Value
    End With
End Sub

OriginalL'auteur