Обновить только для записи Excel
Я пытаюсь обновить книгу Excel. Есть два листа, которые необходимо обновить, потому что они связаны с нашей базой данных. Рабочая книга сохраняется только для записи. Я могу открыть книгу, но не могу написать пароль, и это правильный пароль. Это код, который я до сих пор.
Set data = CreateObject("Excel.Application")
data.Visible = True
Set wb = data.Workbooks.Open("C:\Users\tdumas\Desktop\Rental Aerial Agreement
(TEMPLATE).xlsx", WriteResPassword="lift123456")_
ReadOnlyRecommended=False
IgnoreReadOnlyRecommended=True
data.ActiveWorkbook.RefreshAll
WScript.Sleep(SecondsToWait * 5000)
data.ActiveWorkbook.Save
wb.Close
data.Application.Quit