VBA to Protect/unprotect only the formulas in each sheet of a workbook

[WimpieOosthuizen]

Good day

I have been researching this for 3 days now with no luck
The below is the closest I got but it comes up with a debug for cel.Locked=true
The error is:
Run-time error '1004':
Unable to set the locked property of the Range class

Please Login or Register  to view this content.

I need to password protect all formulas in all the sheets for a workbook, and then be able to unprotect it if changes needs to made by using the same password used to protect it
Please help

[dominicb]

Good morning WimpieOosthuizen

Are you sure this is the code that fails?
I can see nothing wrong with it, and I have just tested it and it works fine - it does exactly what you describe.

HTH

DominicB