GUARDAR HOJA EN DOCUMENTO NUEVO AL SALIR

Hola.
De momento la unica solucion que se me ocurre viable es por script.
Por ahora me encuentro en la ofi asi que no tengo el codigo necesario para
realizarlo :)

Saludos

francisco:

muchas gracias por tu respuesta\ a que te refieres con script?\ disculpa mi
ignorancia pero no entiendo nada de codigo :((

el código que me enviaste funciona excepto las salvedades que indiqué\

vuelvo a agradecerte tu ayuda\

un abrazo

dorian+



"Francisco Parrilla" escribió
en el mensaje news:

Hola.
De momento la unica solucion que se me ocurre viable es por script.
Por ahora me encuentro en la ofi asi que no tengo el codigo necesario para
realizarlo :)

Saludos

Carpeta
Descripción
Dirección

1
** Microsoft Excel *
http://esnips.com/web/GabrielRaigosa

2
Archivos para usar en clase
http://esnips.com/web/RaigosaClase

3
Fechas y Horas
http://esnips.com/web/RaigosaFechasHoras

4
Formato y Formato Condicional
http://esnips.com/web/RaigosaFormatos

5
Foro Excel
http://esnips.com/web/ForoExcel

6
Funciones de Busqueda
http://esnips.com/web/RaigosaBusqueda

7
Funciones de Texto
http://esnips.com/web/RaigosaTexto

8
Funciones Financieras
http://esnips.com/web/RaigosaFinancieras

9
Funciones Logicas
http://esnips.com/web/RaigosaLogicas

10
Graficos con Excel
http://esnips.com/web/RaigosaGraficos

11
Grupo (Sabados)
Privado

12
Grupo (Viernes)
Privado

13
Grupo Excel Septiembre
Privado

14
Juegos con Excel
http://esnips.com/web/RaigosaJuegosExcel

15
Macros con Excel
http://esnips.com/web/Macros-con-Excel

16
Manuales Excel
http://esnips.com/web/RaigosaManuales

17
Paginas WEB
http://esnips.com/web/RaigosaPaginasExcel

18
Practicas - XLS
http://esnips.com/web/RaigosaPracticasXLS

19
Tablas Dinámicas
http://esnips.com/web/RaigosaTablasDinamicas

20
TEST
http://esnips.com/web/GabrielRaigosa-test

21
Validación
http://esnips.com/web/RaigosaValidacion

22
Varios
http://esnips.com/web/RaigosaVarios

23
VBA - Visual Basic para Aplicaciones
http://esnips.com/web/RaigosaVBA



Gabriel Raigosa
http://esnips.com/web/Raigosa
http://esnips.com/web/ForoExcel
"Dorian" <flacopado(ESTONOVA)@yahoo.fr> escribió en el mensaje
news:%
| hola grupo !!
|
| hace unas semasn hice esta consulta en este mismo foro (como guardar una
| hoja de un libro de excel como unica hoja en otro libro (nuevo) y con una
| password) a lo que francisco parrilla me respondió muy amablemente con el
| código que copio debajo :)))
|
| lo estuve probando (el código) y funciona bien siempre y cuando la hoja en
| cuestión no esté oculta (que sí lo está :(( y otro problema es que esta
hoja
| oculta (la de totales) tiene fórmulas que hacen referencia a las otras
hojas
| del libro (ventas) por lo que al copiarse (crearse) en un libro nuevo los
| datos quedan vinculados al libro de origen (ventas)\ esto es un problema
| porque este nuevo libro se envia por mail y los destinatarios no tienen el
| archivo ventas\ habria que hacer algo como copy y pegado especial
(valores)
| en el nuevo libro, no?
|
| espero haberme explicado sin marearte ;)
|
| otra cosa, y disculpas por el abuso, en caso de que el archivo que genera
| existiera ya en el directorio de destino, se podría hacer que directamente
| lo reemplace por el nuevo sin hacer la pregunta de si deseamos reemplazar
el
| archivo existente?
|
| desde ahora, muchas gracias a quien pueda ayudarme con este problema\
|
| un abrazo para todos\
|
| dorian+
|
|
|
| Private Sub Workbook_BeforeClose(Cancel As Boolean)
| Application.DisplayAlerts = False
| Application.ScreenUpdating = False
| Sheets(1).Select ' La hoja con proteccion
¿#
| 1?
| Sheets(1).Copy
| ActiveWorkbook.Saved = True
| ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
| Scenarios:=True
| ActiveWorkbook.SaveAs Filename:="C:\" & "Copia" & Name,
| FileFormat:=xlNormal _
| , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
| CreateBackup:=False
| ActiveWorkbook.Save
| ActiveWorkbook.Close
| Application.DisplayAlerts = True
| Application.ScreenUpdating = True
| End Sub
|
|