Necesito poner un contador en excel
Necesito poner un contador en un archivo de excel, que controle las veces que se abre, controle las veces que se graba y saber así cuantas veces ha sido modificado.
Es netamente un control interno que necesito hacerlo ya que luego de elaborada la hoja base siempre hay manos negras me cambian o borran celdas.
En lo posible tiene que ser algo no visible para los usuarios de ese archivo.
O que me sugieren...
Desde ya muchas gracias
Es netamente un control interno que necesito hacerlo ya que luego de elaborada la hoja base siempre hay manos negras me cambian o borran celdas.
En lo posible tiene que ser algo no visible para los usuarios de ese archivo.
O que me sugieren...
Desde ya muchas gracias
1 Respuesta
Respuesta de Elsa Matilde
1
Selecciona una col que sabrás que nadie accederá a ellas, por ej la col Z y ocultala (menú Formato, Columnas, Ocultar)
Ahora desde el Editor, seleccioná el objeto ThisWorkbook (o Este libro) y allí copiá estas rutinas:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Hoja2").Range("Z1").Value = Sheets("Hoja2").Range("Z1").Value + 1
End Sub
Private Sub Workbook_Open()
Sheets("Hoja2").Range("Z2").Value = Sheets("Hoja2").Range("Z2").Value + 1
End Sub
La primera será para contar las veces que se guardan y la 2da controla las aperturas.
Saludos
Elsa
PD) Todo sobre programación en:
http://es.geocities.com/lacibelesdepunilla/manual_VBA
http://galeon.com/aplicaexcel
Ahora desde el Editor, seleccioná el objeto ThisWorkbook (o Este libro) y allí copiá estas rutinas:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Hoja2").Range("Z1").Value = Sheets("Hoja2").Range("Z1").Value + 1
End Sub
Private Sub Workbook_Open()
Sheets("Hoja2").Range("Z2").Value = Sheets("Hoja2").Range("Z2").Value + 1
End Sub
La primera será para contar las veces que se guardan y la 2da controla las aperturas.
Saludos
Elsa
PD) Todo sobre programación en:
http://es.geocities.com/lacibelesdepunilla/manual_VBA
http://galeon.com/aplicaexcel
