[算表] VBA另存成unicode檔

[kcyy (嫑槑)]

軟體: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


--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 61.216.164.223
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1539687295.A.730.html
→ soyoso: 如果無合適方式的話，可於activeworkbook上方加上
→ soyoso: activesheet.copy 試試
→ kcyy: 可以了，感謝協助