GUARDAR UNA HOJA EN DOCUMENTO NUEVO AL SALIR

En espera de una mejor idea revisa este codigo por mientras :)

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


Nota:

Si la hoja con proteccion realizas cambios y nos los guardas te marcara
error al intentar guardarlo con esta macro ya que esta protegida y no se le
ha quitado dicha proteccion :)

hola francisco !!

muchas gracias por tu respuesta y disculpas por la demora en el
agradecimiento\

estuve probando el código que me pasaste 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 disculpa 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 por tu ayuda

un abrazo\

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