Macro que oculte libro al cierre
Para Dante Amor. Quisiera saber qué código se emplea para ocultar (no visualizar) libro excel al cierre del mismo.
1 respuesta
Respuesta de Dante Amor
1
No entiendo, por qué vas a ocultar el libro si ya lo estás cerrando, pero estas son las instrucciones:
En el evento de thisworkbook, pon lo siguiente:
Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Por.Dante Amor nom = ThisWorkbook.Name Application.Windows(nom).Visible = False End Sub
Para mostrar nuevamente el libro:
nom = ThisWorkbook.Name Application.Windows(nom).Visible = True
Si quieres ocultar todo excel
Sub OcultarExcel() Application.Visible = False End Sub
Mostrar excel
Sub MostrarExcel() Application.Visible = True End Sub
No. Lo que quiero es que ni siquiera pueda ser visto almacenado en el ordenador. Ahora conforme están los códigos si es posible visualizarlo cuando lo busco en el PC
Sigo sin entender lo que necesitas.
Quieres cambiarle el atributo del archivo, es decir, ¿cambiar el atributo de archivo a oculto?
Utiliza el siguiente código:
Sub PonerOculto()
'Por.Dante Amor
With CreateObject("scripting.filesystemobject")
With .GetFile("C:\trabajo\a.pdf")
.Attributes = .Attributes + 2
End With
End With
End SubPrueba también con esto:
Sub PonerOculto()
'Por.Dante Amor
arch = ThisWorkbook.FullName
With CreateObject("scripting.filesystemobject")
With .GetFile(arch)
.Attributes = .Attributes + 2
End With
End With
End Sub
