RenatoMejias

Bem, não sei se é possível apagar uma parte do código com outra sub-rotina, eu creio que não seja. Por que você não faz uma validação? Exemplificando melhor: -No evento CommandButton2_Click() ele pede a senha, caso forneçam uma senha incorreta ele colocará o valor 1 na célula IV65536, caso coloque a senha correta coloque o valor 0. -No evento workbook_open() você cria uma condição, onde o código será executado se IV65536 for igual a 0. Entendeu a idéia?

Correto FabianoCRZ, porém o Int pegará apenas a parte inteira, e se for um ponto flutuante? Portanto a melhor forma de proceder é usando o Val. TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)

Já tentou reinstalar como a própria mensagem diz?

Informe em qual linguagem de programação você está usando para ser movido para o fórum apropriado. No futuro leia melhor antes de abrir um post, essa seção é para Sugestões, críticas e dúvidas do fórum.

Programe no evento click. Eis um pequeno exemplo de como fazer For Each c In [A1:A5] If c.Value = "teste" Then c.Value = Empty End If Next

Essa mesma situação aconteceu em minha faculdade (você não é da TM não né? :P ). Uma 'solução' lá foi criar um usuário vb que não tinha acesso a internet, pelo menos evitam infectar as máquinas.

Não necessita ficar dando "up" no seu tópico, além de ser contra as regras demonstra falta de paciência, meu tempo é escasso, assim uso meu tempo livre para ajudar os usuários. Vamos aos procedimentos: Reinicie em Modo de Segurança (Pressione intermitentemente F8 durante a inicialização, no menu que aparecer escolha através da seta de navegação, Modo Seguro). Agora execute o BankerFix novamente. Poste o log em sua próxima resposta. Acesse este site: http://virusscan.jotti.org/ Em File to upload coloque: C:\WINDOWS\Downloaded Program Files\gbiehabn.dll Em seguida clique em Submit Copie e poste o resultado deste exame.

Ok... Há uma infecção por um trojan banker. Este trojan captura senhas e as envia para um cracker. É recomendável que troque as mesmas. Baixe o BankerFix Desative o seu antivírus temporariamente, para não haver conflitos. Dê um duplo-clique no bankerfix.exe, dê o Enter e espere ele terminar. Ao terminar, leia a mensagem na tela e aperte Enter novamente. Habilite o seu antivírus. Faça também um novo log do HijackThis para colocar na sua resposta, junto com o relatorio.txt do BankerFix. Está em C:\LinhaDefensiva\relatorio.txt Depois de fazer sua resposta você pode apagar a pasta LinhaDefensiva que está em C:\

Movi seu log para a seção de Remoção de Malwares. http://scriptbrasil.com.br/forum/index.php...view=getnewpost

Leia este tópico e poste um log do Hijackthis na seção de Remoção de Malwares aqui do fórum.

Caso Resolvido. Caso o autor queira a reabertura do tópico, envie uma MP com o link para um moderador da seção.

Só uma dica, quando for tratar de funções matriciais, segure CTRL + SHIFT + ENTER. Para multiplicar duas matrizes basta fazer isso.

Amigo, poste como você resolveu seu problema, assim alguém futuramente poderá se beneficiar de sua resposta.

Caso Resolvido. Caso o autor queira a reabertura do tópico, envie uma MP com o link para um moderador da seção.

Obrigado por compartilhar. :)

Creio que sua dúvida seja Flash, vou mover para lá.

Acho que isso está subentendido no meu post. :)

Testei o mesmo código e funcionou, certifique-se que a célula A1 esteja vazia.

Não daria para fazer de forma direta? Precisa de uma função? dim a as integer, b as integer, c as integer, d as integer, e as integer, f as integer Dim m as Single a= Val(TextBox1.Text) b= Val(TextBox2.Text) c= Val(TextBox3.Text) d= Val(TextBox4.Text) e= Val(TextBox5.Text) f= Val(TextBox6.Text) m=(a+b+c+d+e+f)/6

Por que o form não pode ser aberto normalmente? form2.Show

Não compreendi direito, mas seu objetivo é apenas atribuir o valor do form na célula? Se for isso tente o seguinte: Range("A1").Value = text1.text

A resposta já está em casa: http://scriptbrasil.com.br/forum/index.php?showtopic=82244

Seja bem vindo, contamos com seu excelente trabalho.

Basta você mandar formatar a célula para o formato desejado. Range("A1").NumberFormat = "0.00"

Vou mover para Flash, pois é o que parece.