Visual Basic - Como abrir una makro una sola vez

Life is soft - evento anual de software empresarial
   
Vista:

Como abrir una makro una sola vez

Publicado por ignacio (16 intervenciones) el 06/12/2012 15:35:06
Buenas, tengo esta makro de una consulta como ejemplo con la que estoy trabajando e intentando averiguar, y me gustaria abrirla solo una vez al abrir el documento y que za no se pudiera aplicar mas veces, solo la primera vez que se abre el documnento, estaria agradecido si alguien pudiera contestar.

Sub prueba()
'
' prueba Macro
'

'
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[1],'[Ac Daten von M. Stacher.xls]Faktoren'!R2C1:R75C3,3,FALSE)"
ActiveCell.Offset(0, 1).Range("A1").Select
End Sub


Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Como abrir una makro una sola vez

Publicado por jcmg (518 intervenciones) el 08/12/2012 07:08:37
hola Ignacio, la idea de esto es crear una entrada en el registro, que sirva para verificar, si se abrio o no la macro, algo parecido al codigo de abajo.

Sub prueba()
set detener = createobject("wscript.shell")
'verificar la apertura de la macro
a = detener.regread("HKEY_LOCAL_MACHINE\software\mi macro\control")
if a = "" then
detener.regwrite("HKEY_LOCAL_MACHINE\\software\mi macro\control","cerrada","REG_SZ")
'
' prueba Macro
'

'
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[1],'[Ac Daten von M. Stacher.xls]Faktoren'!R2C1:R75C3,3,FALSE)"
ActiveCell.Offset(0, 1).Range("A1").Select
elseif a <> "" then
exit sub

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar