写个保存事件的宏表

[SGYYUAN]

因为本EXCEL文件保存时要处理一些数据，所以不能直接保存，原来是在Workbook对象的利用BeforeSave保存事件（如下）但如果文件无意被禁用了宏启动，则不能处理保存事件，我需要把下面的保存事件内容改为宏表形式，不知道宏表应该怎么写

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.Run "data.xls!dtsv", SaveAsUI
Cancel = True
End Sub