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
Hola buen dia a todos...
De antemano, se que las macros no funcionan bien cuando se comparte un libro...
Tengo una proteccion de hoja basica desde VBA:
Private Sub Worksheet_Activate()
ActiveSheet.Protect Password:="contraseña"
End Sub
El problema es que al compartir el libro no hay opcion para desproteger la hoja...
No se que pueda hacer... quiero que se siga ejecutando esa instruccion pero con el libro compartido
Saludos!!!