déprotéger une colonne dans une feuille protégée

[Willy]

Bonjour à toutes et à tous,

Est t'il possible de déprotéger seulement une colonne, voire certaines cellules d'une colonne style :
Worksheets("STOCK").range("C2:C30").UnProtect PassWord:="1234"

Si cela n'est pas possible, auriez vous une astuce permettant de saisir des cellules sous certaines conditions, Je m'explique :

Dans mon projet, il y à 3 niveau d'accès à la saisie de cellules.
Chaque utilisateur dispose d'un mot de passe et d'un niveau d'accès.

l'utilisateur A à le niveau d'accès n° 1
l'utilisateur B à le niveau d'accès n° 2
l'utilisateur C à le niveau d'accès n° 3

L'utilisateur A à l'autorisation de modifier n'importe quelle cellules dans n'importe quelle colonne, donc en fait la feuille est déprotéger le temps d'effectuer ses modifications.

Les utilisateurs B et C ne peuvent saisir que certaines colonnes spécifiques. donc ici le fait de déprotéger les colonnes en question serait appliqué.

Merci de votre aide
Willy

 

[Mytå]

salut willy

une idee de base

Sub Macro1()
If password = "1234" Then
ActiveSheet.Unprotect
Columns("C:C").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
If password = "2345" Then
ActiveSheet.Unprotect
Columns("D😀").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub

Mytå

 

[Willy]

Bonjour Mytå,
Merci pour ton aide.
Je vais approfondir ta macro et je te tiens au courant.
Bonne journée
Willy

 

[jpierre]

salut willy,


je suis interessé par ta macro, car je travaille sur le meme sujet

merci de me dire si tu as trouver une solution adapté!!!

a+

le jp

 

[Willy]

Salut Jean Pierre,

Je te joint un fichier que j'ai retravaillé à partir de la formule de Mytå que je remercie au passage pour son aide.
Si tu as besoin de plus d'infos n'hésite pas ( dans la mesure de mes possibilités, je débute en bva)
Bonne journée
Willy