protecting the entire workbook except a range of cells

[bamaisgreat]

Can someone tell me how to modify my code? I was locking out the entire worksheet and now someone needs access to a specific range of cells.
This is what I am currently using....Thanks

Cells.Select
    ActiveSheet.Protect Password:="1288", DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.EnableSelection = xlNoSelection

 

[noori]

Best and easy way to do this is. Change the property of this range to unlock and then protect sheet ----then other person can only make changes on the permitted cells or range of cells.

 

[Trevor G]

Simply record a macro to select the range of cells then use Ctrl + 1 to get to fromat cells, select the Protection Tabe and deselect the Lock then close the format and then use the Review Tab and select Protect Sheet then add yoru password confirm the password then select another cell and stop recording this is what you end up with.

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> Macro1()<br><SPAN style="color:#007F00">'</SPAN><br><SPAN style="color:#007F00">' Macro1 Macro</SPAN><br><SPAN style="color:#007F00">'</SPAN><br><br><SPAN style="color:#007F00">'</SPAN><br>    Range("D4:I14").Select<br>    Selection.Locked = <SPAN style="color:#00007F">False</SPAN><br>    Selection.FormulaHidden = <SPAN style="color:#00007F">False</SPAN><br>    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True<br>    Range("A1").Select<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>