Tự động thiết lập chạy marco

[NH_DK]

A/C cho em hỏi: Có cách nào thiết lập chạy Marco khi mình mở file có sử dụng Marco (thay vì vào Menu Tools\Marco\Medium họăc Low)? Có thể thiết lập bằng code để khi mở file có Marco ra thì nó tự thiết lập?

 

[Hai Lúa Miền Tây]

A/C cho em hỏi: Có cách nào thiết lập chạy Marco khi mình mở file có sử dụng Marco (thay vì vào Menu Tools\Marco\Medium họăc Low)? Có thể thiết lập bằng code để khi mở file có Marco ra thì nó tự thiết lập?

Ví dụ code sau mở 1 file luôn ở chế độ Low...

Sub MoFile()
On Error Resume Next
Dim i As Integer
Dim Tudong As MsoAutomationSecurity
Tudong = Application.AutomationSecurity
Application.AutomationSecurity = msoAutomationSecurityLow
With Application.FileDialog(msoFileDialogOpen)
   .Show
     For i = 1 To .SelectedItems.Count
       MsgBox .SelectedItems(i)
       Workbooks.Open .SelectedItems(i)
     Next i
End With

Application.AutomationSecurity = Tudong

End Sub

 

[hoangdanh282vn]

Ví dụ code sau mở 1 file luôn ở chế độ Low...

Code trên chỉ hoạt động được khi dùng file chứa code này để mở một file khác.
Còn nếu như ta dùng chức năng Open thông thường hay mở trực tiếp file bằng doubleclick thì sẽ không làm được.

 

[sealand]

Đây là vấn đề các cao thủ đang thừa nhận là vô phương. Cách của Dom là chạy code mở file khác, như vậy ngầm hiểu là đã cho phép code chạy. Khi mở mà nó không chơi với code thì chẳng có code nào trong VBA chạy được.

 

[Hai Lúa Miền Tây]

Code trên chỉ hoạt động được khi dùng file chứa code này để mở một file khác.
Còn nếu như ta dùng chức năng Open thông thường hay mở trực tiếp file bằng doubleclick thì sẽ không làm được.

Dĩ nhiên là như thế rồi, muốn chạy code trên thì phải chuẩn bị môi trường cho nó chạy chứ phải không nào ? Nếu không chuẩn bị môi trường cho nó thì chẳng có code nào hoạt động được.

 

[khoa140383]

Chào các bạn !

Chúng ta có thể cho 1 file tự chạy macro mà không cần phải set security ở low ( kể cả very high cũng chạy tuốt ). Phương pháp sau :

1. Download lockxls về ( trên diễn đàn đã có ).
2. Khóa bảng tính lại bằng lockxls ( chúng ta có thể đổi luôn icon mặc định của excel bằng 1 icon khác )
3. Cài đặt macro security ở mức very high và thử lại.

Mình đã thử rồi. Các bạn thử xem nhé.

Thân,