Discussion :

[Muse31]

Bonjour,

Je travaille sur des fichiers partagés et j'aurais voulu savoir si en insérant une macro, il était possible de bloquer la modification de certaines cellules suivant la personne qui est sur le fichier.

Explication : Deux utilisateurs ST1 et ST2.
Le ST1 peut tout modifier dans le classeur et le ST2 ne peut modifier que certaines colonnes si une autre colonne est remplie.

Est ce possible ?

Merci d'avance

[ouskel'n'or]

La réponse est dans la question. Tu identifies l'utilisateur par une saisie de son nom et d'un passe éventuel à l'ouverture du fichier et, selon, tu protèges les cellules interdites et libères les autres avant de protéger la feuille. Celle-ci doit être déprotégée pour verrouiller/déverrouiller les cellules concernées.
Tu commences quelque chose et nous proposes ton code si tu as un pb.

[SfJ5Rpw8]

Pour le nom de l'utilisateur tu peu utiliser celui paramétré dans excel:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Msgbox Application.UserName

où récupérer l'utilisateur de windows, pour cela 2 méthodes possibles:

Par l'utilisation d'API , voir : tutoriel22

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Sub Utilisateur2()
 Dim st As String
 Dim nbCar As Long
 st = Space(255)
 nbCar = Len(st)
 i = GetUserName(st, nbCar)
 nomUtilisateur = Left(st, nbCar - 1)
 MsgBox nomUtilisateur
End Sub

ou en utilisant Wscript.. comme décrit ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub utilisateur()
With CreateObject("WScript.NetWork")
MsgBox .UserName & Chr(10) & _
.ComputerName & Chr(10) & _
.UserDomain
End With
End Sub

[Muse31]

Merci pour la réponse mais je vais créer une userform de saisie qui comprendra les blocages voulus.