解决方法如下：

1. ActiveWorkbook.Saved 表示当前活动的工作簿是否已保存。下面是一个示例代码：

Sub CheckWorkbookSaved()
    If ActiveWorkbook.Saved = True Then
        MsgBox "The active workbook is saved."
    Else
        MsgBox "The active workbook is not saved."
    End If
End Sub

2. ThisWorkbook.Saved 表示当前工作簿是否已保存（在代码模块中使用）。下面是一个示例代码：

Sub CheckThisWorkbookSaved()
    If ThisWorkbook.Saved = True Then
        MsgBox "The workbook is saved."
    Else
        MsgBox "The workbook is not saved."
    End If
End Sub

3. Me.Saved 表示当前工作簿是否已保存（在该工作簿的类模块中使用）。下面是一个示例代码：

Private Sub Workbook_Open()
    If Me.Saved = True Then
        MsgBox "The workbook is saved."
    Else
        MsgBox "The workbook is not saved."
    End If
End Sub

注意：以上代码示例中的消息框只是为了演示目的而添加的，您可以根据需要进行修改。