GUARDAR HOJA EN DOCUMENTO NUEVO AL SALIR

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