VBA Nhận được thông báo: Run-time error "70" Permission denied

[Tungnk]

Xin chào các thành viên của GPE, mình có tạo một userform và khi mình viết câu lệnh để gọi (.Show) thì có thông báo lỗi như trong ảnh ở bên dưới. Hiện tại mình dùng window10 Pro và mình thử mở userform này trên các máy tính khác chạy Window10 và 11 Pro (đều chạy ở tài khoản Admin) thì cũng nhận được thông báo như trong ảnh ở bên dưới. Mình đã tìm hiểu giải thích và khuyến nghị ở địa chỉ này https://docs.microsoft.com/en-us/of...ser-interface-help/permission-denied-error-70 nhưng mà vẫn chưa tìm ra nguyên nhân và giải pháp cho vấn đề này. Mình có upload cái file mà mình tạo lên đây để mong nhận được sự hỗ trợ của toàn thể các thành viên.
Mình xin chân thành cảm ơn!

 

[ptm0412]

Hoặc là xóa Property RowSource của listbox, hoặc là xóa câu lệnh gán ListBox1.List

 

[Tungnk]

Mình đã xóa thông tin ở RowSource trong bảng Property đi và chạy lại userform và không còn xuất hiện thông báo như vậy nữa. Cảm ơn pmt0412 rất nhiều nhé!

 

[ptm0412]

Mình đã xóa thông tin ở RowSource trong bảng Property đi và chạy lại userform và không còn xuất hiện thông báo như vậy nữa. Cảm ơn pmt0412 rất nhiều nhé!

Nhưng tại sao set ListBox1.List tới 10000 dòng? Sao không dùng Range("Data").Value?

 

[Nhật Anh 9x]

Nhưng tại sao set ListBox1.List tới 10000 dòng? Sao không dùng Range("Data").Value?

Em chào Anh!
Thưa Anh
Em dùng mảng thêm dữ liệu vào listbox, mà trong Rowsource của em không điền thông tin gì
Em nhận được lỗi run-time-error-70-permission-denied tại đoạn code UF2.LB_NK.List = arrData ạ!
Mong anh chỉ giúp em với ạ!

Sub Create_lisbox()
gan_bien
Dim arrData() As Variant
sh_nk.AutoFilterMode = False
lr_nk = sh_nk.Range("D" & Rows.Count).End(xlUp).Row

If lr_nk > 5 Then
arrData = sh_nk.Range("A5:W" & lr_nk).value
ReDim arrData(1 To lr_nk - 4, 1 To 23)

For i = 5 To lr_nk
For j = 1 To 23
arrData(i - 4, j) = sh_nk.Cells(i, j)
Next j
Next i
ElseIf lr_nk = 5 Then
Exit Sub
End If

UF2.LB_NK.Clear
UF2.LB_NK.ColumnCount = 23
UF2.LB_NK.ColumnWidths = "25;50;58;35;250;50;50;50;20;30;85;50;50;130;50;50;50;50;50;50;50;50;200"

UF2.LB_NK.List = arrData

Erase arrData

End Sub