Unprotect Workbooks

[YQue]

Is there a way to unprotect multiple workbooks? Let's say I have 5 workbooks open and I need to unprotect them all at the same time.

Thanks in advance..

I know how to do multiple sheets in a workbook. Just not multiple workbooks which are open.

 

[Mudface]

Similar principle, obviously easier if they all have the same (or no) password: -
<pre>
Public Sub UnprotectWBs()
Dim wb As Workbook

For Each wb In Workbooks
wb.Unprotect ' Your password
Next wb

End Sub
</pre>

 

[YQue]

Got it..

Thanks

Works like a Charm...
Q