Сохранить как значение (без формулы, макросы, пароль)

Question

У меня рабочая книга содержит несколько листов. Я хочу сохранять этот файл ежедневно, но только в качестве значений я пытался использовать этот код, однако новый сгенерированный файл запрашивает у меня пароль «тот же пароль исходного файла», что следует я исправлю это ..

Sub SaveAsValues()
Dim ws As Worksheet


For Each ws In Worksheets
ws.UsedRange = ws.UsedRange.Value
Next ws

ThisWorkbook.SaveAs "Z:\Collateral Monitoring\Daily\LMM - " & Format(Date, "dd mmmm yyyy")
End Sub

Answer 1

Попробуйте это ...

ThisWorkbook.SaveAs "Z:\Collateral Monitoring\Daily\LMM - " & Format(Date, "dd mmmm yyyy") _ 
FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False