enregistrer

[Am alive]

Bonjour
J’utilise mon classeur comme formulaire, j’ai désactiver la 2ème commande enregistrer sous dans la barre de menu fichier avec la procédure suivante :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then Cancel = True
End Sub
Puis j’ai obliger l’utilisateur à enregistrer le classeur à la fermeture en clic sur le x sous le nom taper dans la cellule('A1')avec la procédure suivante :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Dim Nom$
Nom = CStr(Sheets('Acceuil').Range('A1').Value ))
ActiveWorkbook.SaveAs Filename:=Nom
ThisWorkbook.Close SaveChanges:=False
MsgBox 'document Enregistré sous Mes Documents', vbOKOnly + vbInformation
End Sub
Ma question : est-il possible de désactiver la 1ère commande enregistrer dans la barre de menu fichier
Merci d'avance

 

[henri]

Bonsoir,
En VBA où dans la barre d'outil.
Sinon on peut en allant dans
OUTIL/PERSONNALISER/ et tu retires l'cone pour enregistre.
A +

 

[Am alive]

bonsoir à tous
bonsoir henri
désactvé la commande enregistrer en VBA
Merci d'avance