Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Por
dorgelis, · publicado
Buenos días,
Buscando una solución a mi problema y no he encontrado ninguno con respuesta. Tengo 10 archivos para distintos usuarios, cada uno con su contraseña.
Los archivos están vinculados entre si y lo que quiero es que cuando abra uno, no me pida las contraseñas del resto de usuarios.
Estoy intentando programar la macro:
Sub Abrir()
Dim Libro As Workbook
Set Libro = Workbooks.Open(Filename:="C:\Directorio\Libro.xls", UpdateLinks:=1, Password:="qaz", WriteResPassword:="qaz")
End Sub
He empezado con archivo 1 vinculado a archivo 2, para que cuando abra archivo 1 no me pida la contraseña del archivo 2
Tengo dos problemas
Pero con este ejemplo, al abrir el archivo 1 me pide la contraseña del archivo 2, es como si no se ejecutara la macro
Una vez abierto ejecuto la macro y entonces me abre el archivo 2. No quiero que me abra el archivo 2, si no que se actualice sin abrirlo.
Muchas gracias con antelación