Autoguardado en excel

Utiliza este evento dentro del objeto thisworkbook.

Atención en este ejemplo tendrás que cambiar el entrecomillado para poner toda la ruta de grabación junto con el nombre del archivo que en mi caso se llama libro2.xlsm.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Users\Luis\Documents\Libro2.xlsm", _
 FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Cada vez que realices cualquier cambio se grabará el archivo en la ruta y nombre especificados en el entrecomillado.

Recuerda finalizar