Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Botão para bloquear e desbloquear bélulas específicas

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
ortegaf
Colaborador
Colaborador
Mensagens: 33
Registrado em: Sáb Out 27, 2018 2:42 pm

Botão para bloquear e desbloquear bélulas específicas

Mensagem por ortegaf »

Tenho um código que bloqueia determinas células em um planilha:

Código: Selecionar todos

Sub Bloquear_Soja()

    Range("P8,P11,P14,P17,P20,P23,P26,P29,P32,P35,P42,Z8,Z11,Z14,Z17,Z20,Z23,Z26,Z29,Z32,Z35,AJ8,AJ11,AJ14,AJ17,AJ20,AJ23,AJ26,AJ29,AJ32,AJ35").Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Gostaria de criar um botão que ao clicar bloqueia e desbloqueia essas células, alguém pode ajudar?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Wagner Morel
Manda bem
Manda bem
Mensagens: 107
Registrado em: Qua Nov 29, 2017 11:51 am
Localização: Fortaleza - CE

Re: Botão para bloquear e desbloquear bélulas específicas

Mensagem por Wagner Morel »

ortegaf,

Bom dia!

Veja e é assim.
Anexos
Botão para Bloquear e para Desbloquear.zip
(15.21 KiB) Baixado 183 vezes


ortegaf
Colaborador
Colaborador
Mensagens: 33
Registrado em: Sáb Out 27, 2018 2:42 pm

Re: Botão para bloquear e desbloquear bélulas específicas

Mensagem por ortegaf »

Isso mesmo!

Porém, preciso fazer isso em mais de uma Planilha... quando copio o código e mudo as células não da certo... Ele só bloqueia as células da ultima planilha(Rateios)

Código: Selecionar todos

Option Explicit
Sub Bloquear_Soja()


OPERATIVO.Select

Range("P8,P11,P14,P17,P20,P23,P26,P29,P32,P35,P42,Z8,Z11,Z14,Z17,Z20,Z23,Z26,Z29,Z32,Z35,AJ8,AJ11,AJ14,AJ17,AJ20,AJ23,AJ26,AJ29,AJ32,AJ35").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True


RATEIOS.Select

Range("F8,F11,F14,P8,P11,P14,Z8,Z11,Z14,AJ8,AJ11,AJ14").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True


End Sub


Sub Desbloquear_Soja()


OPERATIVO.Select
ActiveSheet.Unprotect
Range("P8,P11,P14,P17,P20,P23,P26,P29,P32,P35,P42,Z8,Z11,Z14,Z17,Z20,Z23,Z26,Z29,Z32,Z35,AJ8,AJ11,AJ14,AJ17,AJ20,AJ23,AJ26,AJ29,AJ32,AJ35").Select
Selection.Locked = False
Selection.FormulaHidden = True
  

RATEIOS.Select
ActiveSheet.Unprotect
Range("F8,F11,F14,P8,P11,P14,Z8,Z11,Z14,AJ8,AJ11,AJ14").Select
Selection.Locked = False
Selection.FormulaHidden = True


End Sub


Wagner Morel
Manda bem
Manda bem
Mensagens: 107
Registrado em: Qua Nov 29, 2017 11:51 am
Localização: Fortaleza - CE

Re: Botão para bloquear e desbloquear bélulas específicas

Mensagem por Wagner Morel »

ortegaf,

Bom dia!

Ok. Todavia, em sua demanda você não anexou arquivo e nem disse como deveria ser. Desse modo, fica muito difícil adivinhar.

Veja se é assim.
Anexos
Botão para Bloquear e para Desbloquear.zip
(20.79 KiB) Baixado 185 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


ortegaf
Colaborador
Colaborador
Mensagens: 33
Registrado em: Sáb Out 27, 2018 2:42 pm

Re: Botão para bloquear e desbloquear bélulas específicas

Mensagem por ortegaf »

Muito Obrigado!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder