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

Question

如何使用密码打开工作簿，禁用事件，然后在后台将一张纸复制到第二个文件中并保存。我需要在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，我输入的传递副本的工作表到第二个文件。

但我需要在后台传递密码，删除工作表并保存第二个文件，所有这些都在后台。此外，我需要删除一张纸，而不需要问我，比如：

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