Página 1 de 1

Bloqueio de campos a partir de uma data

Enviado: 16 Out 2018 às 16:25
por LeandroMalgarise
Boa tarde!

Alguém sabe como posso fazer com que certas células depois de uma data especificadas sejam bloqueada para digitação?

Conforme documento anexo eu gostaria que depois do dia 31/12/2018 não fosse mais possível mexer nas células C11:O23, ficasse bloqueada.

Re: Bloqueio de campos a partir de uma data

Enviado: 16 Out 2018 às 19:24
por osvaldomp
1. selecione toda a planilha (para isso clique sobre o retângulo à esquerda da letra que identifica a coluna A) / clique com o direito em qualquer parte da planilha / Formatar células / Proteção / desmarque Bloqueadas

2. instale o código abaixo no módulo de EstaPasta_de_trabalho, assim:
a. copie o código daqui
b. a partir de qualquer planilha tecle 'Alt+F11' para acessar o editor de VBA
c. no lado esquerdo da tela dê duplo clique em EstaPasta_de_trabalho
d. cole o código na janela em branco que vai se abrir
e. feito! 'Alt+Q' para retornar para a planilha
Código: Selecionar todos
Private Sub Workbook_Open()
 If Date >= DateValue("10/10/2018") Then
  Sheets("Receita").Range("C11:O23").Locked = True
  Sheets("Receita").Protect Password:="123"
 End If
End Sub
3. para testar ~~~> salve como habilitado para macros, feche e reabra o arquivo ~~~> ao reabrir, o código deverá bloquear as células no intervalo C11:O23 da planilha Receita. Coloquei no código a data de 10/10/2018 para efeitos de testes, se o resultado for o esperado, então altere para a data desejada


obs.
1. para desbloquear a planilha a senha é 123, altere no código se quiser
2. com o fim de inibir o livre acesso ao editor de VBA é conveniente proteger o VBAProject ~~~> Ferramentas / Propriedades ... / Proteção