Forums Últimos mensajes - Powered by IBM
 

GUARDAR UNA HOJA EN DOCUMENTO NUEVO AL SALIR

14/08/2006 - 23:20 por dorian | Informe spam
hola !!

necesito que al salir del libro con el que estoy trabajando guarde una
copia de una hoja (que está oculta) con el nombre "hojaoculta" como un
libro nuevo (de esa única hoja) y la palabra de acceso (password)
"palabradeacceso" en el directorio: "c:utadeacceso"
.
es posible?... alguien me podría decir como hacerlo ?
.
desde ya muchas gracias a los que me den una mano para solucionarlo
.
un abrazo a todos !!
.
dorian+
.
p.s. aahh!!! uso xp ;)
 

Leer las respuestas

#1 Francisco Parrilla
15/08/2006 - 06:19 | Informe spam
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 :)

Preguntas similares