JeanHard

ola meu amigo! O cód abaixo do Cmd_Sair encerra somente a planilha ativa e a salva automaticamente uma dica: Useo evento abaixo ao iniciar o form em alguma aba que não vai usar na plan. Pois pelo que percebir e não sei porque se não houver qualquer alteração na planílha a mesma não fecha. PS: Apenas um macete. Private Sub UserForm_Initialize() Sheets("Plan1").Select Range("a2").Value = "AB" End Sub Private Sub Cmd_Sair_Click() Dim Pergunta As String On Error GoTo trataErro trataErro: Pergunta = MsgBox("Confirma o encerramento do sistema?", vbQuestion + vbYesNo, "Insira o caption para a mensagem") If Pergunta = vbYes Then Application.DisplayAlerts = False Application.Visible = True If ThisWorkbook.Saved = False Then ThisWorkbook.Save Workbooks("Nome da sua planilha.xlsm").Close ActiveWorkbook.Close 'essa linha de código fecha somente a planilha ativa ElseIf Pergunta = vbNo Then Else End If End If End Sub