设定符合某种条件表格才可保存

天地一相

经常会在不可保存的时候习惯性点击了保存按键，导致花点时间才能复原。搜本站似乎没合意的帖子，网上找到了，修改了一下，完美解决我的问题。特此分享给可能需要的你。触发条件根据使用情况自行修改调整。代码放在TihisWorkbook里。



Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    If Application.WorksheetFunction.CountA(Sheet2.Range("A3:I3")) > 0 Then
      
       MsgBox "别发晕，不能保存呀！"
       Cancel = True
       Exit Sub

    End If
    Beep

End Sub

wengjl

感谢分享！
目前没遇到可用之处！

slonby

这个用于关闭时候比较有用

天地一相

slonby 发表于 2023-5-25 08:38
这个用于关闭时候比较有用

会怎样用呢？关闭表格有提示是否保存的窗口，若设置成直接保存，又会与有条件保存冲突。