Excel - Sair sem salvar

[dany12]

Bom dia pessoal... fiz um arquivo no Excel com uma macro que ao se clicar fecha o aplicativo, o problema é que abre a janela perguntando se quero salvar as alterações.

Alguem sabe me dizer qual o codigo VBA para que ao fechar o programa não salve as alteraçoes e nem abra esta janela, ou seja, finaliza o programa?

CODIGO

====================================

Private Sub CommandButton1_Click()

If TextBox1 = 123 Then

Application.Quit

Else

MsgBox "Senha incorreta", vbOKOnly, "ERRO"

Me.TextBox1 = ""

Me.TextBox1.SetFocus

End If

End Sub

====================================

Abraços

[edsonbakana]

...Alguem sabe me dizer qual o codigo VBA para que ao fechar o programa não salve as alteraçoes e nem abra esta janela, ou seja, finaliza o programa?...

Experimente utilizar Application.DisplayAlerts = False após Application.Quit

==================================

Private Sub CommandButton1_Click()

If TextBox1 = 123 Then

Application.Quit

Application.DisplayAlerts = False

Else

MsgBox "Senha incorreta", vbOKOnly, "ERRO"

Me.TextBox1 = ""

Me.TextBox1.SetFocus

End If

End Sub

==================================

[LeandroRoldao]

Pode também simplificar:

Application.Quit

ActiveWorkbook.Close True

Lembrando que o True após o close salva as alterações. Para não salvar usamos False.

A lógica sinceramente acho meio estranha. Primeiro fecha o aplicativo pra só depois fechar a planilha , mas funciona.

[samuelmalafaia]

Fiz uma macro, que manipula duas janelas e uma delas é fechada.

Porém antes de fechar o excel pergunta se desejo salvar.

Qual o comando de VBA, para se fechar um arquivo sem salva-lo?

Segue os comandos atuais:

Selection.Delete Shift:=xlUp

Windows("Pasta1").Activate

ActiveWindow.Close

Range("F15").Select

End Sub

[Wendell Menezes]

Selection.Delete Shift:=xlUp

Windows("Pasta1").Activate

ActiveWindow.Close False

Range("F15").Select

End Sub

[dumbeira]

Alguem sabe como faco para desabilitar uma funcao de salve do office 2011 do mac? Abro um arquivo e nao o modifico, mas quando fecho o excel ou word pede se quero salva ou nao. No windows nao funciona assim, e na versao 2008 que tinha tb nao. Se você nao mudou o conteudo do arquivo nao tem nda para salvar. Tem alguma configuração que mude isso, ja procurei e nao achei, ajude por favor. Grato. Fiquem com Deus

[Rodrigo Cândido]

Bom dia pessoal!

Preciso de uma macro pra quando clicar no botão FECHAR a planilha NÃO salve, e NÃO pergunte se deseja salvar...

Tentei todos acima, mas sempre da "erro de compilação", até testando em planilha em branco...

Estou utilizando o Excel 2010 não sei se tem algo relacionado a versão...

 

Private Sub Workbook_Open()

            ActiveWorkbook.Sheets("HOME").Activate
            Application.Visible = False
            frmlogin.Show
            Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
            Application.DisplayFormulaBar = False
            Application.DisplayStatusBar = False
            Application.Caption = "Cronograma Orçamentário. CG: 72.010"
    
    With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
        .DisplayHeadings = False
        .DisplayZeros = False
        .DisplayGridlines = False
    End With
End Sub

Sub lsDesligarTelaCheia()
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    Application.DisplayFormulaBar = True
    Application.DisplayStatusBar = True
    ActiveWindow.DisplayHeadings = True
    Application.Caption = ""
    
    With ActiveWindow
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
        .DisplayWorkbookTabs = True
        .DisplayHeadings = True
        .DisplayZeros = True
        .DisplayGridlines = True
    End With
End Sub

End Sub

 

 

 

Se alguém puder me ajudar,

Agradeço a atenção de todos

[Visitante]

 

Experimente:

 

Sub FechaSemSalvar()
 ThisWorkbook.Close False
End Sub