Prevent Saving If No Checkboxes Are Selected

Hello,

I am attempting to use the BeforeSave event to check whether any of the checkboxes are selected before allowing the user to save the workbook. Please see my code below.

Please Login or Register  to view this content.

I'm still able to save the workbook even when none of the checkboxes are selected. What is the issue with my code?

Any help is appreciated. Thanks!

-Anthony

Do you get the MsgBox when you try to save? I don't know if this will make any difference, but I think you should be using Me.Sheets instead of Application.Sheets.

It will be easier to help if you upload the workbook.

No, I do not get the message box when I try to save. Unfortunately, due to the nature of the workbook, I can't upload it. I'm guessing the way I'm referencing the sheet is the issue, but I've used that reference before with no issues so it's a bit weird. I'll try using the Me.Sheets and let you know if it works.

I tested it using the Me.Sheets, but it didn't work.

Do you disable events somewhere in your code? If events are disabled, the sub will never get called. Try adding a MsgBox at the top of your code to test. (Also, I've added and End If at the end - I don't understand how your code is running at all with that missing).

Please Login or Register  to view this content.

I have other events running that don't interfere with this event so that shouldn't be an issue. I also have an "End If," but I guess I didn't bring it over. There must be something wrong with the code itself. Excel doesn't even throw me an error so I'm not sure what's going on.

Without seeing the workbook, it is hard to offer much assistance, but I do have a couple suggestions.

1. I think you should be using And rather than Or - the only time the code should be executed is if all checkboxes are unticked, but your logic will have it run if any are unticked.
2. 0 does not mean unticked - try xlOff instead.