Attribute VB_Name = "testbooknew8"
Sub テスト()
    
    Dim book1 As Workbook

    Workbooks.Open filename:="C:\excelsample\2005年成績.xls"
    ActiveSheet.Range("A1").Value = "保存"

    Set book1 = ActiveWorkbook
    book1.SaveAs filename:="C:\excelsample\2005年成績(保存).xls", _
        WriteResPassword:="pass"
    book1.Close
    
    Workbooks.Open filename:="C:\excelsample\2005年成績(保存).xls"
    
End Sub