Ejecutar un macros unicamente en un determinado PC
Estimado experto, mi consulta esta relacionada a si existe alguna sentencia que permite confirmar si el nombre del equipo y el grupo de trabajo es el determinado y posteriormente se ejecute un macros de excel
Es decir que la sentencia verifique el nombre y el equipo de trabajo del pc y si es el indicado por ejemplo : Nombre: "CARLOS" y Grupo de trabajo: "USE XP" entonces ejecutar el macros.
Saludos y gracias.
Es decir que la sentencia verifique el nombre y el equipo de trabajo del pc y si es el indicado por ejemplo : Nombre: "CARLOS" y Grupo de trabajo: "USE XP" entonces ejecutar el macros.
Saludos y gracias.
1 Respuesta
Respuesta de Juan Carlos González Chavarría
1
a), de hacerse se puede solo que sin garantías de ejecución. A lo que me refiero es que alguien puede cambiarle el nombre al equipo y listo; otra técnica que podrían usar sería desbloquear el archivo y modificar la macro para que corra en cualquier lado.
[email protected]
[email protected]
Me interesaría de todos modos el código para tal propósito. Comprobar el nombre del equipo y grupo de trabajo y luego continuar con la ejecución si se cumple que es el usuario indicado.
Hasta luego
Hasta luego
Aquí tienes un posible código pero si no sabes de VBA se te hará un enredo.
Private Sub CommandButton1_Click()
If TextBox1 = "paco" And ComboBox1 = "Hoja2" Then
Hoja2.Visible = True: Hoja2.Activate
ElseIf TextBox1 = "ST" And ComboBox1 = "Hoja3" Then
Hoja3.Visible = True:: Hoja3.Activate
Else
MsgBox "Usuario n oautorizado"
End If
Unload UserForm1
End Sub
Private Sub UserForm_Initialize()
Me.Caption = "Control de Usuarios"
For i = 2 To 3
ComboBox1.AddItem "Hoja" & i
Next i
End Sub
[email protected]
Private Sub CommandButton1_Click()
If TextBox1 = "paco" And ComboBox1 = "Hoja2" Then
Hoja2.Visible = True: Hoja2.Activate
ElseIf TextBox1 = "ST" And ComboBox1 = "Hoja3" Then
Hoja3.Visible = True:: Hoja3.Activate
Else
MsgBox "Usuario n oautorizado"
End If
Unload UserForm1
End Sub
Private Sub UserForm_Initialize()
Me.Caption = "Control de Usuarios"
For i = 2 To 3
ComboBox1.AddItem "Hoja" & i
Next i
End Sub
[email protected]
