Microsoft 365 Bloquer une textbox selon utilisateur

[Pom909]

Bonjour à tous,

Mon userform contient un onglet qui ne doit être modifié que par une seule personne, dont l'username est disons "j.dupont".
Ainsi je souhaite que les textbox soient "locked" si ce n'est pas ce user qui est loggé
Je ne sais pas si c'est clair ?

J'ai tenté le code ci-dessous mais cela ne fonctionne pas : les textbox en question sont unlocked pour tout le monde.
Pouvez-vous m'aider ?

Sub MaFenetre_Activate()
    Liste = "j.dupont"
    If Not InStr(Liste, Environ("Username")) <> 0 Then
        TextBox14.Locked = True
        TextBox15.Locked = True
        TextBox16.Locked = True
        TextBox17.Locked = True
    End If
End Sub

Merci d'avance !

 

[sylvanu]

Bonjour Pom,
Tentez :

If Environ("Username") Like Liste Then

Ca a l'air de marcher sur un exemple.

 

[Hasco]

Bonjour,

Sub MaFenetre_Activate()
    Dim sListe As String
    Dim bBloque As Boolean
    sListe = "j.dupont"
    bBloque = InStr(sListe, Environ("Username")) < 1
    TextBox14.Enabled = bBloque
    TextBox15.Enabled = bBloque
    TextBox16.Enabled = bBloque
    TextBox17.Enabled = bBloque
End Sub

cordialement