軟體:EXCEL
版本:2010
請教大神，
我要將EXCEL檔另存成unicode檔，使用下列程式碼，執行時會有一個問題
如果將VBA程式碼設密碼保護
https://imgur.com/lX0c6WG.jpg
就會出現如下錯誤
https://imgur.com/xQRJFzN.jpg
但是VBA程式碼如果解開密碼保護，就能正確存檔，
請問要如何調整，才能不解開VBA程式碼的密碼，也能正確存檔呢?
謝謝
XPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.ActiveWorkbook.SaveAs Filename:=XPath & "\test.txt", _
FileFormat:=xlUnicodeText, CreateBackup:=False
Application.DisplayAlerts = True
Application.ScreenUpdating = True