Este fórum está sendo desativado

[nathanaelacerda300]

Pessoal, eu uso o vba abaixo para bloquear todas as planilhas que tenho em uma pasta de trabalho. Porém, tem uma que eu não quero bloquear (Planilha DADOS). Como faço?

Sub lsProtegerTodasAsPlanilhas()
'Declara as variáveis necessárias
Dim lPass As String
Dim lQtdePlan As Integer
Dim lPlanAtual As Integer

'Solicita a senha
'O método InputBox é utilizado para solicitar um valor através de um formulário
lPass = InputBox("Proteger todas as planilhas:", "titan")

'Inicia as variáveis
'O método Worksheets.Count passa a quantidade de planilhas existentes no arquivo
lQtdePlan = Worksheets.Count
lPlanAtual = 1

'Loop pelas planilhas
'A função While realiza um loop de código enquanto não passar por todas as planilhas contadas
While lPlanAtual <= lQtdePlan
'O método Worksheets(lPlanAtual).Activate ativa a planilha conforme o índice atual 1, 2, 3...
Worksheets(lPlanAtual).Activate

'O método .Protect proteje a planilha passando os parâmetros para proteger
'objetos de desenho, conteúdo, cenários e passando o password digitado
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=lPass

'Muda o índice para passar para a próxima planilha
lPlanAtual = lPlanAtual + 1
Wend
Sheets("Concurso").Select
Range("A1").Select
'O método MsgBox exibe um formulário de aviso ao usuário.
MsgBox "Planilhas protegidas!"

End Sub

[babdallas]

Código: Selecionar todos

Sub lsProtegerTodasAsPlanilhas()
'Declara as variáveis necessárias
Dim lPass As String
Dim lQtdePlan As Integer
Dim lPlanAtual As Integer

'Solicita a senha
'O método InputBox é utilizado para solicitar um valor através de um formulário
lPass = InputBox("Proteger todas as planilhas:", "titan")

'Inicia as variáveis
'O método Worksheets.Count passa a quantidade de planilhas existentes no arquivo
lQtdePlan = Worksheets.Count
lPlanAtual = 1

'Loop pelas planilhas
'A função While realiza um loop de código enquanto não passar por todas as planilhas contadas
While lPlanAtual <= lQtdePlan
'O método Worksheets(lPlanAtual).Activate ativa a planilha conforme o índice atual 1, 2, 3...
If  Worksheets(lPlanAtual).Name <> "Dados" then
Worksheets(lPlanAtual).Activate

'O método .Protect proteje a planilha passando os parâmetros para proteger
'objetos de desenho, conteúdo, cenários e passando o password digitado
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=lPass
End if
'Muda o índice para passar para a próxima planilha
lPlanAtual = lPlanAtual + 1
Wend
Sheets("Concurso").Select
Range("A1").Select
'O método MsgBox exibe um formulário de aviso ao usuário.
MsgBox "Planilhas protegidas!"

End Sub

[nathanaelacerda300]

Perfeito, mais uma vez obrigado.