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 SubNote: In de code is C1: C10 het celbereik waarin u formules wilt verbergen. Wijzig het op basis van uw behoeften.
3. Dan klikken Tools > 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:
- Hoe bepaalde cellen te vergrendelen zonder het hele werkblad in Excel te beschermen?
- Hoe formules uit het werkblad te verwijderen, maar de waarden / resultaten in Excel te behouden?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
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!
