本示例另存当前文件到指定位置,并添加文档密码为“kingsoft”。

ActiveWorkbook.SaveAs Filename:="C:\MyData.et", password:="kingsoft"