é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