Multiple protections

G

GuyB

Hi , is it possible to lock and unlock with protection passwords (all
using same password) multiple sheets, in a workbook by using just one
command or do they have to be all done individually?

Guy B
 
P

Paul Sheppard

GuyB said:
Hi , is it possible to lock and unlock with protection passwords (al
using same password) multiple sheets, in a workbook by using just on
command or do they have to be all done individually?

Guy B
Click to expand...

Hi GuyB

You will need a macro to do this, see details below.

If you want this just for 1 workbook put the macro into the Visua
Basic Editor for that sheet, if you want it available for all workbook
you will need to put it into the visual basic editor for Personal.xls

Public Sub Unprotect_All()
Dim wks As Worksheet
Dim vPword As Variant
On Error Resume Next
For Each wks In ActiveWorkbook.Worksheets
With wks
.Unprotect vPword
Do While .ProtectContents
vPword = Application.InputBox( _
prompt:="Enter password for " & .Name, _
Title:="Unprotect sheets", _
Default:="", _
Type:=2)
If vPword = False Then Exit Sub 'user cancelled
.Unprotect vPword
Loop
End With
Next
End Sub

Public Sub Protect_All()
Dim wks As Worksheet
Dim vPword As Variant
vPword = Application.InputBox( _
prompt:="Enter Password: ", _
Title:="Protect sheets", _
Default:="", _
Type:=2)
If vPword = False Then Exit Sub 'user cancelled
For Each wks In ActiveWorkbook.Worksheets
wks.Protect vPword
Next
End Su
 
G

GuyB

Hey Paul, thnak you for your assistance.
I am creating reports for a school and hope that this may save m
time.
Cheers
Guy
 
Top