Como verificar se uma pasta de trabalho está salva?

Ao abrir uma nova pasta de trabalho, você pode esquecer de salvá-la, e será frustrante se você fechar a pasta de trabalho acidentalmente. Mas, como você pode verificar se uma pasta de trabalho do Excel foi salva?

Verifique se uma pasta de trabalho está salva ou não com código VBA

Verifique se uma pasta de trabalho está salva ou não com código VBA

Para verificar se uma pasta de trabalho está salva ou não, o seguinte código VBA pode ajudar, por favor, siga estas instruções:

1. Pressione as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Verifique se uma pasta de trabalho está salva ou não:

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. Em seguida, pressione a tecla F5 para executar este código, e você receberá as seguintes caixas de diálogo:

(1.) Se a pasta de trabalho foi salva, uma caixa de diálogo aparecerá para lembrá-lo da última hora em que sua pasta de trabalho foi salva:

(2.) Se a pasta de trabalho não foi salva, você receberá a seguinte caixa de diálogo: