Nel files principale, in un Modulo inserisci il codice sotto.
In teoria, quando lo avvii fà un duplicato (nella stessa Directory) del files con nome VALORI e data odierna
Sub Salva()
Dim sh As Worksheet, fpath As String, fname As String
fpath = ThisWorkbook.Path
fname = fpath & "\" & "valori" & "_" & Format(Now(), "yyyy-mm-dd") & ".xls"
For Each sh In ThisWorkbook.Worksheets
sh.UsedRange.Value = sh.UsedRange.Value
Next
ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close 'True
End Sub
[Modificato da ABCDEF@Excel 28/04/2020 15:42]