Thanks for the info Bill, but I still need to be able to edit cells in this spreadsheet, I only need 1 cell locked. When I try this:
Sub Protect_A_Cell()
ActiveSheet.Unprotect Password:="MyPassword"
Range("B1").Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
Password:="MyPassword"
End Sub
I still can't make any changes to the active sheet at all. In more detail I have 3 pivot tables on this sheet and I need to restrict a certain user from changing the pivot in cell B1. I've also tried to change the properties for sheet1 to enable selection = xlunlockedcells.
Any suggestions are greatly appreciated.
Eric