Dear xls time,
Your solution is good, but it is asking for each and every sheet the same
message, which i dont want. As I had requested for all the sheets in a
single button to be protected and unprotected; whereas you have provided
the solution only for protection and that too only for
Hello Friends,
Greetings !
How can I do Protect / Unprotect All Sheets at a time with the following
only two options :-
Also when I go for unprotect all sheets system should ask user the password.
[image: Inline image 2]
Please help me in this task. Thank you,
Regards
Pravin Gunjal.
--
Are
Sub Protect()
' Loop through all sheets in the workbook
For i = 1 To Sheets.Count
' Activate each sheet in turn.
Sheets(i).Activate
response = MsgBox(Do you want to protect this sheet?, vbYesNo)
If response = vbYes Then