本示例检查活动工作簿是否有未保存的更改,如果有,则显示一条信息。
If Not ActiveWorkbook.Saved Then
MsgBox "工作簿存在尚未保存的更改。"
End If