COMO FECHAR PLANILHA ABERTO PELO BROWSER?
PREZADOS, BOA TARDE.
TENHO UMA PLANILHA QUE POSSUI A FUNÇÃO DE UM [Ô]SISTEMA[Ô] DE CADASTRO.
ELA POSSUI DEZENAS DE VALIDAÇÕES E RECURSOS DE UM FORMULÃRIO QUALQUER.
MINHA LIMITAÇÃO é QUE TODO O CÓDIGO é EM VBA - EXCEL.
ESSA PLANILHA FOI DISPONIBILIZADA NA INTRANET DA EMPRESA. SENDO ASSIM, QUANDO O USUÃRIO DESEJA CADASTRAR ELE A ABRE PELA INTRANET.
SITUAÇÕES:
- A PLANILHA é CARREGADA PARA O USUÃRIO SEM AS BARRAS DE FERRAMENTAS E TODO O RESTO. ELE NÃO POSSUI AS OPÇÕES DO MENU. FICA SOMENTE OS BOTÕES MAXIMIZAR/MINIMIZAR E FECHAR.
- PARA QUE O USUÃRIO POSSA SALVAR O CADASTRO DEVERà CLICAR EM UM BOTÃO [Ô]SALVAR[Ô]. E EXISTE TAMBéM UM BOTÃO [Ô]FECHAR[Ô], ALéM DO [Ô]X[Ô] PADRÃO.
- O USUÃRIO NÃO PODE SALVAR ESSA PLANILHA MANUALMENTE. ISSO SÓ é FEITO APÓS VALIDAÇÕES E POR MEIO DE CÓDIGO. NO FIM FORÇO PARA QUE A PLANILHA FECHE ATRAVéS DO CÓDIGO:
[Ô]Application.DisplayAlerts = False ThisWorkbook.Close SaveChanges:=False[Ô]. NO EVENTO [Ô]Workbook_BeforeClose[Ô].
O MEU PROBLEMA é QUE QUANDO O USUÃRIO CLICA NO LINK PARA DOWNLOAD, APARECE A CAIXA DE DIALOGO INFORMANDO QUE ELE TEM A OPÇÃO DE ABRIR OU SALVAR.
QUANDO ELE OPTA POR SALVAR, TUDO CORRE DE ACORDO, MAS QUANDO ELE RESOLVE ABRIR, A PLANILHA é ABERTA EM UM BROWSER E NO FINAL DO CADASTRO, QUANDO ELE DESEJA SALVAR AS ALTERAÇÕES E FECHA A PLANILHA, FALHA O CÓDIGO [Ô]Application.DisplayAlerts = False ThisWorkbook.Close SaveChanges:=False[Ô].
EXISTE UMA MANEIRA DE FORÇAR O ENCERRAMENTO QUANDO ESSA PLANILHA ESTIVER ABERTA POR UM BROWSER?
ESTOU A DISPOSIÇÃO PARA ESCLARECIMENTO DE DÚVIDAS.
QUALQUER SUGESTÃO é BEM-VINDA.
OBRIGADO PELA ATENÇÃO.
RICK
TENHO UMA PLANILHA QUE POSSUI A FUNÇÃO DE UM [Ô]SISTEMA[Ô] DE CADASTRO.
ELA POSSUI DEZENAS DE VALIDAÇÕES E RECURSOS DE UM FORMULÃRIO QUALQUER.
MINHA LIMITAÇÃO é QUE TODO O CÓDIGO é EM VBA - EXCEL.
ESSA PLANILHA FOI DISPONIBILIZADA NA INTRANET DA EMPRESA. SENDO ASSIM, QUANDO O USUÃRIO DESEJA CADASTRAR ELE A ABRE PELA INTRANET.
SITUAÇÕES:
- A PLANILHA é CARREGADA PARA O USUÃRIO SEM AS BARRAS DE FERRAMENTAS E TODO O RESTO. ELE NÃO POSSUI AS OPÇÕES DO MENU. FICA SOMENTE OS BOTÕES MAXIMIZAR/MINIMIZAR E FECHAR.
- PARA QUE O USUÃRIO POSSA SALVAR O CADASTRO DEVERà CLICAR EM UM BOTÃO [Ô]SALVAR[Ô]. E EXISTE TAMBéM UM BOTÃO [Ô]FECHAR[Ô], ALéM DO [Ô]X[Ô] PADRÃO.
- O USUÃRIO NÃO PODE SALVAR ESSA PLANILHA MANUALMENTE. ISSO SÓ é FEITO APÓS VALIDAÇÕES E POR MEIO DE CÓDIGO. NO FIM FORÇO PARA QUE A PLANILHA FECHE ATRAVéS DO CÓDIGO:
[Ô]Application.DisplayAlerts = False ThisWorkbook.Close SaveChanges:=False[Ô]. NO EVENTO [Ô]Workbook_BeforeClose[Ô].
O MEU PROBLEMA é QUE QUANDO O USUÃRIO CLICA NO LINK PARA DOWNLOAD, APARECE A CAIXA DE DIALOGO INFORMANDO QUE ELE TEM A OPÇÃO DE ABRIR OU SALVAR.
QUANDO ELE OPTA POR SALVAR, TUDO CORRE DE ACORDO, MAS QUANDO ELE RESOLVE ABRIR, A PLANILHA é ABERTA EM UM BROWSER E NO FINAL DO CADASTRO, QUANDO ELE DESEJA SALVAR AS ALTERAÇÕES E FECHA A PLANILHA, FALHA O CÓDIGO [Ô]Application.DisplayAlerts = False ThisWorkbook.Close SaveChanges:=False[Ô].
EXISTE UMA MANEIRA DE FORÇAR O ENCERRAMENTO QUANDO ESSA PLANILHA ESTIVER ABERTA POR UM BROWSER?
ESTOU A DISPOSIÇÃO PARA ESCLARECIMENTO DE DÚVIDAS.
QUALQUER SUGESTÃO é BEM-VINDA.
OBRIGADO PELA ATENÇÃO.
RICK
Colocar esse comando para tirar a excessão que gera
On Error Resume Next
Application.DisplayAlerts = False
ThisWorkbook.Close SaveChanges:=False
On Error Resume Next
Application.DisplayAlerts = False
ThisWorkbook.Close SaveChanges:=False
LUIS FLAVIO
OBRIGADO PELA DICA.
MAS ELE APENAS IGNORA A MENSAGEM DE ERRO. O APLICATIVO NÃO ENCERRA. é COMO SE NÃO HOUVESSE COMANDOS NO EVENTO CLICK DO BOTÃO FECHAR.
SE ALGUéM MAIS TIVER OUTRA SOLUÇÃO, ESTOU NO AGUARDO.
OBRIGADO PELA ATENÇÃO.
RICK
OBRIGADO PELA DICA.
MAS ELE APENAS IGNORA A MENSAGEM DE ERRO. O APLICATIVO NÃO ENCERRA. é COMO SE NÃO HOUVESSE COMANDOS NO EVENTO CLICK DO BOTÃO FECHAR.
SE ALGUéM MAIS TIVER OUTRA SOLUÇÃO, ESTOU NO AGUARDO.
OBRIGADO PELA ATENÇÃO.
RICK
tenta ver as associações de arquivos, nas opções de pasta.... e põe pra abrir apenas como Excel, tem q ver se nas maquinas possui Excel...veja ae
DEKINHO
OBRIGADO PELA DICA.
MAS NÃO ENTENDI. ISSO é FEITO NO EVENTO [Ô]Workbook_Open[Ô] DA PLANILHA?
O DETALHE DO MEU PROBLEMA é QUE A CAIXA DE DIALOGO DO DOWNLOAD é UM RECURSO DA INTRANET, ACREDITO QUE EU NÃO POSSUA RECURSOS PARA ALTERNAR ESSE FLUXO.
SE VOCÊ TIVER UM EXEMPLO DE CÓDIGO DO QUE ME INDICOU, FICO AGRADECIDO.
OBRIGADO PELA ATENÇÃO.
RICK
OBRIGADO PELA DICA.
MAS NÃO ENTENDI. ISSO é FEITO NO EVENTO [Ô]Workbook_Open[Ô] DA PLANILHA?
O DETALHE DO MEU PROBLEMA é QUE A CAIXA DE DIALOGO DO DOWNLOAD é UM RECURSO DA INTRANET, ACREDITO QUE EU NÃO POSSUA RECURSOS PARA ALTERNAR ESSE FLUXO.
SE VOCÊ TIVER UM EXEMPLO DE CÓDIGO DO QUE ME INDICOU, FICO AGRADECIDO.
OBRIGADO PELA ATENÇÃO.
RICK
RICK, quis dizer o seguinte:
As maquinas que estão acessando este arquivo têm o Excel instalado? Talvez o IE seja uma opção na falta do 1o..
Caso tenha o Excel instalado, vá em Painel de Controle > Opções de Pasta > Tippos de Arquivos... veja as associações dos arquivos XLS, põe pra abrir apenas como Excel.
Flw, abrass
As maquinas que estão acessando este arquivo têm o Excel instalado? Talvez o IE seja uma opção na falta do 1o..
Caso tenha o Excel instalado, vá em Painel de Controle > Opções de Pasta > Tippos de Arquivos... veja as associações dos arquivos XLS, põe pra abrir apenas como Excel.
Flw, abrass
DEKINHO
ENTÃO, NA VERDADE ESSE NÃO é O PROBLEMA. TODAS AS MÃQUINAS POSSUEM O EXCEL INSTALADO.
O FATO DA PLANILHA SER ABERTA PELO BROWSER é QUANDO O USUÃRIO OPTA SOMENTE POR ABRIR QUANDO CLICA NA CAIXA DE DIALOGO DO DOWNLOAD. QUANDO ELE CLICA EM ABRIR A PLANILHA é ABERTA PELO BROWSER.
TANTO QUE O NOME DA PLANILHA GANHA A ATRIBUIÇÃO DE UMA URL.
EU PRECISAVA DE UM CÓDIGO QUE IDENTIFICASSE SE FOI ABERTO PELO BROWSER E QUE FORÇASSE O ENCERRAMENTO DO APLICATIVO.
OBRIGADO PELA ATENÇÃO.
RICK
ENTÃO, NA VERDADE ESSE NÃO é O PROBLEMA. TODAS AS MÃQUINAS POSSUEM O EXCEL INSTALADO.
O FATO DA PLANILHA SER ABERTA PELO BROWSER é QUANDO O USUÃRIO OPTA SOMENTE POR ABRIR QUANDO CLICA NA CAIXA DE DIALOGO DO DOWNLOAD. QUANDO ELE CLICA EM ABRIR A PLANILHA é ABERTA PELO BROWSER.
TANTO QUE O NOME DA PLANILHA GANHA A ATRIBUIÇÃO DE UMA URL.
EU PRECISAVA DE UM CÓDIGO QUE IDENTIFICASSE SE FOI ABERTO PELO BROWSER E QUE FORÇASSE O ENCERRAMENTO DO APLICATIVO.
OBRIGADO PELA ATENÇÃO.
RICK
Tópico encerrado , respostas não são mais permitidas