Nhờ các Bác giúp sửa lỗi run-time error '1004'

[salam]

Em copy đoạn code dưới về sử dụng nhưng khi chạy nó báo lỗi. Mong các Bác giúp em với.

Option Explicit
Sub ListForms()
    Dim x As String
    Dim vbc As vbide.VBComponent
    [COLOR=Red]For Each vbc In ThisWorkbook.VBProject.VBComponents[/COLOR]
        If vbc.Type = vbext_ct_MSForm Then
            Debug.Print vbc.Name
            x = x & vbCr & vbc.Name
        End If
    Next vbc
    If x = "" Then
        MsgBox "No UserForms created."
        Exit Sub
    End If
    MsgBox x
End Sub

 

[solomon2211]

Mình đâu thấy lỗi gì đâu

 

[salam]

Mình đâu thấy lỗi gì đâu

Khi chạy nó báo lỗi dưới.

 

[hoangvuluan]

Bạn vào [Tools]\Macro\Security\Trusted Publishers\
Check vào [ ] Trust access to Visual Basic Project

 

[salam]

Bạn vào [Tools]\Macro\Security\Trusted Publishers\
Check vào [ ] Trust access to Visual Basic Project

Cám ơn Bác nhiều. Em làm được rồi.

 

[le tin]

Bạn vào [Tools]\Macro\Security\Trusted Publishers\
Check vào [ ] Trust access to Visual Basic Project

Bạn giải thích giúp,mặc định nó không check như vậy khi nào thì bị lỗi đó

 

[hoangvuluan]

Giải thích cách dùng Trust access to Visual Basic Project

Bạn giải thích giúp,mặc định nó không check như vậy khi nào thì bị lỗi đó

Chúng ta chẹck vào nút [ ] Trust access to Visual Basic Project
để cho phép các macro có thể xâm nhập vào các project trong VBA. Ví dụ, vì trong code của bạn Salam có đoạn:

Dim vbc As [COLOR=red]VBIde.VBComponent
[/COLOR][COLOR=black]    For Each vbc In ThisWorkbook.[COLOR=red]VBProject[/COLOR].VBComponents[/COLOR]
[COLOR=black]

[/COLOR]

truy xuất vào thành phần của VBA.