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.

Thanks for quick Response. #AlphaFrog
I have posted one more query but still waiting for reply from member.
i will my pleasure if you solve that also. As you are Forum Guru Aka master in excel working.

Originally Posted by mikerickson

Try this

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cancel = SaveAsUI
    If SaveAsUI Then MsgBox "SaveAs disabled"
End Sub

Can't be shorter and better code!

Thanks So much.