Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
VBA protect para vá...
 
Notifications
Clear all

VBA protect para várias planilhas

 
2024 - VBA & Macros
Post Recente por Mauro Coutinho 5 anos atrás
2 Posts
2 Usuários
0 Reactions
1,352 Visualizações
RSS
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Prezados, bom dia!

O código para proteger planilhas (planilha por planilha) eu sei, minha dúvida é.

Como faço para abrir uma pasta de trabalho protegendo todas as planilhas existentes nela?

seria assim ou teria outra forma

Sheets("01").Protect "ABC123"
Sheets("02").Protect "ABC123"
Sheets("03").Protect "ABC123"
Sheets("04").Protect "ABC123"
Sheets("05").Protect "ABC123"
.....

Tentei usar esse código aqui mas da erro:

Erro em tempo de execução '424':
O objeto é obrigatório

código utilizado:

Private Sub Workbook_Activate()

Workbook.Protect "ABC123"

End Sub

desde já agradeço pela atenção.

 
Postado : 23/10/2019 7:05 am
Mauro Coutinho
 Mauro Coutinho
(@coutinho)
Posts: 95
Estimable Member
 

JNEXCEL, se a intensão é na abertura do arquivo então tem de usar "Workbook_Open" e não Activate :

Private Sub Workbook_Open()
    Dim ws As Worksheet
    Dim pwd As String
    
    pwd = "ABC123" ' Coloque a Senha aqui
    
    For Each ws In Worksheets
        ws.Protect Password:=pwd
    Next ws
    
End Sub


Sub Desprotege_Todas()
    Dim ws As Worksheet
    Dim pwd As String
    
    pwd = "ABC123" ' Coloque a Senha aqui
    
    For Each ws In Worksheets
        ws.Unprotect Password:=pwd
    Next ws
    
End Sub

[]s
Mauro Coutinho

 
Postado : 23/10/2019 7:44 am
Forum Jump:
  Tópico Anterior
Próximo Tópico