Posted to microsoft.public.excel.programming
|
|
Unprotect workbook and merge
This does not work... I need to unprotect the workbook... Thx!
"Jacob Skaria" wrote:
Try..
Workbooks.Open Filename:="c:\filename.xls", _
Password:="password", WriteResPassword:="password"
If this post helps click Yes
---------------
Jacob Skaria
"Boss" wrote:
Hi,
I got the code from http://www.rondebruin.nl/
Sub CombineAll()
Dim FilesToOpen
Dim x As Integer
On Error GoTo ErrHandler
Application.ScreenUpdating = False
FilesToOpen = Application.GetOpenFilename _
(filefilter:="Microsoft Excel Files (*.xls), *.xls", _
MultiSelect:=True, Title:="Files to Merge")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "No Files were selected"
GoTo ExitHandler
End If
x = 1
While x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)
Sheets().Move After:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)
x = x + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Sheets("start").Select
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub
This is excellent code and works fine... But the files which i am trying to
merge are protected. The workbook is protected in all files. How do i solve
this...
I tried...
Workbooks.Open Filename:=FilesToOpen(x), WriteResPassword:="password"
Workbooks.Open Filename:=FilesToOpen(x), Password:="password"
please help...
Thx!
|