Ante todo les quiero compartir que gracias a la ayuda de este Excelente foro e logrado un pequeño programa para la empresa que trabajo y eso genero que los formulario no se realizan mas en papel si no desde la Calc Open Office, a este plantilla de calc también le agregue una macro que solicita usuario y contraseña de los trabajadores que están autorizados a crear los formulario, (aclaro que no se mucho de programación todo lo implemente con lo poco que se de informática y leer mucho... pero mucho!!).
Todo funciona mas que excelente pero quiero agregar algo nuevo, eso seria que cuando abren el archivo Calc y le solicita Usuario y contraseña esos datos quiero que queden en una archivo .TXT con hora y fecha de que usuario entro por ultima vez, logre crear el archivo txt con los datos de quiero pero lo que no puede hacer es que se genere varios datos solo en el .txt registra el ultimo usuario que uso el archivo, la idea es que me quede un registro.
Comparto el código, hasta el momento:
Código: Seleccionar todo
rem declaro variables para crear la escritura en txt
Dim Intru As Object
Dim Archivo As Object
rem utilizo el metodo que escribe el archivo
Intru = CreateObject("Scripting.FileSystemObject")
rem crear archivo y lo graba en la dirreccion que queremos
Archivo = Intru.CreateTextFile("C:\Users\Ruta\pruebas nuevas\Registro.txt", True)
rem escribo dentro del archivo los datos de las variables que quiero obtener y agrego un dato mas que es la fecha.
Archivo.WriteLine( sUser & " / " & sDato & " - " & Now());
Archivo.Close()
Saludos