Problem with sheet protection

[flowergirl]

Hi,

I want to make certain cells non-editable in the sheet. I am using the following code:

DestinationSheet.Cells.Locked = False
DestinationSheet.Range("N13:N52").Locked = True
DestinationSheet.Protect

But this is making the sheet protected and I cannot do further operations on the sheet. Is there a workaround?

Thanks for your help.

[Aussiebear]

Try adding the following lineActiveSheet.EnableSelection = xlUnlockedCells

[flowergirl]

This is not solving the problem.

Can someone please help.

[Bob Phillips]

What other operations can you not do?

[flowergirl]

Hi,

I have a macro defined on the sheet that pulls up some data from MS SQL Server and displays it on the sheet. That macro is not running.

That macro runs if I physically Unprotect the sheet by choosing a menu option.

If I unprotect the sheet before running the macro then the cells are no longer locked.

Please help.

[Aussiebear]

Then may I suggest that you post your code so we can see. Else follow the logic of this layout

Sub RunMacro()

Sheet1.Unprotect Password:="Secret" ‘ß=== Change sheet name to suit

'Your Macro Code

Sheet1.Protect Password:="Secret" ‘ç=== Change sheet name to suit

End Sub

[flowergirl]

Here's my code:

Range("B3").Select
ActiveCell.FormulaR1C1 = "9"
Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("B3").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells

[Bob Phillips]

Range("B3").Value = 9
With Cells
.Locked = True
.FormulaHidden = True
End With
With Range("B3")
.Locked = False
.FormulaHidden = False
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells