Blocage cellule

Bonjour,

J'aimerais interdire la modification du contenu d'une cellule suivant le nom d'utilisateur du pc.

Est-ce que quelqu'un pourrait m'aider ?

Merci d'avance.

Bonjour,

Un exemple dans le fichier joint.

ALT F11 pour ouvrir l'éditeur VBE et accéder aux procédures.

Cdlt

Module ThisWorkbook

Private Sub Workbook_Open()
    User = Environ("username")
End Sub

Module standard (Module1)

Public User As String

Module Feuil1 (Feuil1)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$D$4" Then
        Select Case User
            Case "Jean-Eric"
                MsgBox User & " est autorisé à modifier cette cellule."
            Case Else
                MsgBox User & " n'est pas autorisé à modifier cette cellule."
                Target.Offset(, -1).Select
        End Select
    End If
End Sub

Merci Jean-Eric,

Cela fonctionne très bien mais plus compliqué, j'aimerais bloquer les cellules lors de l'ouverture du fichier

Bonne journée.

Bonjour,

Il faut alors envisager une protection feuille et ce cellules.

Plus simple, je ne sais pas. Peux-tu donner un complément d'informations et joindre un petit fichier ?

Cdlt.

Bonjour,

J'aimerais, lors de l'ouverture du fichier, vérifier le nom d'utilisateur et interdire l'écriture dans une cellule ou pas.

Ci-joint un exemple de ce que j'aimerais.

Bonne journée.

Jean-Eric a écrit :

Bonjour,

Un exemple dans le fichier joint.

ALT F11 pour ouvrir l'éditeur VBE et accéder aux procédures.

Cdlt

Module ThisWorkbook

Private Sub Workbook_Open()
    User = Environ("username")
End Sub

Module standard (Module1)

Public User As String

Module Feuil1 (Feuil1)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$D$4" Then
        Select Case User
            Case "Jean-Eric"
                MsgBox User & " est autorisé à modifier cette cellule."
            Case Else
                MsgBox User & " n'est pas autorisé à modifier cette cellule."
                Target.Offset(, -1).Select
        End Select
    End If
End Sub

Bonjour Jean-Eric,

Dans ton code, si je veux faire le test Target.Adress = $D$4 mais sur 2 colonnes je remplace comment ?

Bonne journée.

Bonjour Jean-Eric,

Voici un fichier test.

Peux-tu me donner tes impressions ?

Merci