él codigo de guardado es:
Código:
Código:
El problema es que utilizando dicho código, la misma mantiene el formato de tamaño de las celdas, no copia las celdas ocultas (que está mal, pues yo en realidad querría mantenerlas ocultas, no eliminarlas) por lo que el nuevo archivo no posee las fórmulas del anterior.ActiveSheet.Unprotect 'Desprotejo Hoja
Range("A1:T98").SpecialCells(xlCellTypeVisible).Copy
Workbooks.Add
'Range("A1:T98").PasteSpecial Paste:=xlPasteColumnWidths
ActiveSheet.Range("A1:T98").PasteSpecial Paste:=xlPasteColumnWidths
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=rutaCompleta & nombreCliente & Fecha & ".XLSX"
ActiveWorkbook.Close
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 'Vuelvo a protegerla
Si alguien tiene una idea, genial!
Muchas gracias!
Pablo


