Visual Basic - Como abrir una makro una sola vez

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

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