自動保存

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Me.Range("A1:AA1000")) Is Nothing Then ThisWorkbook.Save End If End Sub