Вот нашел на одном сайте:  
Sub UnprotectVBProject(WB As Workbook, ByVal Password As String)  
   '  
   ' Bill Manville, 29-Jan-2000  
   '  
   'Dim VBP As VBProject  
   'Dim oWin As VBIDE.Window  
   Dim wbActive As Workbook  
   Dim i As Integer  
       
   Set VBP = WB.VBProject  
   Set wbActive = ActiveWorkbook  
       
   If VBP.Protection <> vbext_pp_locked Then Exit Sub  
       
   Application.ScreenUpdating = False  
       
   ' Close any code windows To ensure we hit the right project  
   For Each oWin In VBP.VBE.Windows  
       If InStr(oWin.Caption, "(") > 0 Then oWin.Close  
   Next oWin  
       
   WB.Activate  
   ' now use lovely SendKeys To  unprotect  
   Application.OnKey "%{F11}"  
   SendKeys "%{F11}%TE" & Password & "~~%{F11}", True  
       
   If VBP.Protection = vbext_pp_locked Then  
       ' failed - maybe wrong password  
       SendKeys "%{F11}%TE", True  
   End If  
       
   ' leave no evidence of the password  
   Password = ""  
   ' go back To the previously active workbook  
   wbActive.Activate  
       
End Sub  
Sub test5()  
   UnprotectVBProject Workbooks("ABook.xls"), "Password"  
End Sub  
 
У меня как-то странно работает.. Подскажите, в чем проблемма?

)) Да, к сожалению, поздно.. Сначало так и делал, но потом отказался от этого... Мне очень важно чтобы, сохранялось форматирование в отчете, то есть высота строк, ширина столбцов, объединенные ячейки и т.д. А при создании новой книги часть этого пропадает..

Спасибо! Надо попробовать, если получится, то не придется мучиться.. А при таком переносе, лист в исходном файле сохраняется (это важно, нужно чтобы остался)...

{quote}{login=Дмитрий}{date=21.05.2008 03:19}{thema=}{post}  
 
У меня как-то странно работает.. Подскажите, в чем проблемма?{/post}{/quote}Странно это как? Защиту снимает?

Dim VBP As VBProject - разобрался, не подключена библиотека Microsoft Visual Basic for Application Extensibility 5.3 (у меня)  
Надо так Dim VBP As Object

Пробовал подставлять имя своего файла - не работает..  
НО, решение есть, лежит тут:  
 
А вот сам код, на всякий случай:  
Sub test()  
   Dim objExcel As Excel.Workbook  
   Dim objVBProject As Object  
   Dim objVBComponent As Object  
   Dim objWindow As Object  
     
   Set objExcel = GetObject("C:\Test.xls")  
   Set objVBProject = objExcel.VBProject  
   For Each objWindow In objVBProject.VBE.Windows  
       If objWindow.Type = vbext_wt_ProjectWindow Then ' vbext_wt_ProjectWindow =6  
           objWindow.Visible = True  
           objWindow.SetFocus  
       End If  
   Next  
   Set objVBProject.VBE.ActiveVBProject = objVBProject  
   SendKeys "~123~", True 'где 123 - пароль  
     
   DoEvents  
   For Each objVBComponent In objVBProject.VBComponents  
       Debug.Print objVBComponent.Name  
   Next  
   Set objVBProject = Nothing  
   'objExcel.Close  
   Set objExcel = Nothing  
End Sub  
 
У меня работает) Большое спасибо всем за обсуждение и помощь!!

Второй код мне уже лень пробовать, даром, что он Вам подошел.  
Первый код отлично работает (только что проверил) с подключенной библиотекой и (!) закрытым редактором VBE. Пошагово не работает.