У меня есть шаблон 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