Pessoal, porque a janelinha pedindo para salvar não some?
Eu criei o seguinte código, para que quando fechar a planilha (Clicando no "X").. ela salvasse automaticamente.. desabilitando a janelinha pedindo para salvar.
Porém, a janelinha não some. ela sempre aparece.

Alguem pode me ajudar??

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Application.DisplayAlerts = False
    Sheets("Acessos").Unprotect Password:="Pass"
    ActiveWorkbook.Protect Password:="Pass"
    Application.ScreenUpdating = False
    Sheets("Acessos").Activate
    Range("B2").Select
    Selection.NumberFormat = "m/d/yyyy h:mm"
    ActiveCell.FormulaR1C1 = "=NOW()"
    Cells(2, 2) = "- " & Cells(2, 2).Value
    Application.ScreenUpdating = True
    Plan2.Protect Password:="Pass"
    Plan3.Protect Password:="Pass"
    Plan4.Protect Password:="Pass"
    Plan5.Protect Password:="Pass"
    Plan7.Protect Password:="Pass"
    ActiveWorkbook.Protect Password:="Pass"
    ActiveWorkbook.Save
    Application.DisplayAlerts = True
   
End Sub