Bom dia!!

Seu melhor aliado, será a Pesquisa do fórum, eu me lembro de ter postado algo assim.
mas..tente algo assim...

Sub Exemplo1()
ActiveSheet.Unprotect "SuaSenha"
If Environ("username") = Range("A1") Then
    Range("C24").Locked = False
Else
    Range("C24").Locked = True
End If
ActiveSheet.Protect "SuaSenha"
End Sub
Option Explicit
Option Compare Text

Private Sub test()
    Select Case Application.UserName
        Case "User", "User2", "User3"
            Plan1.Unprotect Password:="SuaSenha"
        Case Else
    End Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim NewValue As Variant, OldValue As Variant
    If Target.Count > 1 Then Exit Sub

    If Not Intersect(Target, Range("A1:F10")) Is Nothing Then
        NewValue = Target.Value
        Application.EnableEvents = False
        Application.Undo
        OldValue = Target.Value
        If OldValue = "" Then
           Target.Value = NewValue
        ElseIf InputBox("enter password") = "pwd" Then
           Target.Value = NewValue
      Else: MsgBox "Você não pode alterar o conteudo da celula.", 16, "Células Bloqueadas"
        Target.Value = OldValue
    
        End If
        Application.EnableEvents = True
    End If
End Sub

outra fonte:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=412
Att

Bom dia Rafaw,

Tenta assim:

Function UsuarioRede() As String
    Dim GetUserN
    Dim ObjNetwork
    Set ObjNetwork = CreateObject("WScript.Network")
    GetUserN = ObjNetwork.UserName
    UsuarioRede = GetUserN
End Function

Sub ProtectAll()
    Dim S As Object
    Dim pWord1 As String, pWord2 As String
    pWord1 = InputBox("Por favor insira sua senha.")
    If pWord1 = "" Then Exit Sub
    pWord2 = InputBox("Repita a senha.")
    
    If UsuarioRede = "NOME DO USUARIO CHEFE" Then
        GoTo ProtTudo
    End If
    If pWord2 = "" Then Exit Sub
     ''verifica se as senhas são iguais
    If InStr(1, pWord2, pWord1, 0) = 0 Or _
    InStr(1, pWord1, pWord2, 0) = 0 Then
        MsgBox "As senhas são diferentes! Tente novamente."
        Exit Sub
    End If
ProtTudo:
    For Each ws In Worksheets
        ws.Protect Password:=pWord1, DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowSorting:=True, AllowFiltering:=True
    Next
    MsgBox "Todas as abas estão protegidas."
    Exit Sub
     
End Sub

É só adaptar para desproteger.

Qualquer coisa da o grito.
Abraço

opa, obrigado pelas respostas

@alexandrevba

juro que pesquisei e nao tinha achado nada parecido com o que eu estava querendo
mas de qualquer modo, obrigado...

não entendi o que fazer com o primeiro e o segundo código....
o segundo eu vou atribuir ao botão?

mas o outro deu certo aqui!!! muito obrigado

@Bernardo

obrigado pela ajuda também..
vou deixar o outro código rodando... caso eu veja algum problema vou tentar trocar por esse seu!

Bom dia!!

O 1º e o 2º era só para se ter uma ideia de como usar baseado em username, o terceiro tem um detalhe, o usuário pode escrever uma única vez os dados na planilha (guia), mas caso queira alterar ou deletar, terá que ter permissão.

Att