Contraseña de apertura del código fuente de 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)<>""y a(0)< ; gt cell(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...

Finalizar conector

¿Estás ¿Seguro que no hay uno? ¿Por qué puedo realizar la prueba?