How do I protect all worksheet in an Excel workbook with a single click

Question

About 25 worksheets are in my workbook (Excel spreadsheet). Is it possible for me to safeguard all 25 worksheets with a single click? Alternatively, if this feature is not available, I will need to create some VBA code to complete my task. I frequently need to protect and unprotect all of my linens and doing it one at a time takes time.

Answer 1

VBA Code :

Dim ws as Worksheet
Dim pwd as String

pwd = "" ' Put your password here
For Each ws In Worksheets
    ws.Protect Password:=pwd
Next ws

Unprotecting is virtually the same:

Dim ws as Worksheet
Dim pwd as String

pwd = "" ' Put your password here
For Each ws In Worksheets
    ws.Unprotect Password:=pwd
Next ws