Code to Protect all Worksheets

  • Thread starter Thread starter John
  • Start date Start date
J

John

Is it possible to protect all visible and invisible worksheets with the same
password with a piece of code.

Thanks
 
somthing like...

Option Explicit
Sub testme()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
wks.Protect Password:="hi"
Next wks
End Sub
 
Thanks Dave

Its a useful function

Dave Peterson said:
somthing like...

Option Explicit
Sub testme()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
wks.Protect Password:="hi"
Next wks
End Sub
Click to expand...
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Excel Protection 2
VBA Excel - Select a value from one cell in Excel to update a SQL table 1
Protect Sheet not allowing insert or delete rows. VBA buttons notsolving problem ? 1
Remove a Macro Code 4
Secure one Worksheet only but not the Workbook 2
protecting worksheet corrupts file 1
Worksheet Protection 8
Calendar Control for Protected Sheets 1

Back
Top