Sub 禁用保存()
    Application.CommandBars("File").Controls(4).Enabled = False
    Application.CommandBars("File").Controls(5).Enabled = False
End Sub
Sub 启用保存()
    Application.CommandBars("File").Controls(4).Enabled = True
    Application.CommandBars("File").Controls(5).Enabled = True
End Sub

Sub 禁用保存()
    Application.CommandBars("File").Controls(4).Enabled = False
    Application.CommandBars("File").Controls(5).Enabled = False
End Sub
Sub 启用保存()
    Application.CommandBars("File").Controls(4).Enabled = True
    Application.CommandBars("File").Controls(5).Enabled = True
End Sub