¿Cómo abrir nuevo libro con contraseña?
Encontré gracias a este foro una macro que copia de una hoja origen a una hoja destino una fila de datos, mi problema inicia cuando trato de abrir automáticamente la hoja destino pero esta contiene una contraseña ya que esta fungirá como base de datos externa. ¿Sabrán cómo realizarlo?
Sub CopiarCeldas()
'Se definen objetos a utilizar
Dim wbDestino As Workbook, _
wsOrigen As Excel.Worksheet, _
wsDestino As Excel.Worksheet, _
rngOrigen As Excel.Range, _
rngDestino As Excel.Range
'Libro Excel destino
Set wbDestino = Workbooks.Open("E:\ultimo\BASE-DE-DATOS2.xlsx")
'Activarlo
ThisWorkbook.Activate
'Se indican las hojas de origen y destino
Set wsOrigen = Worksheets("CAUSAS")
Set wsDestino = wbDestino.Worksheets("Hoja1")
'Inicializar los rangos de origen y destino
Set rngOrigen = wsOrigen.Range("A8")
u = wsDestino.Range("A" & Rows.Count).End(xlUp).Row + 1
Set rngDestino = wsDestino.Range("A" & u)
'Se selecciona rango de celdas origen
rngOrigen.Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
'Pegar datos en celda destino
rngDestino.PasteSpecial xlPasteValues
Application.CutCopyMode = False
'Guardar y cerrar el libro destino
WbDestino. Sabe
WbDestino. Close
End Sub
