Hvordan kontrolleres, om en projektmappe er gemt?

Når du åbner en ny projektmappe, glemmer du muligvis at gemme den, det vil være irriterende, hvis du ved et uheld lukker projektmappen. Men hvordan kunne du kontrollere, om en Excel-projektmappe er gemt?

Kontroller, om en projektmappe er gemt eller ikke med VBA-kode

---

Kontroller, om en projektmappe er gemt eller ikke med VBA-kode

Hvis du kontrollerer, om en projektmappe er gemt eller ej, kan følgende VBA-kode gøre dig en tjeneste, gør som dette:

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.

VBA-kode: Kontroller, om en projektmappe er gemt eller ej:

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. Tryk derefter på F5 nøgle til at køre denne kode, får du følgende promptbokse:

(1.) Hvis projektmappen er gemt, vises et promptfelt for at minde dig om den sidst gemte tid for din projektmappe:

(2.) Hvis projektmappen ikke er gemt, får du følgende promptboks: