sauvegarde et boutons qui disparait

bonjour

sur ma feuille j'ai un CommandButton1 pour actualiser mes données qui viennent de ma base ACCESS
j'ai un second CommandButton2 pour sauvegarder la feuille
comment faire pour que la presonne qui va clicker pour enregistrer le feuille ,les 2 boutons n'apparaisse pas dans la sauvegarde.
voila le code mais ça ne fonctionne pas

Private Sub CommandButton2_Click()
Application.Dialogs(xlDialogSaveAs).Show
CommandButton1.Visible = False
CommandButton2.Visible = False
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
ActiveWorkbook.Close
End Sub

merci
petchy