Acción al abrir un archivo Excel

Entrada núm: 1 of 4 de la serie Editor de programacion

Nos proponemos establecer un control que fuerce a la ejecución de una acción al abrir un archivo de Excel. Cada vez que se abra el archivo debe incrementarse el valor de una celda que posteriormente se leerá para añadirse al nombre de archivo en el proceso de guardado que se activará al hacer click en un botón creado al efecto. En segundo lugar es necesario que al abrir el archivo, Excel identifique al usuario, y en el caso particular de que se trate de “User A” (o del nombre de usuario que se elija en la celda habilitada al efecto) se le restrinja la zona en la que puede actuar. La última tarea es replicar un rango de celdas en forma de tabla al hacer click en otro botón que desencadenará la acción de copia, justo debajo de la tabla anterior.

Código en el módulo ThisWorkbook:

 2.-Para proteger la hoja y dejar habilitadas para editar sólo unas ciertas celdas en las que puede trabajar el usuario “User A”, definimos a esas celdas con el nombre rngUserA y en el listado de código anterior ya tenemos las sentencias que nos van a identificar al usuario y efectuar la protección en caso de que:

nomUser = Hoja1.Range(“nomUserA”).Value

Queremos también que al pulsar un determinado botón creado al efecto, el archivo se guarde en una cierta ubicación y se añada al nombre del mismo el número incrementado en la apertura del archivo. Para esto habilitaremos un módulo en el editor VBA y colocaremos el siguiente código:

que se deberá activar con el click del botón.

3.-Y finalmente para replicar el rango formado por un conjunto de celdas al click de otro botón, hemos preparado el siguiente código, insertado en otro módulo:

El número 16384 es el número de filas que existía en Excel 97, y lo hemos puesto así para que funcione incluso en esa versión, pero se puede aumentar en caso de necesidad.

Series NavigationFormulario para entrada de datos >>

Comments

So empty here ... leave a comment!

Deja tu comentario aquí:

Sidebar



A %d blogueros les gusta esto: