作者kcyy (嫑槑)
看板Office
标题[算表] VBA另存成unicode档
时间Tue Oct 16 18:54:52 2018
软体: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://webptt.com/cn.aspx?n=bbs/Office/M.1539687295.A.730.html
1F：→ soyoso: 如果无合适方式的话，可於activeworkbook上方加上 10/16 22:26
2F：→ soyoso: activesheet.copy 试试 10/16 22:27
3F：→ kcyy: 可以了，感谢协助 10/17 08:33