Macro para desbloquear dois campos
Enviado: 25 Mar 2019 às 13:56
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
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.
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
agora tamo querendo faze o mesmo com outro campo nessa mesma planilha.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 Ifcomo 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.