Adapt code UserForm

[marreco]

Good night! People.

The code below works perfectly.
This code prevents the common change the User data.
As the sheet is used by two people (Master User, User common).

What I need is to adapt it so that when the Master User is changing some of the data, activate a UserForm.

Remembering aplanilha can not be blocked nor hidden, because two people operarm, and only one of them can change the data to another does not.

Could anyone help me?

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim NewValue As Variant, OldValue As Variant
    If Target.Count > 1 Then Exit Sub
     'Say you want to work with the range A1:F100
    If Not Intersect(Target, Range("A1:F1000")) Is Nothing Then
        NewValue = Target.Value
        Application.EnableEvents = False
        Application.Undo
        OldValue = Target.Value
        If OldValue = "" Then
            Target.Value = NewValue
             'ElseIf 'Before there was InputBox Then
            Target.Value = NewValue
        Else: MsgBox "Você não pode alterar o conteudo da celula.", 16, "Células Bloqueadas"
            Target.Value = OldValue
        End If
        Application.EnableEvents = True
    End If
End Sub

[Sisyphus]

Hi,
How about using the UserName property as an identifier?

Code: Select all

If Application.UserName <> "My Master's name" Then Exit Sub


[marreco]

Good night.

Thanks for replying but I know almost nothing about VBA.

I put your code but it does not call the userform.

Can you tell me why?

Thanks

[Sisyphus]

Hi,
You posted some code and I suggested an amendment to it, like this:

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim NewValue As Variant, OldValue As Variant
    If Target.Count > 1 Then Exit Sub

    If Application.UserName <> "My Master's name" Then Exit Sub

     'Say you want to work with the range A1:F100
    If Not Intersect(Target, Range("A1:F1000")) Is Nothing Then
        NewValue = Target.Value
        Application.EnableEvents = False
        Application.Undo
        OldValue = Target.Value
        If OldValue = "" Then
            Target.Value = NewValue
             'ElseIf 'Before there was InputBox Then
            Target.Value = NewValue
        Else: MsgBox "Você não pode alterar o conteudo da celula.", 16, "Células Bloqueadas"
            Target.Value = OldValue
        End If
        Application.EnableEvents = True
    End If
End Sub


This extra line of code doesn't call any form. It prevents the InputBox (the form) from being shown if the user isn't the person you want to permit to do that. Of course, "My Master's name" isn't the application's UserName. To find the UserName you want go to Tools/Options and look at the bottom of the General tab. You must copy it very exactly. Another place to find the UserName is to type this in the Immediate Window of the VB Editor:

? Application.UserName

The name will appear below question you entered after you press Enter. You can copy it from there and paste it directly into the code.

[marreco]

Thank you!

One more question, my idea was not to allow the password to be seen and InputBox, not help.

Thank you!

[Sisyphus]

Hi,
It isn't the password you write in the code but the user name. Generally, the user name isn't a secret.

[marreco]

Thanks....it's Solved! .

Just wanted to say that my post was in the beginning because I need for a password.
But thank you!