I need a macro to unprotect cells B6:O6 and protect them back.
I would appreciate your help .

Thank Ken Calhoun

Activesheet.Unprotect Password:="ABC"
Range("B6:O6").Locked = False
Activesheet.Protect Password:="ABC"





Activesheet.Unprotect Password:="ABC"
Range("B6:O6").Locked = True
Activesheet.Protect Password:="ABC"

--
Regards,
Tom Ogilvy


"holy41" wrote:

I need a macro to unprotect cells B6:O6 and protect them back.
I would appreciate your help .

Thank Ken Calhoun

This should do exactly as you asked!

Regards,
Simon

Sub Test()
ActiveSheet.Unprotect
Range("B6:O6").Select
Selection.Locked = False
Selection.FormulaHidden = False

'WHATEVER YOU WANT TO DO WITH THE CELLS HERE

Range("B6:O6").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True
Scenarios:=True
ActiveWorkbook.Save
End Su

--
Simon Lloy
-----------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...nfo&userid=670
View this thread: http://www.excelforum.com/showthread.php?threadid=56681