hi All, thought this would be easy but I get:
Run-time error 1004. You cannot use this macro on a protected
sheet....
Anyone knows what's going on re. my code below? Just the protecting
works but I would like to hide all formula's and then I get the error
though my sheets are not protected.
Thanks for any reply,
Gert
Public Sub ProtectAllSheets()
Dim objSheet As Worksheet
For Each objSheet In Worksheets
Cells.SpecialCells(xlCellTypeFormulas).Select
Selection.Locked = True
Selection.FormulaHidden = True
Next objSheet
'Protecting all worksheets with(out) password
For Each objSheet In Worksheets
If objSheet.ProtectContents = False Then objSheet.Protect
""
Next objSheet
End Sub
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---
