[Cần trợ giúp]! Bỏ ẩn module file Excel (2 người xem)

[Mr.hieudoanxd]

Chào các anh chị trong diễn đàn!
Em có tập tành thử ẩn module trong excel. Ẩn thủ công thì em có thể phục hồi bằng HxD được. Chiều nay giở trời như thế nào em lại ẩn module File excel của em dạng Addin đang xây dựng dở bằng Tool ngoài. Em không Lưu file BackUp, kết quả là bây giờ chính bản thân em cũng không bỏ ẩn được để tiếp tục phát triển file tiếp theo. Em có nhớ tên các module trong file không biết có phục hồi lại được không? Nhờ các anh chị trong diễn đàn giúp đỡ.
Em đính kèm 1 file rút gọn chuyển về xlsm (các dữ liệu về classmodule, useform và XML em đã xóa đi) nhờ các anh chị bỏ ẩn module giúp em
Kèm theo hình ảnh của file backup 1 tháng trước có tên các module( so với tháng này có thêm, bớt một vài module)

 

[befaint]

File em gửi không có module nào cả.

 

[Mr.hieudoanxd]

File em gửi không có module nào cả.

View attachment 302355View attachment 302356

Rất cảm ơn anh đã quan tâm bài viết. Có thể do em xóa hết useform, class đi dẫn đến việc khởi chạy lỗi và thành ra xóa hết. em upload lại bản này em đã để lại các useform, class. Nhờ anh giúp đỡ

 

[hhoang_56]

File ở #1 theo chủ thớt là không có backup và có thể đã xóa userform và class. Thế file ở bài #3 ở đâu ra??

 

[Mr.hieudoanxd]

File ở #1 theo chủ thớt là không có backup và có thể đã xóa userform và class. Thế file ở bài #3 ở đâu ra??

là file đã ẩn module em xóa các nội dung đi thôi. em đang phát triển dở nhưng ẩn đi rồi không mở ra thì phát triển tiếp kiểu gì được?

 

[huuthang_bd]

Bạn có lưu code của module nào để chứng minh là chủ sở hữu không?
--

 

[Mr.hieudoanxd]

Bạn có lưu code của module nào để chứng minh là chủ sở hữu không?

Cảm ơn anh đã phản hồi!
Về module, ngoại trừ mdlMain, mdlRibbon, mdlFunction là 3 cái em phát triển nhiều trong 1 tháng vừa rồi, các module khác cơ bản giống như file cũ, anh cần module nào em post luôn ạ

 

[huuthang_bd]

Cảm ơn anh đã phản hồi!
Về module, ngoại trừ mdlMain, mdlRibbon, mdlFunction là 3 cái em phát triển nhiều trong 1 tháng vừa rồi, các module khác cơ bản giống như file cũ, anh cần module nào em post luôn ạ

Bạn gửi code module mdlSetUpReferences thử nhé.

 

[Mr.hieudoanxd]

Em gửi anh

#If VBA7 Then
    Const RefFile As String = "C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB" 'Chèn thý viêòn VBIDE
#Else
    Const RefFile As String = "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB"
#End If

Sub SetUpReferences()
    On Error Resume Next
    Dim ref, check_existsRef As Boolean
    
    check_existsRef = False
    
    For Each ref In ThisWorkbook.VBProject.References
        If ref.name = "VBIDE" Then check_existsRef = True
    Next ref
    
    If check_existsRef = False Then ThisWorkbook.VBProject.References.AddFromFile RefFile
End Sub

Private Sub ChangeVBOM()
  Dim RegKey As String
 
  RegKey = "HKEY_LOCAL_MACHINE\Software\Microsoft\Office\" & Application.version & "\Excel\Security\AccessVBOM"
 
  CreateObject("WScript.Shell").RegWrite RegKey, 1, "REG_DWORD"
 
End Sub

Private Function IsVBATrusted() As Boolean
 
  Application.Volatile
 
  On Error Resume Next
 
  IsVBATrusted = Not ThisWorkbook.VBProject Is Nothing
 
End Function

 

[huuthang_bd]

là file đã ẩn module em xóa các nội dung đi thôi. em đang phát triển dở nhưng ẩn đi rồi không mở ra thì phát triển tiếp kiểu gì được?

Kiểm tra hộp thư nhé.
Không biết là bạn thử hay thật, nếu là thật thì rút kinh nghiệm sâu sắc vấn đề sao lưu dữ liệu nhé.

 

[Mr.hieudoanxd]

Kiểm tra hộp thư nhé.
Không biết là bạn thử hay thật, nếu là thật thì rút kinh nghiệm sâu sắc vấn đề sao lưu dữ liệu nhé.

Cảm ơn anh @huuthang_bd nhiều!. nguyên nhân của em nó khá củ chuối. Trong addin của em có 1 sub chạy khi mở addin, nó tự chép add in vào thư mục XLSTART. Khi em ẩn module xong, em mở file và kết quả là nó ghi đè lên file addin gốc em đang làm. Mà em để back up tận 1 tháng trước.
Được 1 bài học nhớ đời anh ạ. Kiểu này chắc sao lưu liên tục quá!