在Excel中,如何用VB制作退出按扭

在Excel工作薄中,不是VB编辑器中的窗体.设置一个按扭,可以是图片或自定义图像,通过这个按扭要实现以下功能,请问要如何制作:
1.当工作薄打开时,该工作薄中右上角的"×"为禁止状态,如果点击此"×"时,则会显示一句提示(比如:请点击"退出"按扭退  出....)
2.制作一个按扭,比如叫"退出",当点击"退出"按扭时,弹出一个对话框,并出现选择语句项(比如:"你确定要退出?")
3.如果选择"是",则关闭工作表,选"否"则保持当前状态
以上功能在VBA中要怎么实现?代码要怎么写.请高手帮忙,先谢谢了!另本人是菜鸟,请高手在代码后面注释下语句意思,方便日后学习.谢谢
--------------------编程问答-------------------- vba code:

Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long '取得当前窗口句柄

Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Const SC_CLOSE As Long = &HF060

Sub ddd()

    hMenu = GetSystemMenu(Application.hWnd, 0) '取得Excel系统菜单句柄

    DeleteMenu hMenu, SC_CLOSE, 0& '删除“关闭”按钮

End Sub

Private Sub CommandButton1_Click()

    On Error Resume Next '出错后继续

    a = MsgBox("你确定要退出?", vbOKCancel, "excel")

    If a = vbOK Then

        Application.Quit '退出应用程序

    End If

End Sub

我暂时还不能让它实现如果“点击此 "× "时,则会显示一句提示(比如:请点击 "退出 "按扭退     出....) ”

--------------------编程问答-------------------- 今天又有收获,谢谢! --------------------编程问答-------------------- 非常感谢,又解我之困惑矣...

补充：VB ,  VBA