formule beveiligen

[rostie-rostelli]

Hallo,

Ik heb in een bepaalde cel een formule staan die een resultaat geeft van een bewerking, in diezelfde cel mag ook een waarde ingevuld worden naar keuze door de gebruiker, in dit geval verdwijnt de formule !! :shocked: is het mogelijk om deze formule te beveiligen en de gebruiker toch toe te laten hier een andere waarde in te geven?

Alvast bedankt,
Danny

 

[Roncancio]

Ik zou het zelf niet zo gauw doen maar je zou in VBA code kunnen zetten die de mogelijk openlaat om een formule te overschrijven en weer terug te zetten.
In onderstaande code wordt gecontroleerd of cel B1 leeg is.
Als dit zo is, dan wordt de formule Som(A1:A5) in cel B1 gezet.
Zet je in cel B1 handmatig een getal neer dan wordt deze formule overschreven.
Delete je dat getal dan komt de formule weer terug.

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B1").Value = "" Then Range("B1").Formula = "=sum(A1:A5)"
End Sub

Met vriendelijke groet,


Roncancio