Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
PROTEGENDO VARIAS A...
 
Notifications
Clear all

PROTEGENDO VARIAS ABAS

 
2024 - VBA & Macros
Post Recente por gtsalikis 10 anos atrás
3 Posts
3 Usuários
0 Reactions
909 Visualizações
RSS
 edsonruaro
(@edsonruaro)
Posts: 28
Eminent Member
Topic starter
 

Pessoal boa noite,

tem algum vba para que eu use para proteger varias abas ao mesmo tempo ???? porque tenho que fazer uma a uma..... conhecem algo ???

 
Postado : 16/12/2014 10:20 pm
selmo
 selmo
(@selmo)
Posts: 236
Estimable Member
 

Tente isso

Sub Proteger()

For Each Plans In ThisWorkbook.Worksheets
Plans.Protect
Next Plans

End Sub

Sub Desproteger()

For Each Plans In ThisWorkbook.Worksheets
Plans.Unprotect
Next Plans

End Sub

"A mente que se abre a uma nova ideia jamais voltará ao seu tamanho original."
Albert Einstein

 
Postado : 17/12/2014 4:44 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Ve se ajuda:

Sub Protege_Todas_GT()

Const Senha As String = "sua_senha"

For Each Sheet In Worksheets
    On Error Resume Next
    Sheet.Protect Senha
Next

End Sub
Sub Desprotege_Todas_GT()

Const Senha As String = "sua_senha"

For Each Sheet In Worksheets
    On Error Resume Next
    Sheet.Unprotect Senha
Next

End Sub

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 17/12/2014 4:45 am
Forum Jump:
  Tópico Anterior
Próximo Tópico