Can I get one cell to increase by 1

[RMontani]

I submitted this question in another thread and had some excellent help. The question was if it is possible to increase one cell by 1 when the date was changed in another cell. I installed the code that was given to me and it worked perfectly, thanks agin JB and royuk, UNTIL the cell that was to increase by 1 was locked and the sheet protected. The date cell is not locked.

[shg]

Change the code to protect the sheet with the UserInterfaceOnly argument set to True. That allows VBA to manipulate the sheet while protecting it from the user interface.

[RMontani]

Thanks alot for the help SHG, but I'm not quite expierenced enough to do that. This is the code that I'm using, but J Beaucaire had to write it for me.
[Code]
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Range("B1").Value = Range("B1").Value + 1
End If
End Sub
[code]

[JBeaucaire]

Maybe something like this:

Please Login or Register  to view this content.

Be sure to edit that password.

It also might be
ActiveWorksheet.Unprotect Password:="secret"

[JBeaucaire]

There is also a code snippet:

userInterfaceOnly:=True

...that would mean the sheet is protected from users making changes, but not VBA. So cell B1 could still be edited by the macro even though it's locked, without having to unprotect it.

How is the sheet getting protected?

[shg]

Please Login or Register  to view this content.

Note Protect, not Unprotect.

[JBeaucaire]

Please Login or Register  to view this content.

Note Protect, not Unprotect.

That's sweet. Never thought of just updating the existing protection. Very nice.

[shg]

You actually only need to do it in the Workbook Open event.

[RMontani]

First I want to apologize for not using tags when I posted that code, I will read up on those now. Second, THANKS again for your help shg and JBeaucaire. I will look at both ways to solve my problem. I'll look into those tags.

[shg]

Gracias. Mark us up Solved if you would, please.

[RMontani]

Just wanted to say thanks to shg and JBeaucaire for all your help.