Comment vérifier si un classeur est enregistré ?
Lorsque vous ouvrez un nouveau classeur, vous pourriez oublier de l'enregistrer, et ce serait ennuyeux si vous fermiez accidentellement le classeur. Mais comment vérifier si un classeur Excel a été enregistré ?
Vérifiez si un classeur est enregistré ou non avec du code VBA
Vérifiez si un classeur est enregistré ou non avec du code VBA
Pour vérifier si un classeur est enregistré ou non, le code VBA suivant peut vous aider, veuillez procéder comme suit :
1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre Module.
Code VBA : Vérifiez si un classeur est enregistré ou non :
Sub filesaved()
'Updateby Extendoffice 20161109
Dim sLastTime As String
On Error GoTo EHandler
sLastTime = ActiveWorkbook.BuiltinDocumentProperties("last save time")
MsgBox sLastTime, vbInformation, "Kutools for Excel"
Exit Sub
EHandler:
MsgBox "File not saved", vbInformation, "Kutools for Excel"
End Sub
3. Ensuite, appuyez sur la touche F5 pour exécuter ce code, vous obtiendrez les boîtes de dialogue suivantes :
(1.) Si le classeur a été enregistré, une boîte de dialogue s'affichera pour vous rappeler l'heure du dernier enregistrement de votre classeur :
(2.) Si le classeur n'a pas été enregistré, vous obtiendrez la boîte de dialogue suivante :
Meilleurs outils de productivité Office
Dynamisez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité la plus essentielle pour vous...
Office Tab apporte une interface à onglets à Office, et facilite grandement votre travail
- Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, au lieu d’ouvrir de nouvelles fenêtres.
- Augmentez votre productivité de50% et réduisez des centaines de clics de souris chaque jour!