Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), protege e ou desprotege uma folha de planilha em determinadas colunas, sensibilizada pelo Evento_Change(Ao digitar), nas colunas(A)=1, Coluna(D)=4, Coluna(7)=G.
A finalidade é proteger somente as colunas onde se encontra o número da matrícula já digitado e deixar liberado as células em branco, para novas digitações, nas outras colunas na folha de planilha nao sensibilizada pelo procedimento ficam desprotegidas, para mudança do status, para sim ou não. Baixe o exemplo de planilha no final da página para melhor entendimento. Fiquem com Deus, Expedito Marcondes.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim vCelula As Range, vRegiao As Range
Set vRegiao = Intersect(Target, Union(Columns(1), Columns(4), Columns(7)))

If vRegiao Is Nothing Then Exit Sub
   ActiveSheet.Unprotect
  
   For Each vCelula In vRegiao
     If vCelula <> "" Then
        vCelula.Locked = True
     Else
        vCelula.Locked = False
        vCelula.FormulaHidden = False
     End If
   Next vCelula
   [B1].Value = "Folha de Planilha PROTEGIDA!"
   [B1].Font.ColorIndex = 10
 ActiveSheet.Protect

End Sub




Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

   Baixe o exemplo de planilha contendo procedimento acima
Excel planilha vba protege celulas presenca matricula (73.37 KB)


Publicidade
Compre com segurança, garantia e ótimos preços