Página 1 de 1

Liberar uma Celula ou nao para edicao

Enviado: 11 Set 2015 às 16:30
por fazerbem
OLa,

Tenho

B1 - Nome
B2 - Endereco
B3 - CNPJ
B4 - Fone

Na Celula B 10 tenho QNT, onde o cliente vai digitar a QNT a ser Pedida. Eu queria forcar o cliente a ter que preencher as Celulas B1, B2, B3 e B4, caso nao preenchesse, nao iria conseguir entrar com a QNT em B10, entao iria aparecer uma tela de aviso , Sei que isso é possivel em Validacao de dados, porem nao estou conseguindo em personalisado entrar com a formula certa.

Outra coisa, minha planilha é sempre protegida ao enviar ao cliente, apenas deixo livre os campos necessarios. Tenho a Coluna M10 a M 50, onde eu gostaria que mesmo estando a planilha protegida caso ele clicasse por exemplo em M5, aparecesse uma mensagem para entrar com a senha de desbloqueio ao qual somente iria desbloquear as Celulas de M10 a M50, isso é possivel , rsrsrsrsr.

Andre Luiz

Re: Liberar uma Celula ou nao para edicao

Enviado: 11 Set 2015 às 17:10
por alexandrevba
Boa tarde!!

Eu não entendi..mas ai vai uma forma para que você possa adaptar... :?
Código: Selecionar todos
Sub AleVBA_581()
'Crie uma condição para verificar as células desejadas
    ActiveSheet.Unprotect Password:="AleVBA_Senha_Guia"
    Worksheets("NomeDaGuia").Range("Intervalo").Locked = True
    ActiveSheet.Protect Password:="AleVBA_Senha_Guia"
End Sub
Att

Liberar uma Celula ou nao para edicao

Enviado: 12 Set 2015 às 21:12
por fazerbem
Grato mais esta vez, vou restar e digo.

Abs