Boa tarde,

Veja se este exemplo te ajuda:

Sub BloquearPlanilhas()
    Dim Pl As Worksheet
    
    For Each Pl In Worksheets
        Pl.Select
        Pl.Unprotect "SENHA"
            Cells.Locked = True
            [E3:F5000].Locked = False
        Pl.Protect "SENHA"
    Next
End Sub

É só substituir a expressão "SENHA" pela senha utilizada nas suas planilhas.

Abraço

JValq

Sim funcionou bem ... massssss

Olha estou usando um FORM onde será informado Usuário e senha.

Então dependendo do usuário e senha tudo estará liberado ou bloqueado.... Entendeu ?!?

Eu até tentei utilizar sem senha mas ele pede senha ...

Posso até usar dessa forma se não tiver outro modo...

Vou ficar no aguardo...

Obrigadão

ACP.Lacerda

Não sei se entendi bem...
Veja se é isso:

Sub DesbloquearPlanilhas(ByVal Usuario As String, ByVal Senha As String)
    Dim Pl As Worksheet
        
    If Usuario = "Eu" Then
        For Each Pl In Worksheets
            Pl.Select
            Pl.Unprotect Senha
            Cells.Locked = True
            [E3:F5000].Locked = False
            Pl.Protect Senha
        Next
    End If
End Sub

Sub BloquearPlanilhas(ByVal Usuario As String, ByVal Senha As String)
    Dim Pl As Worksheet
        
    If Usuario = "Eu" Then
        For Each Pl In Worksheets
            Pl.Select
            Pl.Unprotect Senha
            Cells.Locked = True
            Pl.Protect Senha
        Next
    End If
End Sub

Para chamar as rotinas:

BloquearPlanilhas Usuario, Senha
DesbloquearPlanilhas Usuario, Senha

Abraço

JValq

Obrigado pela ajuda...
Estou tentando ver se consigo resolver com essas dicas.

Mandei um MP para voce

Obrigadão
ACP.Lacerda