Este fórum está sendo desativado

[Jhony011]

gente td tranquilo!?!?
sou novo aqui no forum.
e vou falar logo, sou cabaço nesse vba. por isso preciso de uma ajuda federal...
trabalho com um arquivo e contem algumas planilhas
em uma delas tem um campo que agente pode clicar num botaozinho e desbloquear e escrever uma observacao e depois bloquear o campo novamente e tal... td certinho.
o codigo é esse aí embaixo

Código: Selecionar todos

ThisWorkbook.Sheets("ResultMes").Range("obsResultMes").Select 
      Selection.Locked = Not Selection.Locked 
       If Selection.Locked = False Then 
         MsgBox "Campo OBSs. Resultado Mensal Desbloqueado." & vbLf & "Os campos estão livre para edição." & vbLf & vbLf & "Após terminar, clique novamente para bloquear os campos.", vbInformation, "Aviso DESBLOQUEADO"
        Else
            MsgBox "OBSs. Resultado Mensal Bloqueado." & vbLf & "Não permite editar os campos.", vbCritical, "Aviso BLOQUEADO"
       End If

agora tamo querendo faze o mesmo com outro campo nessa mesma planilha.
como colocar esse codigo pra funcionar da mesma forma para os dois campos em botoes diferentes sem precisar copiar e colar a macro? uma macro pros dois campos mas cada campo com seu botao. meu chefe falou que ele sabe criar o campo la no excel msm e da um nome pra esse campo tmb. ok!?!?
fico aguardando uma ajuda dos senhores.
muito obrigado.

[babdallas]

Se você usar o código Application.Caller (https://docs.microsoft.com/pt-br/office ... ion.caller), poderá saber qual botão chamou a macro. Baseado no nome do botão (nomeie os botões com nomes diferentes) você pode fazer um IF para bloquear (ou desbloquear) um célula ou outra.