Discussion :

[rimPFE]

Bonjour,
j'ai un fichier excel sur un reseau local d'une societe.
Ce fichier contient 3 colonnes.
la première colonne c'est moi seulement qui écrire dedans
la deuxieme et la troisieme colonne c'est le directeur qui peut écrire.
Cela est-il faisable ?

[cafeine]

Hello,

voici un exemple qui empeche de sélectionner une plage interdite en fonction du login Windows

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Const ZoneDirecteur = "B:C"
Const ZonePerso = "A:A"
Const usrDir = "Monsieur le Directeur"
Const usrPerso = "Zimedim Zimdam"
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Not (Intersect(Target, Range(ZoneDirecteur)) Is Nothing) Then
    If Environ("UserName") <> usrDir Then
        Range(ZonePerso).Cells(Target.Row, 1).Select
    End If
ElseIf Not (Intersect(Target, Range(ZonePerso)) Is Nothing) Then
    If Environ("UserName") <> usrPerso Then
        Range(ZoneDirecteur).Cells(Target.Row, 1).Select
    End If
End If
 
End Sub