VERIFICAR SE EXISTE ALGUMA PLANILHA ABERTA
Olá pessoal,
Tenho uma planilha que quando abre redimensiona a planilha e a esconde atrás do formulário que também é aberto automaticamente. Após fechar o formulário eu preciso que a pasta de trabalho seja fechada. Aà que surge o problema, pois se eu uso o Application.Quit ele fecha todas as planilhas, mas eu quero fechar apenas a planilha do form; se eu uso o ActiveWorkbooks.Close ele fecha a planilha do form, mas o excel permanece aberto na tela cinza caso não haja outra planilha aberta.
Isso pode ser solucionado identificando a condição: se há ou não outra planilha qualquer aberta e em seguida utilizando o código adequado se sim (ActiveWorkbook.Close) e se não (Application.Quit), mas não conheço nenhum código que faz isso, alguém pode ajudar? Uma chamada API talvez?
Tenho uma planilha que quando abre redimensiona a planilha e a esconde atrás do formulário que também é aberto automaticamente. Após fechar o formulário eu preciso que a pasta de trabalho seja fechada. Aà que surge o problema, pois se eu uso o Application.Quit ele fecha todas as planilhas, mas eu quero fechar apenas a planilha do form; se eu uso o ActiveWorkbooks.Close ele fecha a planilha do form, mas o excel permanece aberto na tela cinza caso não haja outra planilha aberta.
Isso pode ser solucionado identificando a condição: se há ou não outra planilha qualquer aberta e em seguida utilizando o código adequado se sim (ActiveWorkbook.Close) e se não (Application.Quit), mas não conheço nenhum código que faz isso, alguém pode ajudar? Uma chamada API talvez?
Vê se isso te ajuda:
migre.me/hx7Y3
migre.me/hx7Y3
Estou no trabalho, não consigo acessar o link, pode postar o código?
Obrigado
Obrigado
Citação:
Pedro, acontece o mesmo problema do outro link, ele retorna uma página de pesquisa do google. Se puder, poste o código, é melhor pra eu visualizar.
ALANTYKHE,
Por favor, veja se funciona na sua máquina:
[][ô]s,
Tunusat.
Por favor, veja se funciona na sua máquina:
Declare Function FindWindow Lib [Ô]user32[Ô] Alias [Ô]FindWindowA[Ô] (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Function puVerificarTarefas() As Integer
[ô]------------------------------------------------------------------------
[ô]*/Objetivo: Verifica se existe algum aplicativo ativo. */
[ô]*/ (Word, Excel ou Outlook) */
[ô]------------------------------------------------------------------------
Dim lngreturnWord As Long
Dim lngreturnExcel As Long
Dim lngreturnOutlook As Long
Dim strMsg As String
lngreturnWord = FindWindow([Ô]OpusApp[Ô], vbNullString)
lngreturnExcel = FindWindow([Ô]XLMain[Ô], vbNullString)
lngreturnOutlook = FindWindow([Ô]rctrl_renwnd32[Ô], vbNullString)
strMsg = [Ô]Deseja finalizar o Sistema?[Ô]
If lngreturnWord <> 0 Or lngreturnExcel <> 0 Or lngreturnOutlook <> 0 Then
strMsg = [Ô]O Sistema detectou que os aplicativos Word/Excel/M@AIL estão abertos, [Ô] & Chr(13) & _
[Ô]certifique-se se algum documento precisa ser salvo antes de finalizá-lo.[Ô] & Chr(13) & _
strMsg
End If
puVerificarTarefas = MsgBox(strMsg, vbQuestion + vbYesNo, [Ô]Finalização do Sistema[Ô])
End Function
[][ô]s,
Tunusat.
Faça seu login para responder