Código fuente de contabilidad financiera Vba

Prueba esto.

Público a, b, c, d

Subsheet privado_SelectionChange (objetivo ByVal como rango)

i = 0

ReDim a( selección.count)

Para cada rngCell en la selección

a(i) = rngCell. Valor

i = i 1

Entonces

b = ActiveCell. fila

c = ActiveCell. cilindro

d = 1

Ajuste final

Subsheet_change privado (objetivo ByVal como rango)

si d = 1, entonces

d = d 1

p = 0

Si a(0) lt "" y a (0) gt celda ( b, c) Entonces

Si InputBox("Ingrese la contraseña de cambio:", "contraseña") = "a" entonces.

Fin

Otro

MsgBox "Contraseña incorrecta"

Si está seleccionado. Luego cuenta = 1

Celda(b,c) = a(0)

Otro

Para cada rngCell en la selección

rngCelda. Valor = a(p)

p = p 1

Entonces

Terminará si...

Terminará si ...

Terminará si...

Finalizar conector

¿Estás seguro? no hay nadie? ¿Por qué puedo realizar la prueba?