Macro for Document to "Save As"

Hello. I would like some help in revising the below code. It is used to verify data before the document is saved. If data is incorrect, the user is given the choice to continue saving the file or they will be returned to the document to correct the invalid data I would like the "Save" to be changed to "Save As" so that the user can rename the document instead of automatically overwriting the existing one. Thank you.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ans As Variant
    If ActiveSheet.Range("A1").Value = True And ActiveSheet.Range("B2") = "" Then
        ans = MsgBox("A number is required when the role 'xxx' is checked. If number was provided, please enter 'TBD' or 'N/A' as appropriate." _
        & vbNewLine & vbNewLine & "Do you want to save the file anyway?", _
        vbQuestion + vbYesNo, "OPTION")
            If ans = vbNo Then
                Cancel = True
            End If
    End If
End Sub

Hello. Thank you for the quick response!

I copied your code to the worksheet, and made a slight change by replacing the values A1 with B28 and B2 with B30. When I Save the spreadsheet I am not getting any message box even though B28 is TRUE and B30 is blank. Instead, the document is save without any kind of prompting. I have attached the spreadsheet if you're able to look at it. VBA is completely new to me and I could quite possibly be doing something wrong. Thank you.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ans As Variant
    If ActiveSheet.Range("B28").Value = True And ActiveSheet.Range("B30") = "" Then
        ans = MsgBox("A number is required when the role 'xxx' is checked. If number was provided, please enter 'TBD' or 'N/A' as appropriate." _
        & vbNewLine & vbNewLine & "Do you want to save the file anyway?", _
        vbQuestion + vbYesNo, "OPTION")
            If ans = vbYes Then
                Cancel = True
                Application.Dialogs(xlDialogSaveAs).Show
                Exit Sub
            Else
                Cancel = True
                Exit Sub
            End If
    End If
End Sub

I moved the code to "This Workbook," and it did the same thing as before, but I think I see the issue. If I click on the "X" to close and save the document, the message box pops up, but if I save by either going to File > Save or pressing Ctrl-S the document saves without a message box. Is it possible to get the message box no matter what method is used for saving and still give the user the choice to return to the document if they don't want to continue saving?

It worked! Thank you so much for the help!!