Comments on: Unprotect all Worksheets in all Workbooks

By: Srinivasan Seshadri

Srinivasan Seshadri — Thu, 30 Aug 2007 11:33:00 +0000

Rob,

Tried the module for a set of 94 workbooks in one folder, each with a single worksheet.
My aim was to unprotect workbooks and worksheets and then concatenate the workbooks into a combined workbook of 94 worksheets and then create an index page for the workbook contents with hyperlinks to the worksheets..

The macro worked for unprotecting all the worksheets, but no workbook was unprotected.
The concatenate macro only works with unprotected workbooks.
I am using Office 2003.

Any more information possible in this regard?

Seshadri

By: sam

sam — Wed, 10 Jan 2007 09:31:00 +0000

Nick …the Workbook uprotect will not work from XP onwards.
The Worksheet unprotect will work upto 2003…havent tested it in 2007

By: Nick Burns

Nick Burns — Wed, 10 Jan 2007 06:17:00 +0000

(if this appears twice, I apologize)

Here's the code I've been using for a year or so now to unprotect workbooks and worksheets:

Public Sub WorkBookUnprotect(wrkbk)
On Error Resume Next
With Workbooks(wrkbk)
.Protect vbNullString, True, True
.Unprotect vbNullString
End With
End Sub

Public Sub WorkSheetUnprotect(wrkbk, wrksht)
On Error Resume Next
With Workbooks(wrkbk).Worksheets(wrksht)
.Protect vbNullString, , , , True
.Range("A1?).Copy .Range("A1?)
.Unprotect vbNullString
End With
End Sub