Problème d'enregistrement de fermeture Excel
Résolu/Fermé
Barbebulle
Messages postés
7
Date d'inscription
jeudi 25 décembre 2008
Statut
Membre
Dernière intervention
11 janvier 2009
-
29 déc. 2008 à 13:40
al1_delon Messages postés 259 Date d'inscription samedi 27 décembre 2008 Statut Membre Dernière intervention 16 octobre 2009 - 29 déc. 2008 à 22:13
al1_delon Messages postés 259 Date d'inscription samedi 27 décembre 2008 Statut Membre Dernière intervention 16 octobre 2009 - 29 déc. 2008 à 22:13
A voir également:
- Excel n'enregistre pas les modifications
- Suivi des modifications word - Guide
- Liste déroulante excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Aller à la ligne excel - Guide
5 réponses
eriiic
Messages postés
24603
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2024
7 248
29 déc. 2008 à 19:32
29 déc. 2008 à 19:32
Bonsoir,
Tout dépend de ce que tu désires exactement...
Si tu veux éliminer les modifications apportées au classeur par une macro mais pouvoir quand même sauvegarder les modifs faites manuellement c'est presque mission impossible.
Ca serait à toi de modifier la macro pour rétablir l'état du classeur avant la macro, tout dépend des cas de figure.
Si c'est empecher l'apparition de la boite de dialogue de sauvegarde tu peux mettre :
Si c'est pour empecher de faire toute sauvegarde tu peux mettre :
Tu peux aussi completer par des tests pour autoriser la sauvegarde dans certains cas.
eric
Tout dépend de ce que tu désires exactement...
Si tu veux éliminer les modifications apportées au classeur par une macro mais pouvoir quand même sauvegarder les modifs faites manuellement c'est presque mission impossible.
Ca serait à toi de modifier la macro pour rétablir l'état du classeur avant la macro, tout dépend des cas de figure.
Si c'est empecher l'apparition de la boite de dialogue de sauvegarde tu peux mettre :
Private Sub Workbook_BeforeClose(Cancel As Boolean) Workbooks("Classeur2.xls").Saved = True End Sub
Si c'est pour empecher de faire toute sauvegarde tu peux mettre :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Cancel = True End Subou désactiver les outils et menus concernés mais là ça demande un peu de recherche...
Tu peux aussi completer par des tests pour autoriser la sauvegarde dans certains cas.
eric
al1_delon
Messages postés
259
Date d'inscription
samedi 27 décembre 2008
Statut
Membre
Dernière intervention
16 octobre 2009
25
29 déc. 2008 à 16:53
29 déc. 2008 à 16:53
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
End Sub
ThisWorkbook.Save
End Sub
Barbebulle
Messages postés
7
Date d'inscription
jeudi 25 décembre 2008
Statut
Membre
Dernière intervention
11 janvier 2009
29 déc. 2008 à 17:02
29 déc. 2008 à 17:02
il faut que que j'inscrive ces trois lignes dans ma macros ?
al1_delon
Messages postés
259
Date d'inscription
samedi 27 décembre 2008
Statut
Membre
Dernière intervention
16 octobre 2009
25
29 déc. 2008 à 17:06
29 déc. 2008 à 17:06
Non la sub existe dans Vba dans la rubrique Vbaproject -Thisworkbook - Workbook (sous général).
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 712
29 déc. 2008 à 19:04
29 déc. 2008 à 19:04
bonjour
lors de la fermeture d'un classeur Excel celui-ci n'enregistre pas les modification effectue par ces Macros
Faudrait peut-être relire la question car avec la macro fournie, les modification effectue par ces Macros seront obligatoirement enregistrées
lors de la fermeture d'un classeur Excel celui-ci n'enregistre pas les modification effectue par ces Macros
Faudrait peut-être relire la question car avec la macro fournie, les modification effectue par ces Macros seront obligatoirement enregistrées
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
al1_delon
Messages postés
259
Date d'inscription
samedi 27 décembre 2008
Statut
Membre
Dernière intervention
16 octobre 2009
25
29 déc. 2008 à 22:13
29 déc. 2008 à 22:13
Pour éviter toute modification par les autres users:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If application.username <> "tonuser" then
Thisworkbook.close false
else
Thisworkbook.close true
end if
End Sub
Mais attention, si un utilisateur clique sur "Fichier-Enregistrer" avant la fermeture c'est foutu.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If application.username <> "tonuser" then
Thisworkbook.close false
else
Thisworkbook.close true
end if
End Sub
Mais attention, si un utilisateur clique sur "Fichier-Enregistrer" avant la fermeture c'est foutu.
29 déc. 2008 à 21:30
En fait, je dois pouvoir effectuer des ajouts d'éléments dans ce classeur et les enregistrer mais interdire les modifications faite par certains utilisateurs, qui eux utiliserons ces macros de filtrages et mise en formes, de tel manière que lors de l'ouverture du classeur ont puisse avoir l'intégralité de la feuille visible et être sur une cellule proche de la date à la quelle on ouvre ce classeur....
29 déc. 2008 à 22:05
Tu peux utiliser application.username, si ça ne suffit pas il y a une autre méthode (plus compliquée) pour récupérer l'utilisateur windows