Microsoft 365 Bloquer une textbox selon utilisateur

Pom909 · 3 Septembre 2020

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 ?

VB:

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 !

Hasco · 3 Septembre 2020

Bonjour,

VB:

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

sylvanu · 3 Septembre 2020

Bonjour Pom,
Tentez :

VB:

If Environ("Username") Like Liste Then

Ca a l'air de marcher sur un exemple.

Hasco · 3 Septembre 2020

Bonjour,

VB:

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

Microsoft 365 Bloquer une textbox selon utilisateur

Pom909

XLDnaute Nouveau

Hasco

sylvanu

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

Discussions similaires