如何将access中的表导出到有密码的excel中？急！！！

求助各位老师：

在我的access系统中，有一张名为“员工花名册”的表，我现在需要将它导出到名为“员工管理”的excel工作簿中，我的代码如下。导出顺利完成。

但是如果excel工作簿设得有密码（如：111111）时，我的代码就不灵了，因此，求助各位老师，如何将access中的表导出到有密码的excel中？谢谢！

Public Sub 导出员工花名册()
   Dim xlPath As String
   xlPath = CurrentProject.Path & "\员工管理.xls"
   DoCmd.TransferSpreadsheet acExport, , "员工花名册", xlPath, True
End Sub