MAsquer cellule avec mot de passe

Bonjour

Je dois faire un tableau utiliser par 2 type de personnel

- le 1 er accés aux colonnes de A à G (saisies des données)

- le 2 eme accés aux colonnes de H a P ( formules de calcul et objectifs)

je voudrais empécher le 1 er d'accéder en lecture et en écriture aux colonnes H à P , avec mot de passe si nécessaire.

Pouvez bous m'aider (meme en vba)

merci d'avance

bonsoir

eventuellement une simple MFC de la plge concernée

exemple dans la fenetre de mfc : la formule est : A$1= 123456 format noir police noire

cordialement

Bonjour,

insert celui ci dans un module

'sert a cacher ou afficher la colonne mot de passe dans l'onglet admin
Option Explicit

Sub VoirColonne()
Dim Cl As String
    Cl = InputBox("mot de passe ?")
    If Cl = "*!*@*" Then
        With Sheets("Admin")
            .Unprotect 'Password:="*!*@"
            .Range("b:b").EntireColumn.Hidden = False
            .Protect 'Password:="*!*@*"
        End With
    Else
        MsgBox ("faux !")
    End If
End Sub
Sub MasqueColonne()
    With Sheets("Admin")
        .Unprotect 'Password:="*!*@*"
        .Range("b:b").EntireColumn.Hidden = True
        .Protect 'Password:="*!*@*"
    End With
End Sub

et ceci dans la feuille concerné

Option Explicit

Cordialement

PloZ