Làm sao để có thể gỡ bỏ UserForm/Module trong 1 project bằng code từ Userform khác?

[bLAcK-sKuLL]

1. Làm sao để có thể gỡ bỏ (remove) UserForm hoặc Module trong cùng project bằng code từ UserForm khác. Tôi đang lập trình trong EXCEL và tôi muốn làm việc này vì tôi không muốn có một số code trong file trước khi giao cho người khác (nhưng không phải là xóa tất cả code trong file này mà chỉ một số UserForm và Module thôi).

2. Có cách nào (hoặc đoạn code nào) có thể lấy đc thông tin CPU serỉal không ?

Cảm ơn các bạn đã đọc bài, rất mong được sự giúp đỡ ...

Nhắc nhỡ: Lần sau bạn đến nơi này, nếu số bài của bạn vẫn còn dưới 30
http://giaiphapexcel.com/forum/forumdisplay.php?f=89

 

[Po_Pikachu]

CPU serial thì không biết có phải cái này không? (mục #6).

 

[PhanTuHuong]

Bạn tham khảo thêm hàm này nhé:

Public Function GetHDSerialNumber() As String()
    Dim arrComputers() As String
    Dim strComputer As Variant
    Dim objWMIService As Object
    Dim colItems As Object
    Dim objItem As Object
    Const wbemFlagReturnImmediately = &H10
    Const wbemFlagForwardOnly = &H20
    Dim arHD() As String
    Dim i As Integer


    On Error Resume Next
    
    arrComputers = Array(".")
    For Each strComputer In arrComputers
       Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
       Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PhysicalMedia", "WQL", _
                                              wbemFlagReturnImmediately + wbemFlagForwardOnly)
                                              
       For Each objItem In colItems
          Debug.Print "SerialNumber: " & objItem.SerialNumber
          Debug.Print "Tag: " & objItem.Tag
          Debug.Print
            ReDim Preserve arHD(i)
            arHD(i) = Trim(objItem.SerialNumber)
            i = i + 1
        Next
    Next

    GetHDSerialNumber = arHD
    
    Set colItems = Nothing
    Set objWMIService = Nothing
    
End Function

 

[voda]

Code xóa module:

Sub DeleteModule()
   Dim wb As Workbook
   Set wb = ActiveWorkbook
   wb.VBProject.VBComponents.Remove wb.VBProject.VBComponents("module1")
End Sub

Code xóa form:

Sub DeleteUserform()
   Dim wb As Workbook
   Set wb = ActiveWorkbook
   wb.VBProject.VBComponents.Remove wb.VBProject.VBComponents("Useform1")
End Sub

 

[bLAcK-sKuLL]

Cảm ơn các bạn đã giúp đỡ !

To VODA: tôi đã làm theo code của bạn đưa ra, tuy nhiên nó báo lỗi như sau: "Run-time error 1004: Programmatic access to Visual Basic Project is not trusted" nên vẫn chưa thực hiện được

To MOD: cảm ơn bạn đã move bài để trở thành chủ để trong diễn đàn này, quả thực tôi cũng đã biết diễn đàn từ lâu, tôi đã học hỏi rất nhiều ngay từ những ngày đầu viết code cho đến bây giờ đã viết thành 2 sản phẩm hữu dụng cho riêng mình và nội bộ cơ quan công tác.

Tuy nhiên do tính bảo mật trong VBA của EXCEL quá yếu nên chỉ dám sử dụng nội bộ tại cơ quan mà thôi. Chứ thực lòng muốn chia xẻ với các bạn nhiều lắm nhưng chỉ ngại có một số người chỉ thích chiếm dụng thành quả lao động của người khác mà thôi.

Do vào diễn đàn cũng chỉ đọc, xem và tự mò mẫm theo các ví dụ của các bạn nên cũng đã không đăng ký thành viên của diễn đàn từ đầu. Chính vì thế nên số bài gửi rất ít, tuy nhiên tôi cũng sẽ cố gắng đóng góp nhiều hơn cho diễn đàn trong phạm vi kiến thức mình biết được.

Một lần nữa cảm ơn các bạn đã giúp đỡ !

 

[tedaynui]

Cảm ơn các bạn đã giúp đỡ !

To VODA: tôi đã làm theo code của bạn đưa ra, tuy nhiên nó báo lỗi như sau: "Run-time error 1004: Programmatic access to Visual Basic Project is not trusted" nên vẫn chưa thực hiện được

Bạn muốn thao tác trên Module thì trong Excel, bạn chọn Tools / Macro / Sercurity / bạn chọn Tab Trusted Publishers và chọn True 2 ô check box bên dưới và OK

TDN

 

[bLAcK-sKuLL]

Bạn muốn thao tác trên Module thì trong Excel, bạn chọn Tools / Macro / Sercurity / bạn chọn Tab Trusted Publishers và chọn True 2 ô check box bên dưới và OK

TDN

Cảm ơn bạn, vậy là vấn đề Form và Module đã đc giải quyết, nhưng còn 1 vấn đề nhỏ nữa là code trong sheet và trong "ThisWorkbook" còn code, như vậy có cách gì remove nó đc ko vậy ?

Một vấn đề nữa, là để chọn True 2 ô check box trong Tab Trusted Publishers có code viết trong VBA ko vậy bạn ?

Cảm ơn các bạn đã giúp đỡ ...

 

[voda]

Bạn đọc theo đường dẫn sau:
http://www.giaiphapexcel.com/forum/showthread.php?t=8138