Protegendo um checkbox.

guimaraes15 · 15 de abril de 2010

Olá pessoal.

Eu tenho um formulário no excel com 8 checkbox e um botão.

Este planilha é compartilhada para varias pessoas.

Gostaria de saber se tem uma forma de fixar a posição do checkbox. Pois quando eu vou abrir a planilha em outro computador(tambem com office 2007) ele muda o posicionamento(afasta bem longe) de alguns checkbox.

Pode ser uma solução usando o VBA mesmo.

guimaraes15 · 16 de abril de 2010

Estou com outra dúvida:

Eu gostaria que ao abrir o arquivo excel executa-se uma linha de codigo:

Sheets("plan1").Range("A1").Value = "Teste"

Como faço e onde coloco(Modulo ou Plan1) no VBA?

RafaVillani · 16 de abril de 2010

Estou com outra dúvida:
Eu gostaria que ao abrir o arquivo excel executa-se uma linha de codigo:

Sheets("plan1").Range("A1").Value = "Teste"

Como faço e onde coloco(Modulo ou Plan1) no VBA?

Você deve colocar este código no evento OPEN do WORKBOOK.

Aperte alt + F11 vai parecer uma janela

click com o botão direito em estaPasta_de_trabalho e depois em

exibir códio...

na janela que abrir, deve esta escrito Geral, click na seta ao lado

escolha workbook

e coloque o codigo...

deve ficar assim.....

Private Sub Workbook_Open()
Sheets("plan1").Range("A1").Value = "Teste"
End Sub

Abraços

RafaVillani

guimaraes15 · 16 de abril de 2010

Pow, deu erro: "subscrito fora do intervalo"!

RafaVillani · 16 de abril de 2010

Pow, deu erro: "subscrito fora do intervalo"!

Amigo guimaraes15, provavelmente você deve ter feito algo de errado, testei aqui novamente e deu certo.

Faça um teste, abra um novo arquivo do excel e faça como eu lhe disse.

Abraços

RafaVillani

guimaraes15 · 16 de abril de 2010

Amigo guimaraes15, provavelmente você deve ter feito algo de errado, testei aqui novamente e deu certo.
Faça um teste, abra um novo arquivo do excel e faça como eu lhe disse.

Abraços

RafaVillani

Pow colocando esse cod exemplo que citei nao tinha funcionado.

Ai eu coloquei o cod q eu estava planejando usar ai funcionou!

Application.StatusBar = "Softserv Sistemas | softserv.com.br"

Valeu!

Falta so resolver a primeira pergunta lá, ne...

Eu nao sei porque esta acontecendo isso.

RafaVillani · 16 de abril de 2010

Amigo, segue link de teste, coloquei os dois código e está funcionando normalmente.

http://rapidshare.com/files/376685194/teste.xls.html

Abraços

RafaVillani

guimaraes15 · 17 de abril de 2010

Amigo, segue link de teste, coloquei os dois código e está funcionando normalmente.
http://rapidshare.com/files/376685194/teste.xls.html

Abraços

RafaVillani

Não rapaz.

Você me ajudou sim.

Eu consegui fazer o que eu queria em questão de abrir o excel e rodar o codigo.

A unica duvida que falta é o do checkbox, pois eu criei uma função que ao apertar um option Button ele oculta-se algumas linhas, e nessas linhas tem alguns checkbox.

A questão, é que quando eu torno visivel novamente, elas mudam de posição sempre!

Existe uma maneira de consertar isso?

guimaraes15 · 22 de abril de 2010

A questão, é que quando eu torno visivel novamente, elas mudam de posição sempre!

Isso nunca aconteceu com ninguem?

RafaVillani · 22 de abril de 2010

Amigo, um solução seria você colocar o chekbox no local desejado, depois vá nas propriedades do chekbox e anote o valor das propriedades TOP e LEFT (anote os valores de todos os chekbox).

Com os valores em mãos, vá no evento clik do botão que reexibe os chekbox e digite as seguintes linhas de comando para cada chekbox:


Plan1.CheckBox1.Top = [COLOR=Red]valor da propriedade TOP do ChekBox1 que você anotou[/COLOR]
Plan1.CheckBox1.Left = [COLOR=Red]valor da propriedade LEFT do ChekBox1 que você anotou[/COLOR]
Plan1.CheckBox2.Top = [COLOR=Red]valor da propriedade TOP do ChekBox2 que você anotou[/COLOR]
Plan1.CheckBox2.Left = [COLOR=Red]valor da propriedade LEFT do ChekBox2 que você anotou[/COLOR]

faça isso para cada ChekBox e veja se resolve o problema.

Abraços

RafaVillani