A
Am alive
Guest
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
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