Ẩn File ngay sau khi File vừa mở

[ThichExcel]

Mình thấy cách "ngụy trang" này khá hay cho việc giấu các CSDL "Sống" mà tưởng như "Chìm", cách này mình hay làm vì đỡ phải trông thấy nhiều cửa sổ khi sử dụng. Cách viết rất đơn giản
Hãy vào Froject của File mà muốn có khả năng trên. Kích vào Thisworkbook và viết đoạn code

Private Sub Workbook_Open()
Application.ActiveWindow.Visible = False
End Sub

sau đó Save File đó lại và thử làm.
Khi bạn vừa mở lại File đó ra thì nó đã ngụy trang.
Muốn hiện của sổ của File đó bạn chọn menu window -> unhide -> Tên file
-----------------------------------------------------------------------
Nhưng mình muốn hỏi 1 vấn đề khó hơn là

Liệu cho nó "Tàng hình luôn" có được không, tức là ngay cả khi vào hộp thoại unhide ta cũng không thấy nó. Khi tắt EXCEL thì nó cũng tắt luôn.

Cám ơn các bạn

 

[OverAC]

File xla cũng có thể lưu dử liệu được nhưng làm việc với nó thì hơi cực một tí. Bác thử xem.
Hoặc là bác có thể điều chỉnh lại tí:

Activeworkbook.isaddin = True

--> lập tức mất tích không để lại dấu vết trong window-->unhide.

 

[ThichExcel]

Đa tạ đa tạ....
Đây chính là giải pháp mình cần
Đa tạ đa tạ....
Xin bạn cho hỏi thêm là với kiểu xla như vậy thì dung lượng File có ảnh hưởng đến tốc độ máy không

 

[PhanTuHuong]

File xla cũng có thể lưu dử liệu được nhưng làm việc với nó thì hơi cực một tí. Bác thử xem.
Hoặc là bác có thể điều chỉnh lại tí:

Activeworkbook.isaddin = True

--> lập tức mất tích không để lại dấu vết trong window-->unhide.

Khi thoát Excel có hỏi để lưu giữ không OverAC ơi?

 

[talata2010]

Anh chỉ giúp cho tới nơi tới chốn được không? em làm thử code rồi, đúng là ẩn file thiệt, nhưng không tìm thấy cách để mở ra lại. Em xóa đoạn mã vừa ghi vào và lưu lại, nhưng vẫn không được, do em không rành về VBA, chỉ đang tập tành thử mã để học hỏi. Xin cám ơn anh. Ah, đoạn mã mà ẩn luôn file đó, anh làm như thế nào, xin chỉ giúp.