ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Protect a formula (https://www.excelbanter.com/excel-discussion-misc-queries/103397-protect-formula.html)

Lp12

Protect a formula
 
Hi all,
I have a protected sheet that only a specific user can open with password
and edit it. One of the cells has a formula and i want to restrict the user
from deleting the specified cell. Any suggestions?
Thanks in advance

Harald Staff

Protect a formula
 
If you are allowing the user to unlock the sheet, then I'd create a macro,
called from the worksheet_change event, that reinstates the formula if it
gets altered or removed.

HTH. Best wishes Harald

"Lp12" skrev i melding
...
Hi all,
I have a protected sheet that only a specific user can open with password
and edit it. One of the cells has a formula and i want to restrict the

user
from deleting the specified cell. Any suggestions?
Thanks in advance




Lp12

Protect a formula
 
Hi Harald,
Thanks a lot for replying. I've tried to wriet a code to do that but got
messy. Might you have a sample code so i could practice?
Thanks a lot.

"Harald Staff" wrote:

If you are allowing the user to unlock the sheet, then I'd create a macro,
called from the worksheet_change event, that reinstates the formula if it
gets altered or removed.

HTH. Best wishes Harald

"Lp12" skrev i melding
...
Hi all,
I have a protected sheet that only a specific user can open with password
and edit it. One of the cells has a formula and i want to restrict the

user
from deleting the specified cell. Any suggestions?
Thanks in advance





Harald Staff

Protect a formula
 
Sure. Try

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
If Intersect(Target, Me.Range("B1")) Is Nothing Then Exit Sub
If Me.Range("B1").FormulaR1C1 < _
"=IF(R2C1<0,R1C1/R2C1,0)" Then
Application.EnableEvents = False
Me.Range("B1").FormulaR1C1 = _
"=IF(R2C1<0,R1C1/R2C1,0)"
Application.EnableEvents = True
End If
End Sub

It secures the formula in B1. This goes in the worksheet module (rightclick
sheet tab, "view code" to access). Note its behavior when you insert/delete
rows and columns.

HTH. best wishes Harald

"Lp12" skrev i melding
...
Hi Harald,
Thanks a lot for replying. I've tried to wriet a code to do that but got
messy. Might you have a sample code so i could practice?
Thanks a lot.

"Harald Staff" wrote:

If you are allowing the user to unlock the sheet, then I'd create a

macro,
called from the worksheet_change event, that reinstates the formula if

it
gets altered or removed.

HTH. Best wishes Harald

"Lp12" skrev i melding
...
Hi all,
I have a protected sheet that only a specific user can open with

password
and edit it. One of the cells has a formula and i want to restrict the

user
from deleting the specified cell. Any suggestions?
Thanks in advance








All times are GMT +1. The time now is 04:43 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com