unlocking protect sheet password

[webmax]

hi,

i have a excel template which containts the protect sheet password which was set by me. i send this excel file to multiple persons and they update the required data and send to us. for consolidating the excel file i need the macro to remove the protect sheet password. for example if i keep the password as "abc".

 

[Hui]

Sub Unprotect_Sheet()
  ActiveSheet.Unprotect "abc"
  ' or
  Worksheets("Sheet1").Unprotect "abc" 'Change Worksheet name to suit
End Sub

 

[webmax]

hi,

i have three sheets but it unprotect only one sheet i want un protect all the three sheets.

 

[sgmpatnaik]

@webmax

Please Try this

Sub UnprotectSheets()
Dim wSheet As Worksheet
 
    For Each wSheet In Worksheets
 
        If wSheet.ProtectContents = True Then
 
            wSheet.Unprotect Password:="abc"
 
        Else
 
            wSheet.Protect Password:="abc"
 
        End If
 
    Next wSheet
 
 
End Sub

Hope it solve your problem

Thanks

SP