alejandro_de

Abraham Valencia respondió: Pues desprotege y protege por código y listo: ACtivesheet. UnProtect "clave" 'Aqui borras o haces lo que desees ActiveSheet. Protect "clave" Abraham

Elsa Matilde respondió: Te completo el tema (trabajé sobre la rutina original, solo tomá las nuevas líneas) : Sub guardacopia() Dim nbre As String ActiveSheet.Range("A1").Select nbre = ActiveSheet.Range("A1") 'ajustar la cadena (**) ActiveSheet.Copy Set wb = ActiveWorkbook...

Elsa Matilde respondió: Te dejo una rutina extraída de mi manual 400MacrosPlus (*) Entrás al Editor, insertás un módulo y allí la copias. Luego dibujá en tu hoja el botón para asignarle esta rutina. Sub guardacopia() Dim nbre As String activesheet.Range("A1").Select nbre =...