不满足条件保存时，提示

wljsxz

请高手指点一下，保存文件是，不满足条件，跳窗口提示，该怎么处理，谢谢！

金樽空对月

1. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   
2. If Sheet1.Range("g6") = "不平衡" Then
   
3.     MsgBox "借贷不平衡，不能保存"
   
4. End If
   
5. End Sub
   

复制代码