LINUX.ORG.RU

История изменений

Исправление greenman, (текущая версия) :

Попробуй

https://www.business-spreadsheets.com/vba2oo.asp

Sub Saveasvalue()
'Updateby Extendoffice 20161025
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.ThisComponent.Sheets.getByName()
        wsh.Cells.Copy
        wsh.Cells.PasteSpecial xlPasteValues
    Next
    Application.CutCopyMode = False
End Sub

Либо добавить перед твоим макросом две строчки

Option VBASupport 1
Option Compatible

https://forumooo.ru/index.php?topic=6673.0

Исходная версия greenman, :

Попробуй

https://www.business-spreadsheets.com/vba2oo.asp

Sub Saveasvalue()
'Updateby Extendoffice 20161025
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.ThisComponent.Sheets.getByName()
        wsh.Cells.Copy
        wsh.Cells.PasteSpecial xlPasteValues
    Next
    Application.CutCopyMode = False
End Sub