Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
[RESOLVIDO] Proteger Planilha ao Fechar
[RESOLVIDO] Proteger Planilha ao Fechar
Caros,
Boa-tarde.
Gostaria de saber se existe alguma forma de bloquear várias Sheets ao fechar o excel?
Porém, preciso que a pessoa consiga selecionar as células bloqueadas e não bloqueadas e utilizar o filtro nas plans.
Desde já agradeço,
Att,
Cy Rangel.
Boa-tarde.
Gostaria de saber se existe alguma forma de bloquear várias Sheets ao fechar o excel?
Porém, preciso que a pessoa consiga selecionar as células bloqueadas e não bloqueadas e utilizar o filtro nas plans.
Desde já agradeço,
Att,
Cy Rangel.
Editado pela última vez por cy_rangel em Sáb Mai 23, 2020 3:30 am, em um total de 1 vez.
- Mikel Silveira Fraga
- Jedi
- Mensagens: 1173
- Registrado em: Sex Mai 27, 2011 3:27 pm
- Localização: Governador Valadares - MG
- Contato:
Re: Proteger Planilha ao Fechar
A quanto tempo Rangel, tudo bem?
Cara, veja se esse código irá lhe ajudar:
- Proteger:
- Desproteger:
No código de proteção, o que permite a realização do Filtro na Planilha é o comando AllowFiltering, mesmo estando no processo de proteção.
Demais comando, permitem a seleção de células bloqueadas e desbloqueadas.
Teste esses recursos e nos retorne.
Forte abraço e excelente final de semana.
Cara, veja se esse código irá lhe ajudar:
- Proteger:
Código: Selecionar todos
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True, Password:="senha"
Código: Selecionar todos
ActiveSheet.Unprotect Password:="senha"
Demais comando, permitem a seleção de células bloqueadas e desbloqueadas.
Teste esses recursos e nos retorne.
Forte abraço e excelente final de semana.
Re: Proteger Planilha ao Fechar
Bom-dia Mikel,
Pois é, quanto tempo, rsrsrs...
Desde já, muito obrigada pela ajuda
Era exatamente isso que eu precisava, mas a vba só funciona na plan selecionada.
Exemplo: Se eu estiver na sheet1 e salvar, a sheet2 e ou a sheet3 não funionam, a menos que eu entre alguma dessas sheets, salve e feche... ai funciona.
Precisava que as 3 sheets que possuo bloqueassem sempre ao fechar e ficassem assim até que eu mesma inseri-se o código para desbloquear e ao fechar a plan não preciso me preocupar em lembrar de bloquear cada sheet.
Será que teria como fazer isso :/ ???
Obg...
Bjs...
Cy Rangel.
Pois é, quanto tempo, rsrsrs...
Desde já, muito obrigada pela ajuda
Era exatamente isso que eu precisava, mas a vba só funciona na plan selecionada.
Exemplo: Se eu estiver na sheet1 e salvar, a sheet2 e ou a sheet3 não funionam, a menos que eu entre alguma dessas sheets, salve e feche... ai funciona.
Precisava que as 3 sheets que possuo bloqueassem sempre ao fechar e ficassem assim até que eu mesma inseri-se o código para desbloquear e ao fechar a plan não preciso me preocupar em lembrar de bloquear cada sheet.
Será que teria como fazer isso :/ ???
Obg...
Bjs...
Cy Rangel.
-
- Acabou de chegar
- Mensagens: 1
- Registrado em: Ter Jun 26, 2018 3:08 am
Re: Proteger Planilha ao Fechar
That's exactly what I needed, but the vba only works on the selected plan, unless I enter some of those sheets, save and close.
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Proteger Planilha ao Fechar
Pode experimentar, cole a rotina abaixo em seu modulo:
Nomodulo ThisWorkbook acrescente
Código: Selecionar todos
Sub Proteger()
Dim varSheet As Variant, NN As Variant
Application.ScreenUpdating = False
For Each varSheet In Sheets
NN = varSheet.Name
Worksheets(NN).Activate
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveSheet.Protect Password:="SuaSenha"
Next
Application.ScreenUpdating = True
End Sub
Código: Selecionar todos
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Proteger
End Sub
Re: Proteger Planilha ao Fechar
Olá Reinaldo, tudo bem?
Obrigada pelo retorno
Eu apliquei o código conforme as suas instruções, ele funcionou, porém quando a plan está bloqueada ele não deixa eu selecionar as células ou fazer um filtro.
Teria como ajustar isso?
Segue anexo o print da minha tela.
Desde já, muito obrigada.
Att,
Cy Rangel.
Obrigada pelo retorno
Eu apliquei o código conforme as suas instruções, ele funcionou, porém quando a plan está bloqueada ele não deixa eu selecionar as células ou fazer um filtro.
Teria como ajustar isso?
Segue anexo o print da minha tela.
Desde já, muito obrigada.
Att,
Cy Rangel.
- Anexos
-
- Proteger Plan - VBA
- VBA - Proteger Plan.png (53.96 KiB) Exibido 6606 vezes
- Mikel Silveira Fraga
- Jedi
- Mensagens: 1173
- Registrado em: Sex Mai 27, 2011 3:27 pm
- Localização: Governador Valadares - MG
- Contato:
Re: Proteger Planilha ao Fechar
Cy, boa tarde.
Pega a estrutura de código passado pelo Reinaldo, e adapta o que passei pra ti antes, da seguinte forma:
- Parte do código do Reinaldo:
- Substitui por esse código:
Teste e nos retorne o resultado.
Pega a estrutura de código passado pelo Reinaldo, e adapta o que passei pra ti antes, da seguinte forma:
- Parte do código do Reinaldo:
Código: Selecionar todos
NN = varSheet.Name
Worksheets(NN).Activate
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveSheet.Protect Password:="SuaSenha"
Código: Selecionar todos
NN = varSheet.Name
Worksheets(NN).Activate
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True, Password:="senha"
Re: Proteger Planilha ao Fechar
Estou revisitando alguns posts que estão sem o meu retorno e encerrando após testar a solução... Funcionou perfeitamente. Obg .