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").NumberFormat = "m/d/yyyy h:mm"
    Range("B2").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"
    Application.DisplayAlerts = True
    with ActiveWorkbook
        .Save
        .Saved = True
end With   
End Sub

Boa tarde!

Tentou com

Workbooks("SeuArquivo.xls").Close savechanges := False

Também....inserir

Application.EnableEvents = False
'..Codigo
Application.EnableEvents = True

Att

Eu sugiro não fazer .Close dentro do evento BeforeClose...

Experiência, chamar o evento durante o tratamento dele mesmo, vai dar merda !

FF

Fernando e Alexandre, muito obrigado pela atenção.
Eu testei aqui os códigos sugerido por vocês, porém não resolveu.
A janelinha ainda aparece.

O que será que pode ser??
Obrigado meus amigos, uma ótima semana a vocês.

Abraços!!

Boa tarde!!

Se poder depositar seu arquivo modelo compactado para que o pessoal possa testar....seria ótimo!!

Att

Tenta o seguinte, mas como já alertado .... não é muito recomendável.

Só colocar um exit sub ao final ... essa é a mais bela, pura e simples "gambiarra".

E, pode tirar as duas linhas de Application.DisplayAlerts

[Editado] Porque tem duas linhas protegendo a pasta de trabalho (ActiveWorkbook.Protect Password:="Pass")? Uma no começo e a outra ao final .. ??? Desativei a primeira ocorrência ...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    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
    Exit Sub
End Sub

Pessoal muito obrigado pelo retorno.
Eu juro que ja quebrei a cabeça um milhão de vezes tentando achar o porque desse erro.. mas não consegui.
Infelizmente tentei a sugestão de vocês, também não deu.

Estou colocando o arquivo anexo para vocês darem uma olhadinha.

Senha da planilha: gestaosyg2014

Obs.: Se vocês forem na "ABA: Pendências" e inserir qualquer valor na ultima linha e clicar para fechar.. aparece a janelinha perguntando se você quer salvar.
Muito obrigado pessoal

Bom dia!!

Para lhe provar que funciona, eu fiz um modelo, onde nele, ao alterar qualquer dado no arquivo e fecha-lo, não aparecerá a mensagem perguntando se o usuário deseja salvar!!!

https://www.sendspace.com/file/2krma6

Arr

Alexandre, tem como colocar o arquivo aqui no fórum?
Eu não consigo acessar o Sendspace aqui no meu trabalho, é bloqueado.

Obrigado!!

Bom dia!!

Segue em anexo!

Att

Alexandre, baixei o arquivo aqui e testei, realmente funciona mesmo.
Mais quando aplico o código na minha planilha.. não funciona.
A janela aparece, estou começando a achar que é Bug da minha planilha.
Se você tiver um tempinho, faça o teste na planilha que eu postei aqui pra você ver..

Bom dia!!

Infelizmente você terá que revisar todas as rotinas de seu arquivo!!

Att

Álvaro,

Testei aqui na minha máquina ... funcionou perfeitamente.

Verifica os registros no arquivo anexo aqui. E, em todas as vezes, cliquei no X do Excel para fechar o arquivo. Não apareceu a tela pedindo pra salvar.

Extra: no evento, acrescentei a linha Sheets("Capa").Activate para quando abrir o arquivo, a tela esteja sempre na aba CAPA.

Alexandre, baixei o arquivo aqui e testei, realmente funciona mesmo.
Mais quando aplico o código na minha planilha.. não funciona.
A janela aparece, estou começando a achar que é Bug da minha planilha.
Se você tiver um tempinho, faça o teste na planilha que eu postei aqui pra você ver..

Bom dia Alexandre, tudo bem com você??
Alexandre, faça um teste por gentileza, entre na aba "Pendências" e faça qualquer alteração em qualquer linha..
Toda vez que eu faço qualquer alteração nessa aba (Pendencia) e clico para fechar.. ai aparece a telinha perguntando se quer salvar ou não.
Muito estranho isso..

Muito obrigado meu amigo.
Abraços e uma ótima sexta a você.