VBA - 除非选中复选框，否则阻止用户保存

Question

我使用此宏是为了防止用户保存工作簿，除非他们接受使用复选框注释的条款和条件。

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

    MsgBox "Please accept the terms and conditions"
    Cancel = True

End Sub

但是这个宏会阻止用户无限期保存。我该如何制作，以便用户必须选中一个复选框才能保存？

谢谢！

Answer 1

尝试

callBack

我假设：

• 工作表（2）是带有相关复选框的工作表
• 相关的Checkbox是工作表中的第一个 否则根据您的实际情况进行更改