unlock is a reserved word.

Try...............

public sub un_lock()
Dim sht as Worksheet
for each sht in thisworkbook.sheets
sht.unprotect
next
end sub

If the sheets have the same password you could use...........

Sub UnprotectAllSheets()
Application.ScreenUpdating = False
Dim N As Single
For N = 1 To Sheets.Count
Sheets(N).Unprotect Password:="password" 'edit to your actual pword
Next N
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP

On Wed, 26 Nov 2008 07:12:00 -0800, Zee
wrote:

Hi Galimi,

I tried pasting the code into the VB editor and the first line states an
error.

Thanks

"galimi" wrote:

Zee,

The following code should do it:

public sub unlock
for each sht in thisworkbook.sheets
sht.unprotect
next
end sub
--
http://www.ExcelHelp.us

Call me at
1-888-MY-ETHER ext. 01781474



"Zee" wrote:

Unfortunately I am not very familiar with VBA and therefore am not sure what
to enter into the editor to accomplish this.

"galimi" wrote:

Zee,

You could use VBA to cycle through all the sheets that are protected and
unprotect them that way. Don't think it is possible without code.
--
http://www.ExcelHelp.us

888-MY-ETHER ext. 01781474



"Zee" wrote:

Is it possible to unprotect all sheets in a workbook at the same time?