ayuda con macro de excel en vb

hola, fabian !

... una carta en excel ... ponerle un numero en la parte superior que se incremente cada vez que se abra el archivo.

copia las siguientes lineas en el modulo de codigo del libro [ThisWorkbook]...
=>cambia el nombre de la hoja y la celda a las 'reales'<= ;)
Private Sub Workbook_Open()
With Worksheets("Hoja1").Range("a1")
.Value = .Value + 1
End With
Me.Save
End Sub

saludos,
hector.

Hola Fabia y Hector,
Aunque con el contador que indica Hector, tendras la
certeza de saber cuantas vecez se ha habierto el archivo,
como evitarias que alguien lo copie con otro nombre y lo
habra una infinidad de vecez?

Tal vez deberias agregar una instruccion como:
If Thisworkbook.Name <> "MiLibro.xls" then
Cierre el libro o algo asi
End If

Claro que esta solucion tampoco imperira que el archivo
sea abierto una infinidad de vecez en otro equipo.

Tambien cabe la posibilidad que el usuario abra el
archivo y modifique el valor de la celda contador.

Aca hay todo un dilema.

Saludos,

Henry

hola, fabian !

... una carta en excel ... ponerle un numero en la

parte superior que se incremente cada vez que se abra el
archivo.

copia las siguientes lineas en el modulo de codigo del

libro [ThisWorkbook]...

=>cambia el nombre de la hoja y la celda a

las 'reales'<= ;)

Private Sub Workbook_Open()
With Worksheets("Hoja1").Range("a1")
.Value = .Value + 1
End With
Me.Save
End Sub

saludos,
hector.
.

hola, Henry !

... como evitarias que alguien lo copie con otro nombre y [...]
... una instruccion como [...] If Thisworkbook.Name <> "MiLibro.xls" then [...]
... que ... tampoco impedira que el archivo sea abierto una infinidad de veces en otro equipo.
... cabe la posibilidad que el usuario ... modifique el valor de la celda contador.
... hay todo un dilema.

'empezando' por la 'regla basica': y... ¿si se abre 'SIN PERMISO' de usar las macros????? <\×.×/>
recuerda que... 'para un madrugador... otro que no duerme'
[habria que 'ver'... ¿cual es 'el bueno'?] ;)

saludos,
hector.