| Descricao: |
 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
Publicidade
Compre com segurança, garantia e ótimos preços
|