olá amigo, consegui desbloquear todas as abas ao mesmo tempo, muito obrigado porém não consegui bloqueá-las novamente. Aparece um erro 400. poderia me auxiliar? obrigado
Caro Rubens, eu não sei o que significa esse erro. Mas reparei que aqui no meu excel está um pouquinho diferente do que eu postei, então segue o código que estou usando no momento. Tente ver se resolve:
Sub ProtegeTodas() Dim ws As Worksheet Dim Pwd As String Pwd = InputBox("Digite a senha de proteção", "Entre com a senha") For Each ws In ActiveWorkbook.Worksheets ws.Protect Password:=Pwd, DrawingObjects:=True, Contents:=True, Scenarios:=True ws.EnableSelection = xlNoSelection Next ws End Sub
2 comentários:
olá amigo,
consegui desbloquear todas as abas ao mesmo tempo, muito obrigado
porém não consegui bloqueá-las novamente. Aparece um erro 400.
poderia me auxiliar?
obrigado
Caro Rubens, eu não sei o que significa esse erro. Mas reparei que aqui no meu excel está um pouquinho diferente do que eu postei, então segue o código que estou usando no momento. Tente ver se resolve:
Sub ProtegeTodas()
Dim ws As Worksheet
Dim Pwd As String
Pwd = InputBox("Digite a senha de proteção", "Entre com a senha")
For Each ws In ActiveWorkbook.Worksheets
ws.Protect Password:=Pwd, DrawingObjects:=True, Contents:=True, Scenarios:=True
ws.EnableSelection = xlNoSelection
Next ws
End Sub
Postar um comentário