Boa tarde!!
Use a pesquisa do fórum!!!

Option Explicit
 
Sub ProtegerTudo()
     
    Dim wSheet          As Worksheet
    Dim Pwd             As String
     
    Pwd = InputBox("Digite sua senha para Proteger todas as guias", "Digite a senha")
    For Each wSheet In Worksheets
        wSheet.Protect Password:=Pwd
    Next wSheet
     
End Sub
Sub DesprotegerTudo()
     
    Dim wSheet          As Worksheet
    Dim Pwd             As String
     
    Pwd = InputBox("Digite sua senha para Desproteger todas as guias", "Digite a senha")
    On Error Resume Next
    For Each wSheet In Worksheets
        wSheet.Unprotect Password:=Pwd
    Next wSheet
    If Err <> 0 Then
        MsgBox "Você digitou uma senha incorect. Todas as planilhas não poderam ser desproteida" & _
        "Foi desprotegido.", vbCritical, "Senha Incorreta"
    End If
    On Error GoTo 0
     
End Sub

viewtopic.php?f=10&t=5362
viewtopic.php?f=10&t=2569
viewtopic.php?f=10&t=4124
viewtopic.php?f=10&t=6427

Att

Muito obrigadaaaaa...

Gostaria de uma opnião. O que você acha melhor, criar um botão de proteger ou desproteger; ou selecionar uma célula para realizar a operação de proteger e desproteger? Caso seja esta última opção, como devo realizar.

Obrigada mais uma vez.

Realizei a macro acima em um arquivo novo e funcionou perfeitamente, mas quando fui realizar a macro na minha planilha de uso não deu certo, as células que já eram protegidas, continuaram protegidas, mas as que estavam desbloqueadas, continuaram desbloqueadas. E agora?

Boa tarde!!

Muito obrigadaaaaa...

Gostaria de uma opnião. O que você acha melhor, criar um botão de proteger ou desproteger; ou selecionar uma célula para realizar a operação de proteger e desproteger? Caso seja esta última opção, como devo realizar.

Click na mãozinha!!!!!!!!!!!

Gostaria de uma opnião. O que você acha melhor, criar um botão de proteger ou desproteger; ou selecionar uma célula para realizar a operação de proteger e desproteger? Caso seja esta última opção, como devo realizar.

Depende de usa necessidade, tente pelo botão.

Realizei a macro acima em um arquivo novo e funcionou perfeitamente, mas quando fui realizar a macro na minha planilha de uso não deu certo, as células que já eram protegidas, continuaram protegidas, mas as que estavam desbloqueadas, continuaram desbloqueadas. E agora?

desproteja tudo, depois tente executar o código !

Att

Ainda não deu certo, posso te mandar um arquivo com as planilhas pra você ver o ocorrido e talvez entender minha necessidade. Posso enviar? Qual email?

Boa tarde!!

posso te mandar um arquivo com as planilhas pra você ver o ocorrido e talvez entender minha necessidade. Posso enviar?

Sim! no próprio forum ou em um sitem gratuito ( http://www.sendspace.com/ )!!!

Att

email enviado: Assunto Proteção a_campos.

Obrigada

Boa tarde!!

Ei...a_campos , por favor deposite o arquivo no fórum ou em site gratuito!

Att

Segue o arquivo. A planilha esta com algumas células bloqueadas. A sistemática é: esta planilha e disponibilizada aos usuários e após o preenchimento dos campos não bloqueados, preciso proteger todas as abas.
Senha: pwd
Obrigada.

Boa noite!!

Cara eu não testei, veja...
http://www.sendspace.com/file/garyrk

Att

Bom dia a todos,

Alguém conseguiu ver a macro da planilha enviada acima???

Bom dia!!

O meu anexo, não deu resultado?

Att

nao, estou no pc da empresa e não consigo abrir todo arquivo. Você não poderia me ajudar com o arquivo enviado?

Bom dia!!

Eu criei m form, por isso não adianta eu mandar só o código.

estou no pc da empresa e não consigo abrir todo arquivo

Essa eu não entendi

Posso arquivar o arquivo aqui no fórum?

Att