上書き保存はStoreを使います。

ブックに変更があるかは、isModifiedで判断できます。

Sub ksSave()

If ThisComponent.isModified Then
   

   Msgbox(“ドキュメントは変更されているので、上書き保存します”)
   ThisComponent.store()

else

   Msgbox(“ドキュメントは変更されていません”)

End If

End Sub