Set Security chế độ Trus access to Visual Basic project

[viehoai]

Giả sử ta đã đặt security ở chế độ Low cho macro hoạt động. Vậy xin hỏi các anh chị có code để tích chọn chế độ Trust access to Visual Basic project không?
Xin cảm ơn.

 

[viehoai]

Mình test 2003 thì phải như vầy:

SendKeys "%{T}{down}{M}{S}{T}%{V}{enter}"

2007 thì không cần {Down}

Nếu dùng tab chuyển focus xuống chỗ cần tick, thì phím thay thế click chuột để chọn hoặc bỏ chọn (1 mục đang được focus) là phím {Space}

Em đã thử test mọi thứ cũng không được anh Mỹ à. Ngày mai em thử test máy khác xem sao
Cảm các anh chị đã giúp đỡ.

 

[ndu96081631]

Không hiểu sao em test vẫn chưa đưa Sư phụ à, hay là do một nguyên nhân nào khác nhỉ?
Em làm từ sáng tới giờ vẫn chưa được. Bây giờ em phải chấp nhận xuất Form đó ra để người dùng tự chỉ việc check vào đó bằng lệnh SendKeys "%TMST"
Cảm ơn Sư phụ rất nhiều

Tôi biết tại sao không được rồi!
Vì code tôi đưa lên, khi cho vào PHP code nó mất tiêu mấy dấu "\"
Kiểm tra lại nhé

Sub ChangeVBOM()
  Dim regKey As String
  regKey = "HKEY_LOCAL_MACHINE[COLOR=#ff0000][B]\[/B][/COLOR]Software[COLOR=#ff0000][B]\[/B][/COLOR]Microsoft\Office[COLOR=#ff0000][B]\[/B][/COLOR]" & Application.Version & "[COLOR=#ff0000][B]\[/B][/COLOR]Excel[COLOR=#ff0000][B]\[/B][/COLOR]Security[COLOR=#ff0000][B]\[/B][/COLOR]AccessVBOM"
  CreateObject("WScript.Shell").RegWrite regKey, 1, "REG_DWORD"
End Sub

 

[viehoai]

Tôi biết tại sao không được rồi!
Vì code tôi đưa lên, khi cho vào PHP code nó mất tiêu mấy dấu "\"
Kiểm tra lại nhé

Sub ChangeVBOM()
  Dim regKey As String
  regKey = "HKEY_LOCAL_MACHINE[COLOR=#ff0000][B]\[/B][/COLOR]Software[COLOR=#ff0000][B]\[/B][/COLOR]Microsoft\Office[COLOR=#ff0000][B]\[/B][/COLOR]" & Application.Version & "[COLOR=#ff0000][B]\[/B][/COLOR]Excel[COLOR=#ff0000][B]\[/B][/COLOR]Security[COLOR=#ff0000][B]\[/B][/COLOR]AccessVBOM"
  CreateObject("WScript.Shell").RegWrite regKey, 1, "REG_DWORD"
End Sub

Sang nay em test code phím tắt và cả cái Sư phụ đưa đều được tất không biết máy ở nhà em thế nào nữa. Trong trường hợp dùng file này rồi nếu muốn gỡ lại thì sao? Cho em biết luôn nhé. Xin cảm ơn Sư phụ nhiều

 

[ndu96081631]

Sang nay em test code phím tắt và cả cái Sư phụ đưa đều được tất không biết máy ở nhà em thế nào nữa. Trong trường hợp dùng file này rồi nếu muốn gỡ lại thì sao? Cho em biết luôn nhé. Xin cảm ơn Sư phụ nhiều

Chỉ cần xóa AccessVBOM đi lại mọi thứ bình thường

Sub ResetVBOM()
  Dim regKey As String
  regKey = "HKEY_LOCAL_MACHINE\Software\Microsoft\Office\" & Application.Version & "\Excel\Security\AccessVBOM"
  CreateObject("WScript.Shell").RegDelete regKey
End Sub

 

[viehoai]

Chỉ cần xóa AccessVBOM đi lại mọi thứ bình thường

Sub ResetVBOM()
  Dim regKey As String
  regKey = "HKEY_LOCAL_MACHINE\Software\Microsoft\Office\" & Application.Version & "\Excel\Security\AccessVBOM"
  CreateObject("WScript.Shell").RegDelete regKey
End Sub

Em chạy code này báo lỗi thế này

Nếu lấy code ChangeVBOM() và thay số 1 thành số 0 thì được nhưng nó ở trạng thái ẩn. Giúp tiếp cho em với, em xin cảm ơn

 

[ndu96081631]

Em chạy code này báo lỗi thế này
View attachment 73994
Nếu lấy code ChangeVBOM() và thay số 1 thành số 0 thì được nhưng nó ở trạng thái ẩn. Giúp tiếp cho em với, em xin cảm ơn

Lại bị thằng PHP code ---> Tôi vừa sửa lại code ---> Xem lại nhé (chỉ tại dấu "\") ---> Bạn xem thông báo cũng thấy đường dẫn sai bét rồi

 

[viehoai]

Lại bị thằng PHP code ---> Tôi vừa sửa lại code ---> Xem lại nhé (chỉ tại dấu "\") ---> Bạn xem thông báo cũng thấy đường dẫn sai bét rồi

Dạ, em làm được rồi cảm ơn Sư Phụ rất nhiều