使用 VBA 密碼保護進行保存時出現錯誤消息“運行時錯誤'1004'：對象'_Workbook'的方法'SaveAs'失敗”

Question

我正在嘗試將工作簿中的單個工作表保存為 a.txt 文件-我必須這樣做的代碼是：

ActiveWorkbook.SaveAs Filename:= _
directory & Application.UserName & "_" & file_name _
, FileFormat:=xlUnicodeText, CreateBackup:=False

（目錄和文件名在宏前面定義）

包含此代碼的宏受密碼保護。 在未輸入密碼的情況下運行宏時，我收到錯誤消息“運行時錯誤'1004'：對象'_Workbook'的方法'SaveAs'失敗”。 當我打開 Visual Basic 並輸入密碼時，宏運行良好，沒有錯誤消息。 我可以使用不同的語法來保存 .txt 文件，或者有人知道可能導致此錯誤的原因嗎？

我在 2006 年的另一個網站上找到了一篇舊的幫助帖子，答案為 0：

https://www.excelforum.com/excel-general/567235-error-when-save-as-csv-with-vba-password-protection-on.html

任何幫助/建議將不勝感激！

Answer 1

不確定是否允許回答我自己的問題或者是正確的做法 - 但我設法讓宏工作，希望這將在未來對其他人有所幫助：

代替：

ActiveWorkbook.SaveAs Filename:= _ directory & Application.UserName & "_" & file_name _, FileFormat:=xlUnicodeText, CreateBackup:=False

利用：

ThisWorkbook.SaveAs Filename:=direct & file_name, FileFormat:=xlText

不知道為什么這會起作用並且之前的代碼不起作用，但即使 vba 受密碼保護，它也會保存 a.txt 文件。