Attribute VB_Name = "testbooknew12"
Sub テスト()
    
    Workbooks.Open filename:="C:\excelsample\2005年成績.xls"
    
    If ActiveWorkbook.Saved = True Then
        MsgBox "変更されていません"
    Else
        MsgBox "変更されています"
    End If
    
    ActiveSheet.Range("A1").Value = "保存"

    If ActiveWorkbook.Saved = True Then
        MsgBox "変更されていません"
    Else
        MsgBox "変更されています"
    End If
        
End Sub