Cinta de opciones (RibbonX)

Estándar

Como es bien sabido a partir de la versión 2007, Microsoft agrego la cinta de opciones al Office, incluyendo a Excel, a muchos les disgusto el cambio ya que para entonces se podía ocultar, modificar y manipular la barra de menús y herramientas que proporcionaba Excel por medio de VBA. La cinta de opciones desplazo a la barra de menús y herramientas desde entonces.

Aun se puede recurrir a VBA para crear barras de menús y herramientas dentro de la cinta opciones pero no se aprovecha al máximo las prestaciones y personalización de la nueva cinta. Para poder programar la cinta y sacar ventaja de la misma en nuestras macros o aplicativos se puede utilizar Visual Studio u otras herramientas.

En este artículo no explicare como se programa la cinta, si no que les comparto el libro: “RibbonX for Dummies ” el cual explica y brinda números ejemplos para acceder y manipular la cinta de opciones.

Anuncios

Eliminar libro según fecha con VBA/Excel

Estándar

Borrar un libro según la fecha especificada

Una vez un amigo y colega mío me dijo:

-“Estoy a punto de salirme de trabajar y como desarrolle algunas macros que no me pagaron entonces les puse un candado para que dentro de dos meses dejen de funcionar…”

La idea no era mala, el se iba, dejaba las macros funcionando y semanas después de su partida las macros dejaban de funcionar, el pequeño inconveniente es que los archivos que contenían las macros se quedaban en las manos de su cliente y existen varias formas para acceder al código contenido en el libro. Una mejor estrategia hubiese sido que cada vez que se abriera el libro se verificara la fecha y dependiendo de la validación se eliminara el libro con todo y macros.

El siguiente código, muestra cómo eliminar el libro activo si la fecha del sistema es igual o posterior a una fecha especificada, dicho código va en el evento Open del libro.

NOTA: El libro eliminado no va a la papelera de reciclaje. Se elimina permanentemente.


Private Sub Workbook_Open()
Dim fecha As Date
Dim wb As Workbook

fecha = "20/09/2013" 'fecha de eliminacion del libro
Set wb = ThisWorkbook

If fecha <= Date Then
MsgBox "Se ha cumplido el periodo de prueba del libro!", vbExclamation

With wb
.Saved = True 'se estable como salvado
.ChangeFileAccess xlReadOnly 'se pone el acceso al libro como de solo lectura
Kill .FullName 'se elimina el libro
.Close 'se cierra el libro
End With
End If
End Sub

Libro de Programacion Python para Principiantes

Estándar

Navegando por internet me tope con este valioso libro en formato PDF. Tal como indica el titulo se trata de un libro dirigido para principiantes que quieran iniciarse en el mundo de la programacion a traves de Python.

El libro comienza desde lo mas basico… instalacion, conceptos de programacion, tipos de datos, entrada y salida de datos, iteradores, listas, diccionarios, funciones, archivos, excepciones, objetos, poo, interfaces graficas de usuario, sonido y animacion. Todo lo anterior a traves de ejemplos para desarrollar sencillos videojuegos en pyhon.

Un libro de 480 paginas.  Cabe señalar que el libro viene en ingles.

Python Programming for the Absolute Beginner