Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Desbloquear planilh...
 
Notifications
Clear all

Desbloquear planilha antes da macro

 
2024 - VBA & Macros
11 Posts
4 Usuários
0 Reactions
2,426 Visualizações
RSS
 tiago21
(@tiago21)
Posts: 43
Eminent Member
Topic starter
 

Pessoal, estou usando o seguinte código para desbloquear antes de executar a macro e depois bloquear.
Estou esquecendo alguma coisa?
Antes de rodar a macro

ActiveSheet.Unprotect Password:="senha"

Depois de rodar a macro

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
        AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowUsingPivotTables:=True, _
        AllowFiltering:=True, Password:="senha"
 
Postado : 23/10/2017 7:21 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Uma ideia seria assim:

Sub Teste()

Sheet1.Unprotect Password:="Secret"

    'Seu Codigo

Sheet1.Protect Password:="Secret"

End Sub

Como está sua rotina?

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/10/2017 7:29 am
leandroxtr
 leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
 

Bom dia!

Fiz o teste aqui, conforme anexo, e está dando certo.

Tente depurar o código linha a linha com o comando "F8". Pode ser que o erro esteja na execução do código centro.

Abraços!

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

 
Postado : 23/10/2017 7:29 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

tiago21,

Bom Dia!

Veja, no arquivo anexo, que para proteger uma planilha, não há necessidade de desproteger a mesma primeiro. Você pode usar o parâmetro UserInterfaceOnly com True e a planilha ficará protegida somente para o usuário e não para as macros.

Planilha protegida.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 23/10/2017 7:32 am
 tiago21
(@tiago21)
Posts: 43
Eminent Member
Topic starter
 

Wagner,

Como eu coloco ao invés de ser range, ser abas para desbloquear.... e em outro caso ser uma planilha inteira. A senha é por abas. Obg
Eu só estou querendo bloquear uma aba específica que os dados da macro vão para lá.

Range("I8").Value = "Wagner"
 
Postado : 23/10/2017 7:51 am
 tiago21
(@tiago21)
Posts: 43
Eminent Member
Topic starter
 

leandroxtr

Caso a planilha que está recebendo os dados esteja desbloqueada, ela funciona e depois bloqueia a planilha... porém na segunda vez não pega.

 
Postado : 23/10/2017 8:37 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

tiago21,

Não entendi... a melhor forma de ajudar você é você anexar, aqui mesmo no fórum, seu arquivo compactado com .ZIP.

No entanto, veja, no arquivo anexo, que eu faço o bloqueio de todas as abas da planilha, pelo código, e mesmo assim, consigo inserir (também pelo código) meu nome na célula I8 de cada uma das abas, sem qualquer problema.

Planilha protegida.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 23/10/2017 8:58 am
 tiago21
(@tiago21)
Posts: 43
Eminent Member
Topic starter
 

Segue a planilha. Se você puder colocar lá no vba.

A parte que precisa de senha é onde os dados estão sendo inseridos - Planilha 1 -

 
Postado : 23/10/2017 11:37 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

tiago21,

Veja. NO Evento Workbook_Open eu fiz o bloqueio da Planilha1 da forma que lhe falei. Inseri o módulo 4 com apenas uma rotina (teste) onde faço a inserção na célula E17 do meu nome. Sem nenhum problema. OK?

Planilha.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 23/10/2017 1:23 pm
 tiago21
(@tiago21)
Posts: 43
Eminent Member
Topic starter
 

wagner

Cara funcionou...
O Bloqueio tava travando a movimentação da coluna, no fim, tudo certo. Obrigado.

 
Postado : 24/10/2017 8:24 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

tiago21

Favor não usar o botão Citar, use o botão Responder, que fica logo abaixo da resposta.

tive que editar a maioria das tuas respostas para apagar a citação.
Só use citação, quando realmente for necessário.

[]s

Patropi - Moderador.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/10/2017 6:18 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico