Bloqueio de coluna com VBA

Question

Encontrei um c&oacute;digo na internet, cujo, fun&ccedil;&atilde;o &eacute; simples: quando insiro o nome do Colaborador na coluna &ldquo;H&rdquo;, automaticamente, preenche a coluna &ldquo;I&rdquo; com data e hora e a coluna &ldquo;J&rdquo; com o nome de usu&aacute;rio que esta fazendo a altera&ccedil;&atilde;o. O problema, &eacute; que quando bloqueio a planilha as informa&ccedil;&otilde;es das colunas I e J podem ser alteradas normalmente, e quero essa duas colunas bloqueadas. 
[COLOR=#ff0000]Em anexo, segue a planilha e um pdf explicando melhor.[/COLOR]

Eu n&atilde;o tenho conhecimento algum com Macro, VBA, M&oacute;dulo ou qualquer coisa avan&ccedil;ada do Excel. Mas, acredito que seja poss&iacute;vel ser feito de alguma forma, e o que eu procuro na internet n&atilde;o funciona. Acredito, que eu esteja montando na VBA de forma errada.

Se alguem puder me ajudar, ficaria muito grato.

Atte,

Answer

Veja se &eacute; assim

Fiz uma pequena altera&ccedil;&atilde;o no codigo e protegi sem senha a planilha.

Caso tenha a inten&ccedil;&atilde;o de proteger a planilha com senha troque a linha

unprotect

por unprotect password = 1234

e troque

protect

por protect password = senha

1234 &eacute; a senha, coloque uma que lhe agrade.

Answer

Ol&aacute; Marcelo,

Muito obrigado, sua ajuda fio muito importante para a conclus&atilde;o dessa planilha, e era bem isso que eu queria.

Caso alguem queria, segue c&oacute;digo abaixo.

C&oacute;digo Marcelo (via Comunidade Hardware);

'A cada altera&ccedil;&atilde;o em uma c&eacute;lula este procedimento &eacute; executado
Private Sub Worksheet_Change(ByVal Target As Range)
'    On Error GoTo TratarErro
        'Desliga a escuta dos eventos temporariamente
        Application.ScreenUpdating = False
      
        Unprotect
  
    'Identifica se a coluna est&aacute; preenchida e se a coluna selecionada foi a 8
    If Target.Column  8 Then Exit Sub
              
        'Passa a data e hora atual e o usu&aacute;rio
      
        If Range(H & Target.Row).Value   Then
           Range(I & Target.Row).Value = Now
           Range(J & Target.Row).Value = VBA.Environ(Username)
        End If

'TratarErro:
    Protect
    'Liga novamente a escuta dos eventos
    Application.ScreenUpdating = True
End Sub

Answer

So pra constar o que esta abaixo de End Sub em verde no codigo vc pode apagar pois foi copia de outro codigo que aproveitei e esqueci de limpar antes de postar

Ferramentas

Mover Tópico