EXCELer Tudo sobre EXCEL em Português
- Este tópico contém 9 respostas, 2 utilizadores e foi actualizado pela última vez há 14 anos, 6 meses por
.
-
Artigos
-
-
galerinha,
preciso desabilitar ou ocultar o botão fechar “x” da barra de título do excel. como faço??
aguardo uma ajuda!!
grato !!!!
-
-
obrigado mais uma vez!!
-
jorge,
mas e agora, como faço para fechar o arquivo?
utilizei um botão com as programação: activeworkbook.close false
mas não funciona…
-
wagner,
tenta adaptar de: http://en.allexperts.com/q/excel-1059/2009/1/disable-x-close-button.htm
-
jorge,
não consegui. vc pode me passar certinho o que tenho que fazer?
coloquei essa programação para desabilitar o botão fechar “x”:
dentro de vbaproject > microsoft excel objetos > esta pasta de trabalho:
private sub workbook_beforeclose(cancel as boolean)
if not bokclose then
msgbox “favor clicar no botão ‘sair’ !!!”
cancel = true
end if
end sub
depois criei um módulo para sair:
dentro de vbaproject > módulos > módulo 1:
sub sair()
activeworkbook.close false
end sub
ao clicar no botão fechar “x”, o arquivo realmente não fecha. ok
porém, qdo clico no botão criado “sair”, o arquivo continua não fechar. o que tenho que fazer ?? -
wagner,
o evento workbook_beforeclose, se tiver o cancel=true, não só não dá para fechar com o “x”, como também não dá para fechar de outra forma.
penso que a melhor maneira de o fazer, será utilizando, por exemplo, o seguinte código num módulo:
public vflag as boolean
sub sair()
vflag = true
application.quit
thisworkbook.close savechanges:=trueend sub
depois, crias dois eventos no próprio livro, um ao abrir, que vai dizer que a variável vflag=false, para não deixar fechar com o “x” e o outro evento, antes de fechar, que vai verificar se a variável está como true ou como false. ora, neste caso, estará como true, apenas se executares o sub sair, caso contrário, continuará como false e, deste modo, não deixa fechar.
private sub workbook_beforeclose(cancel as boolean)
if vflag = true then
else
msgbox “favor clicar no botão ‘sair’ !!!”
cancel = true
end ifend sub
private sub workbook_open()
vflag = false
end subverifica e depois diz qualquer coisa, ok?
fica bem.
-
jorge,
primeiramente agradeço mais uma vez toda a atenção. e gostaria de saber se vc tem algum contato, tipo msn, que pudessemos conversar online. e tb se tem algum email que podemos nos falar.. ?????
a programação tá ficando top, porem tem algumas pequenas coisas que eu gostaria de perguntar, não sei se vou conseguir explicar por aqui.
– a parte de desabilitar o botão fechar “x” funcionou perfeitamente.
– a parte do modulo, fiz uma pequena alteração, pois ao clicar no botão “sair”, ele fechava todos os programas em excel abertos .. entao apenas tirei o (application.quit). ficou:
sub sair()
vflag = true
thisworkbook.close savechanges:=true
end sub– agora tem um detalhe que não sei se vc vai entender. qdo abrimos vários excel’s, podemos escolher qual a gente quer visualizar e trabalhar, utilizando o atalho (alt+tab) ou na parte inferior do windows 7 clicar no grupo excel e escolher qual documento quero trabalhar.
depois dessa programação, isso não é possível, ele apenas deixa visualizar o ultimo arquivo em excel aberto.
como fazer para resover? conseguiu entender? espero ke sim ..– qualquer coisa, favor entrar em contato .. preciso dessa programação urgente …
abração e grato pela ajuda !!!
msn: wagnercgpereira@hotmail.com
email: wagnercgpereira@yahoo.com.br -
putz ….
agora qualquer excel que eu abra, depois que fecho um unico, ele fecha todos os outros …
o que faço para corrigir isso .. ?????
att.
-
wagner,
vê o exemplo que construi, para o exercício. experimentei e, como está, não fecha os outros ficheiros, só o que tem a cláusla restritiva, como, acho, que pretendes.
Wagner_2011-10-14.zip
-
- Tem de iniciar sessão para responder a este tópico.