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

试试

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cancel = Not Worksheets(2).CheckBoxes(1).Value = 1
    If Cancel Then MsgBox "Please accept the terms and conditions"
End Sub

我假设的地方：

Worksheets(2) 是带有相关复选框的工作表
相关复选框是工作表中的第一个否则根据您的实际情况进行相应更改

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

VBA - Prevent users from saving unless checkbox is checked

checkbox

excel

ms-office