如何用密码打开工作簿，禁用事件

如何使用密码打开工作簿，禁用事件，然后将背景中的工作表复制到第二个文件并保存。 我需要在VBA中，在MS-Access和Excel文件中工作

我这样做到现在为止，正在工作。

Private Sub TestFunction() 'strPath = CurrentDb.Properties(0) 'strPath = Left(strPath, Len(strPath) - Len(Dir(strPath, vbNormal))) & "Temp\" Dim CopyFrom As Object Dim CopyTo As Object ''Early binding: Workbook Dim CopyThis As Object Dim xl As Object ''Early binding: New Excel.Application Set xl = CreateObject("Excel.Application") xl.Visible = True Set CopyFrom = xl.Workbooks.Open("D:\A01.xls") 'CopyFrom.EnableEvents = False Set CopyThis = CopyFrom.Sheets(1) ''Sheet number 1 Set CopyTo = xl.Workbooks.Open("D:\PM1.xls") CopyThis.Copy After:=CopyTo.Sheets(CopyTo.Sheets.Count) CopyFrom.Close End Sub 

这个打开Excel，我把通过拷贝的表格input到第二个文件。

但是我需要在后台传递密码，删除表单并保存第二个文件，全部在后台。 此外，我需要删除一个表，而不问我，如：

 CopyTo.Sheets("Sheet1").Delete 

谢谢

Answer 1

密码问题

请仔细检查它是“打开文件”密码（ password参数）还是“修改文件”密码（ WriteResPassword参数）。

就像是：

 Sub OpenMyFile() Workbooks.Open Filename:="Path", Password:="OpenFile", WriteResPassword:="WriteFile" End Sub 

无警报删除

对于你的第二个问题，你可以这样做：

 Application.DisplayAlerts=False CopyTo.Sheets("Sheet1").Delete Application.DisplayAlerts=True