Aqu\u00ed les paso el c\u00f3digo para que solamente algunos usuarios puedan ejecutar una macro. Copien esta macro en un m\u00f3dulo nuevo. Modifiquen la l\u00ednea 8, que dice<\/p>\n
Usuarios_con_permiso = Array(\"Hugo\", \"Paco\", \"Luis\", \"Armando\")<\/pre>\nEscriban los usuarios autorizados como los teclean para entrar a Windows en lugar de \u00abHugo\u00bb, \u00abPaco\u00bb, \u00abLuis\u00bb, \u00abArmando\u00bb.<\/p>\n
Option Explicit\n \nFunction Rechazar_Usuario() As Boolean\n Dim Usuarios_con_permiso As Variant\n Dim num_persona As Integer\n\n ' Esta es la l\u00ednea donde tienen que poner los usuarios autorizados. \n Usuarios_con_permiso = Array(\"Hugo\", \"Paco\", \"Luis\", \"Armando\")\n \n Rechazar_Usuario = True\n For num_persona = 0 To UBound(Usuarios_con_permiso)\n If Usuarios_con_permiso(num_persona) = Environ$(\"Username\") Then\n Rechazar_Usuario = False\n Exit For\n End If\n Next num_persona\nEnd Function<\/pre>\nEsto les va a dar la funci\u00f3n Rechazar_Usuario(), que regresa VERDADERO cuando el usuario actual no est\u00e1 en los usuarios autorizados, y FALSO si es un usuario autorizado.<\/p>\n
Aqu\u00ed tienen un ejemplo de c\u00f3mo usarlo.<\/p>\n
Sub Prueba()\n If Rechazar_Usuario() Then\n MsgBox \"Usted no puede correr esta macro, \" & Environ$(\"Username\") & \", ni modo pero 'lero, lero, chapuchero'.\"\n Exit Sub\n End If\n ' Y aqu\u00ed pones el resto del programa.\n MsgBox \"Hola, don \" & Environ$(\"Username\") & \" qu\u00e9 gusto de poder ayudarle.\"\n \nEnd Sub<\/pre>\nSi les sirve, me encantar\u00eda que me dejaran un comentario.<\/p>\n","protected":false},"excerpt":{"rendered":"
Aqu\u00ed les paso el c\u00f3digo para que solamente algunos usuarios puedan ejecutar una macro. Copien esta macro en un m\u00f3dulo nuevo. Modifiquen la l\u00ednea 8, que dice Usuarios_con_permiso = Array(\u00abHugo\u00bb, \u00abPaco\u00bb, \u00abLuis\u00bb, \u00abArmando\u00bb) Escriban los usuarios autorizados como los teclean …<\/p>\n