Disable SaveAs option allow save

I have use this code to prevent user from use saveas option.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 Cancel = True
  MsgBox "_____________________________"
 End Sub

This code also disable save & saveAs option. But i dont want disable save option.

I have inserted this macro beforeclose workbook. Where i mention save workbook.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim answer As String
    Dim question As String
        question = "would you like to give your suggestion"
    answer = MsgBox(question, vbYesNo)
     
    If answer = vbYes Then
        MsgBox "Please mail me at ___________________ ", , ""
        Cancel = True
        Exit Sub
    Else
        ThisWorkbook.Save
    End If
End Sub

Request you to guide me to solve above problem.