Activesheet.Unprotect
ci = Application.Dialogs(xlDialogPatterns).Show
Activesheet.Protect

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Gizmo63" wrote in message
...
Hi all,

Is there a cunning line of VBA code that will modify protection settings
so
users can change the font colour in unlocked cells within a protected
spreadsheet?


Cheers
Giz