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

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