Escribir password en un textbox emergente con una macro.
Buen dia a todos;
El problema es el siguiente, tengo una macro que copia una formula vlookup en una celda, pero el libro a donde va a buscar la información es un libro protegido en un sharepint, por lo cual, cada vez que se copia la formula en alguna celda se despliega el cuadro de solicitud de contraseña.
La solicitud es esta:
Si alguien tiene una macro que haga que cuando salga ese inputbox seleccione el campo que pide la contraseña y escriba el password y le de aceptar para que continué el proceso.
Si alguien tiene una macro que de verdad evite que salga ese cuadro de solicitud de contraseña, se lo voy a agradecer. (ya intente con Application.EnableEvents = False y no funciona, sigue saliendo ese cuadro.
Limitantes, se que seria muy sencillo poner el open file, pero el tema es que es un libro que no se debe de abrir al usuario ya que contiene información confiedencial, por eso solo mando llamar la información con un vlookup.
Sub CONSULTAV()
Application.EnableEvents = False
Range("C8") = "=A8*1"
Range("C4").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R8C3,'https://xxxxx/[0000.xlsx]Hoja1'!R3C2:R4000C7,2,0)"
'justo aquí cuando termina de escribir la formula pide el password del libro protegido que esta llamando
Range("C5").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R8C3,'https://xxxxx/[0000.xlsx]Hoja1'!R3C2:R4000C7,5,0)"
'justo aquí cuando termina de escribir la formula pide el password del libro protegido que esta llamando
Range("C6").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R8C3,'https://xxxxx/[0000.xlsx]Hoja1'!R3C2:R4000C7,3,0)"
Range("C7").Select
'justo aquí cuando termina de escribir la formula pide el password del libro protegido que esta llamando
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R8C3,'https://xxxxx/[0000.xlsx]Hoja1'!R3C2:R4000C7,4,0)"
Range("C9").Select
'justo aquí cuando termina de escribir la formula pide el password del libro protegido que esta llamando
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R8C3,'https://xxxxx/[0000.xlsx]Hoja1'!R3C2:R4000C7,6,0)"
'justo aquí cuando termina de escribir la formula pide el password del libro protegido que esta llamando
End Sub
