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

W

Willy

Guest
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
 
M

Mytå

Guest
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:D").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub

Mytå
 
W

Willy

Guest
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
 

Pièces jointes

  • UNPROTECT_COLUMN.xls
    34 KB · Affichages: 76

Discussions similaires

Réponses
4
Affichages
536