Este fórum está sendo desativado

[JoaoLima]

Bom dia.

Estou com um problema e gostaria de ajuda.

Elaborei uma planilha de controle de consumo de materiais para uma obra, e gostaria que as células correspondentes a "quantidade" e "data" fossem bloqueadas após o usuário preencher esses dois dados; e que não fosse possível alterar após o preenchimento ou após a confirmação das informações clicando em algum botão ou apertando enter, por exemplo.

Exemplo:

Célula C12 recebe a informação de quantidade;
Célula C11 recebe a informação de data.

Após preencher a data, as células C11 e C12 ficam automaticamente bloqueadas para edição não sendo possível qualquer alteração/exclusão por parte do usuário.

É possível?

OBS.: Na planilha existem diversas células que precisarão seguir essa mesma formação.

[alexandrevba]

Bom dia!!

Dentro do Editor VB (Alt + F11) do lado esquerdo na janela VBAProject, verá as guias..
Plan1(Plan1)
Plan2(Plan2)
Plan3(AleVBA)
Dê dois clicks no módulo de guia que deseja que o código dispare e cole esse cósigo

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Answ As String
Application.ScreenUpdating = False
Answ = MsgBox("Este intervalo será bloqueado.", vbOKCancel, "Confirmar Alteração")
  If Answ <> vbOK Then
  Application.EnableEvents = False
  Target.ClearContents 'Limpa o sonteúdo se cancelado
  Application.EnableEvents = True
  Exit Sub
  End If
ActiveSheet.Unprotect "1"
Target.Locked = True
ActiveSheet.Protect Password:="1", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
End Sub

Att