none
Botão Fechar - Salvando a pasta de trabalho sem que fecha as outras pastas de trabalho abertas RRS feed

  • Pergunta

  • Boa Tarde

    Estou com um pequeno problema e preciso encontrar um solução, desta forma venho buscar aqui no forum, é o seguinte

    Tenho um formulário principal onde programei um botão fechar com esse codigo abaixo, meu problema é que se eu estiver com outras pastas de trabalho aberta e clicar nesse botão fechar me fecha todas as outras pastas de trabalho em aberta, desta forma preciso que esse codigo fecha somente essa pasta de trabalho. Tem como fazer?

    Aguardo!

    Private Sub B_Sair_Click()
    evento = MsgBox(" DESEJA GRAVAR AS ALTERAÇÕES? ", vbYesNoCancel)
    If evento = vbYes Then
    Unload frm_Principal
    ActiveWorkbook.Save
    Application.Quit
    ElseIf evento = vbNo Then
    Unload frm_Principal
    ActiveWorkbook.Close savechanges:=False
    Application.Quit
    Else: evento = vbCancel
    MsgBox " Cancelado"

    End If
    End Sub

    sexta-feira, 4 de abril de 2014 16:26

Respostas