EXCEL : PROTEGER MACRO




Option Private Module

Option Explicit

Sub Mensaje()
MsgBox "Hola Excelaprende.com", vbInformation, "www.excelaprende.com"
End Sub



OTRA FORMA :

ThisWorkbook

Private Sub Workbook_Open()
If Date <= DateSerial(2017, 7, 11) Then Exit Sub

Application.EnableCancelKey = xlErrorHandler
On Error GoTo Ver_Error

licenciauso = InputBox("Introducir la licencia de uso")
If linciauso <> "hola" Then
    MsgBox "Clave Incorrecta; Vuelva a introducir la clave"
    licenciauso2 = InputBox("Lincencia de uso 2da. oportunidad")
    If lincenciauso2 <> "hola" Then
        MsgBox "Clave Incorrecta, última oportunidad"
        licenciauso3 = InputBox("Lincenciade uso 3ra. oportunidad")
        If licenciauso3 <> "hola" Then
            ActiveWorkbook.Close
        End If
    End If
End If

GoTo fin
Ver_Error:
ActiveWorkbook.Close
fin:
End Sub

Comentarios

Publicar un comentario

Entradas populares de este blog

Para que sirve la N en SQL Server

La N significa National language character set y lo que esto nos esta diciendo es que se trata de datos unicode. Esto significa que se están pasando datos del tipo NCHAR, NVARCHAR o NTEXT, que son distintos a los CHAR, VARHCAR o TEXT. Varchar equivale a Variable-Lenght Character String, es decir, una cadena de caracteres de tamaño variable. NVARCHAR, no es mas que un VARCHAR Unicode, es decir, un VARCHAR que soporta caracteres de 2 bytes, la idea de este tipo de datos es el poder soportar caracteres que no hacen parte del idioma ingles, como por ejemplo, querer guardar nombres en Ingles y en Japonés, o en Mandarín… En conclusión, la letra N que se antepone a las cadenas de caracteres, simplemente convierten la cadena en UNICODE (Estándar de la industria). Unicode permite garantizar el estándar de escritura, ya que en Unicode existe una representación numérica única para cada carácter. Ejemplo 01  : DECLARE @n NVARCHAR(10) SET @n = 'ā' PRINT @n SET @n = N 'ā...
Leer más

MYSQL : CURSORES

CURSORES EN MYSQL Ejemplo de un procedimiento almacenado con uso de cursor : DELIMITER // CREATE PROCEDURE mejor_vendedor(fecha_inicio DATE, fecha_final DATE) BEGIN -- Declaración de variables DECLARE ID_VENDEDOR INT; DECLARE ACUMULADO_VENTAS INT; DECLARE TEMPV INT DEFAULT 0; DECLARE TEMPID INT DEFAULT 0; -- Definición de la consulta /* No significa que el objeto cursor_edad vaya a guardar los datos de la consulta a la cual esta referenciando. Lo que hace es apuntar a la dirección de memoria del primer resultado de dicha consulta. Si tienes conocimientos en C++ se te hará mas fácil comprender esta interpretación. */ DECLARE mejor_vendedor_cursor CURSOR FOR SELECT V.IDVENDEDOR,SUM(DF.UNIDADES*DF.PRECIO) FROM VENDEDOR AS V INNER JOIN FACTURA AS F ON V.IDVENDEDOR = F.IDVENDEDOR  AND (F.FECHA BETWEEN fecha_inicio AND fecha_final) INNER JOIN DETALLEFACTURA AS DF ON F.IDFACTURA = DF.IDFACTURA GROUP BY V.IDVENDEDOR; -- Declaración de un manejador de error t...
Leer más

SQL SERVER : EJECUTAR UN PAQUETE SSIS

Existe 4 formas diferentes de ejecutar un paquete SSIS, las cuales van desde crear una aplicación en .NET hasta ejecutar procedimientos almacenados. A continuación veremos cuales son: Programando en .NET: Utilizando el espacio de nombres Microsoft.SqlServer.ManagedDTS , se puede programar una aplicación que ejecute un paquete de SSIS. El problema, para nosotros es que solamente se puede ejecutar paquetes de forma local, o sea, que estén en el mismo servidor donde se encuentre aplicación. Ejemplo: pueden ver un ejemplo aquí: http://msdn.microsoft.com/en-us/library/ms403355.aspx . Usar la utilidad DTExec.exe: Este es un programa que a través de línea de comando es posible ejecutar un paquete SSIS, pueden ver los distintos parámetros aquí: http://msdn.microsoft.com/en-us/library/ms162810.aspx . Igual que la forma anterior solamente se puede ejecutar de manera local. Usar SQL Agent: Usando el procedimiento almacenado “sp_start_job”, se puede ejecutar un job el cual puede ejecutar ...
Leer más