[已解决]求高手给加一句“借贷不平不能保存”的代码

hhxq001

如果在点击记账保存的时候加上一句：“当前借贷不平，不能记账，请修改后保存”，怎么添代码呢？

凭证与流水账-方法一0607待完善.zip (25.71 KB, 下载次数: 7)

2015-6-8 20:21 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

scl5801

2015-6-9 08:09

hhxq001 发表于 2015-6-9 07:45
不行啊，朋友。我借贷不平照样可以保存呢。
我的h20可是公式啊

修改了一下，试试看

跳转到最佳答案楼层

冥王

工作簿beforesave 事件

1. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   
2.     With ThisWorkbook.Sheets("凭证输入")
   
3.         If .Range("H20") = "当前借贷不平" Then
   
4.             MsgBox "当前借贷不平，不能记账，请修改后保存"
   
5.             Cancel = True
   
6.         End If
   
7.     End With
   
8. End Sub

复制代码

hhxq001

冥王 发表于 2015-6-8 22:06
工作簿beforesave 事件

不行啊，朋友。我借贷不平照样可以保存呢。
我的h20可是公式啊

scl5801

hhxq001 发表于 2015-6-9 07:45
不行啊，朋友。我借贷不平照样可以保存呢。
我的h20可是公式啊

修改了一下，试试看

hhxq001

scl5801 发表于 2015-6-9 08:09
修改了一下，试试看

谢谢，做的不错。
有个朋友这样写的代码，也实现了要求：

    Dim arr(), hw%
   If [c6] = "" Then Exit Sub
   If [g16] <> [H16] Then MsgBox "当前借贷不平，不能记账，请修改后保存。": Exit Sub
   If [d6] = "" Then MsgBox "当前没有填写记账科目，不能记账，请完善后保存。": Exit Sub


给你最佳答案奖励哈。结果点击最佳答案，页面没反应，改天再给吧。