Notifications
Clear all
2024 - VBA & Macros
2
Posts
2
Usuários
0
Reactions
1,402
Visualizações
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
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