只读excel文件保存而没有只读属性？

Question

我有一个excel模板，已将其设为只读（在另存为>工具>常规选项：打开密码时），以防止其他用户对其进行修改。执行脚本时，文件将以设置的名称保存在设置的位置。我希望此脚本删除原始文件中的“打开密码”设置。

我尝试修改“另存为”脚本，但是保留了“密码打开”设置，就像在原始文件中一样。

如何使用vba脚本摆脱“打开密码”设置？

“另存为”脚本现在起作用的是：

Sub refreshpivots()
Dim workbook_Name As Variant
Dim location As String
Dim workbookdirectory As String

ActiveWorkbook.RefreshAll

workbookdirectory = "M:\Commercie\Marktdata\IRi\Segment Ontwikkeling\"

workbook_Name = Application.GetSaveAsFilename(fileFilter:="Excel binary sheet (*.xlsb), *.xlsb", InitialFileName:=workbookdirectory & ActiveWorkbook.Name)

If workbook_Name <> False Then

ActiveWorkbook.SaveAs filename:=workbook_Name, Password:="", FileFormat:=50

End If

End Sub