Làm sao đóng được cửa sổ VBA Trust Center bằng code VBA (5 người xem)

Quang_Hải · 16/12/14

Mình mở cửa sổ VBA ra thế này nhưng không biết làm sao đóng lại. Nhờ các anh chị hướng dẫn dùm

PHP:

Sub Trigger()
Application.CommandBars.FindControl(ID:=3627).Execute
End Sub

Hai Lúa Miền Tây · 16/12/14

quanghai1969 đã viết:
Mình mở cửa sổ VBA ra thế này nhưng không biết làm sao đóng lại. Nhờ các anh chị hướng dẫn dùm

PHP:

Sub Trigger() Application.CommandBars.FindControl(ID:=3627).Execute End Sub

Dùng cách khác để check vào Trust Access...

Máy mình dùng Office 2010

Mã:

Sub Test()
    Dim oshell As Object
    Set oshell = CreateObject("WScript.Shell")
    oshell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Excel\Security\AccessVBOM", 1, "REG_DWORD"
    Set oshell = Nothing

End Sub

ndu96081631 · 16/12/14

quanghai1969 đã viết:
Mình mở cửa sổ VBA ra thế này nhưng không biết làm sao đóng lại. Nhờ các anh chị hướng dẫn dùm

PHP:

Sub Trigger() Application.CommandBars.FindControl(ID:=3627).Execute End Sub

Khi cửa sổ ấy mở lên thì đâu có thao tác gì được nữa. Chỉ có cách:
- Đặt code đóng cửa sổ trong 1 file Excel khác đồng thời khởi động file này trên 1 session khác (mục đích để thoát khỏi sự "khống chế" của cửa sổ Excel Options)
- Có thể dùng các hàm API để đóng cửa sổ (thông qua Handle).
Ví dụ là code này:

Mã:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Const GW_HWNDNEXT = 2
Function CloseWindow(ByVal WinCap As String)
  Dim hWnd As Long
  Dim sTitle As String
  hWnd = FindWindow(vbNullString, vbNullString)
  Do While hWnd <> 0
    sTitle = Space$(255)
    sTitle = Left$(sTitle, GetWindowText(hWnd, sTitle, Len(sTitle)))
    If sTitle Like WinCap Then
      SendMessage hWnd, &H10, 0&, 0&
      Exit Function
    End If
    hWnd = GetWindow(hWnd, GW_HWNDNEXT)
  Loop
End Function
Sub Main()
  Const WinCap = "Trust Center"
  CloseWindow WinCap
End Sub

Thí nghiệm:
- Khởi động file Excel trắng, cho Sub Trigger vào và chạy nó để mở Trust Center
- Xong, khởi động Excel mới (Start\Run, gõ Excel và Enter) ---> Tức mở Excel mớ trên 1 session mới rồi cho code của tôi vào, chạy Sub Main và kiểm tra kết quả

Quang_Hải · 16/12/14

Sự cố mình đang gặp là thế này. Theo dòng chảy của code thì khi mở file lên thì Sub Auto sẽ kích hoạt.
Sub này sẽ kiểm tra Trust Access và chạy Sub ChangeVBOM. Mặc dù kiểm tra thủ công sẽ thấy mục Trust Access được checked rồi nhưng code không hiểu nên không thể nào thực hiện được Sub CheckReference
và biến bChk sẽ luôn là False nếu ta không mở cửa sổ Trust Access lên.

PHP:

Sub Auto_Open()
   Dim bChk As Boolean
   bChk = IsVBATrusted
   If bChk = False Then ChangeVBOM
   CheckReference
   MsgBox bChk
End Sub
Sub CheckReference()
On Error Resume Next
Dim Script As String, VBIDE As String, AdoRef As String
Script = "{420B2830-E718-11CF-893D-00A0C9054228}"
VBIDE = "{0002E157-0000-0000-C000-000000000046}"
AdoRef = "{B691E011-1797-432E-907A-4D8C69339129}"
ThisWorkbook.VBProject.References.AddFromGuid Script, 1, 0
ThisWorkbook.VBProject.References.AddFromGuid AdoRef, 6, 0
ThisWorkbook.VBProject.References.AddFromGuid VBIDE, 5, 3
End Sub
Sub ChangeVBOM()
  Dim regKey As String
  regKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" _
  & Application.Version & "\Excel\Security\AccessVBOM"
  CreateObject("WScript.Shell").RegWrite regKey, 1, "REG_DWORD"
End Sub
Function IsVBATrusted() As Boolean
  Application.Volatile
  On Error Resume Next
  IsVBATrusted = Not ThisWorkbook.VBProject Is Nothing
End Function

Nhưng nếu ta dùng code này để mở cửa sổ Trust Access lên rồi bấm chọn OK thì mọi thứ hoạt động

PHP:

Sub Trigger()
Application.CommandBars.FindControl(ID:=3627).Execute
End Sub

Cho nên file đính kèm khi mở lên lúc nào cũng thông báo tình trạng là False
File trước đính kèm bị nhầm. Các anh chị xem lại file này.

Lê Phát Huy · 16/12/14

quanghai1969 đã viết:
Sự cố mình đang gặp là thế này. Theo dòng chảy của code thì khi mở file lên thì Sub Auto sẽ kích hoạt.
Sub này sẽ kiểm tra Trust Access và chạy Sub ChangeVBOM. Mặc dù kiểm tra thủ công sẽ thấy mục Trust Access được checked rồi nhưng code không hiểu nên không thể nào thực hiện được Sub CheckReference
và biến bChk sẽ luôn là False nếu ta không mở cửa sổ Trust Access lên.

PHP:

Sub Auto_Open() Dim bChk As Boolean bChk = IsVBATrusted If bChk = False Then ChangeVBOM CheckReference MsgBox bChk End Sub Sub CheckReference() On Error Resume Next Dim Script As String, VBIDE As String, AdoRef As String Script = "{420B2830-E718-11CF-893D-00A0C9054228}" VBIDE = "{0002E157-0000-0000-C000-000000000046}" AdoRef = "{B691E011-1797-432E-907A-4D8C69339129}" ThisWorkbook.VBProject.References.AddFromGuid Script, 1, 0 ThisWorkbook.VBProject.References.AddFromGuid AdoRef, 6, 0 ThisWorkbook.VBProject.References.AddFromGuid VBIDE, 5, 3 End Sub Sub ChangeVBOM() Dim regKey As String regKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" _ & Application.Version & "\Excel\Security\AccessVBOM" CreateObject("WScript.Shell").RegWrite regKey, 1, "REG_DWORD" End Sub Function IsVBATrusted() As Boolean Application.Volatile On Error Resume Next IsVBATrusted = Not ThisWorkbook.VBProject Is Nothing End Function

Nhưng nếu ta dùng code này để mở cửa sổ Trust Access lên rồi bấm chọn OK thì mọi thứ hoạt động

PHP:

Sub Trigger() Application.CommandBars.FindControl(ID:=3627).Execute End Sub

Cho nên file đính kèm khi mở lên lúc nào cũng thông báo tình trạng là False
File trước đính kèm bị nhầm. Các anh chị xem lại file này.

Đã có ghi thì phải có đọc. Bạn chỉ cần đọc trong registry xem coi nó đã được đánh dấu kiểm hay chưa, nếu chưa (Giá trị là 0) thì lúc đó bạn đánh dấu vào (Giá trị là 1)

Mã:

Sub Auto_Open()
    Dim regKey As String
    regKey = "HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\OFFICE\" & Application.Version & "\Excel\Security\AccessVBOM"
     With CreateObject("WScript.Shell")
        If .regRead(regKey) = 0 Then .RegWrite regKey, 1, "REG_DWORD"
     End With
End Sub

Quang_Hải · 16/12/14

Cũng không cách nào tự động được theo hướng này.
Kiểm tra thủ công thì thấy nó có đánh dấu vào rồi, nhưng code vẫn không hiểu là đang được check mới tức.

thanhlanh · 16/12/14

quanghai1969 đã viết:
Cũng không cách nào tự động được theo hướng này.
Kiểm tra thủ công thì thấy nó có đánh dấu vào rồi, nhưng code vẫn không hiểu là đang được check mới tức.

Kiểm tra xem vậy hết tức chưa?

Quang_Hải · 16/12/14

thanhlanh đã viết:
Kiểm tra xem vậy hết tức chưa?

Cũng vậy anh ơi.
Thử vầy nhé. Mở file lên. Tắt các mục đánh dấu trong reference, vào excel option, bỏ check Trust Access, chọn ok. Đóng file lại, và mở lên thì không thể tự động được nữa.

thanhlanh · 16/12/14

quanghai1969 đã viết:
Cũng vậy anh ơi.
Thử vầy nhé. Mở file lên. Tắt các mục đánh dấu trong reference, vào excel option, bỏ check Trust Access, chọn ok. Đóng file lại, và mở lên thì không thể tự động được nữa.

Mình nghĩ Hải chưa test thử file mình!!!

Quang_Hải · 16/12/14

thanhlanh đã viết:
Mình nghĩ Hải chưa test thử file mình!!!

Em test rồi chứ. Em up lại file của anh đây.

thanhlanh · 17/12/14

quanghai1969 đã viết:
Em test rồi chứ. Em up lại file của anh đây.

Chẳng lẽ Ex của Hải có vấn đề, mình chạy bằng Ex2010.
Trên máy mình khi chạy file đó lên thì không thể "bỏ check Trust Access" vì đã bị làm mờ.

thanhlanh · 17/12/14

Hi hi, mình phát hiện ra trong file Hải còn có Sub Workbook_Open() bỏ bớt đi thôi, đánh bom tùm lum vậy?

Quang_Hải · 17/12/14

Tạm thời tìm ra 1 giải pháp, hơi kỳ cục nhưng cũng tạm coi là 1 cách hay khi chưa có cách khác.
Dùng cái này thì đóng được cái cửa sổ Trust Access

PHP:

Sub GetTrustAccess()
   ChangeVBOM
   If Application.Wait(Now + TimeValue("00:00:01") / 100000) Then SendKeys "{ENTER}"
   Application.CommandBars.ExecuteMso ("MacroSecurity")
End Sub

thanhlanh · 17/12/14

quanghai1969 đã viết:
Tạm thời tìm ra 1 giải pháp, hơi kỳ cục nhưng cũng tạm coi là 1 cách hay khi chưa có cách khác.
Dùng cái này thì đóng được cái cửa sổ Trust Access

PHP:

Sub GetTrustAccess() ChangeVBOM If Application.Wait(Now + TimeValue("00:00:01") / 100000) Then SendKeys "{ENTER}" Application.CommandBars.ExecuteMso ("MacroSecurity") End Sub

Không thể chấp nhận được. Hải lưu ý trong file của mình có code này:

Mã:

Sub Auto_Close()    Dim strRegKeyName As String
    'Ver = Excel.Application.Version
    strRegKeyName = "Software\Microsoft\Office\" & Excel.Application.Version & "\Excel\Security"
[COLOR=#ff0000]    Call SetKeyDataValue(lngRegKey1ROOT, strRegKeyName, lngKeyDataType, strKeyAccessVBOMName, 0)[/COLOR]
[COLOR=#ff0000]    DeleteRegValue lngRegKey1ROOT, strRegKeyName, strKeyAccessVBOMName[/COLOR]
End Sub

Cho nên khi tắt đi mở lại nó trả về False (hoặc true) nếu trước khi mở file là False (hoặc true) là tất nhiên, Hải hãy tùy biến sử dụng chớ. Hai dòng màu đỏ có thể bỏ đi sẽ thấy.

Lê Phát Huy · 17/12/14

Máy mình kiểm tra tình trạng không có vấn đề gì hết. Bạn QuangHai xem lại nhé.

Quang_Hải · 17/12/14

Cảm ơn các anh.

Mình đang cảm giác bị đơ đơ sau ấy. Cái óc nó đang xoắn lại. Để thong thả tí sẽ quay lại kiểm tra lại vụ này.

Quang_Hải · 17/12/14

Các anh em dành tí thời gian test giúp theo trình tự sau xem coi tình trạng có giống như mình bị hay không

Mở file của bài 7 lên. Lúc này tình trạng có thể là True hoặc False.
Vào cửa sổ VBE, chọn Tools, Reference và bỏ chọn 3 mục (nếu có): Microsoft Visual Basic for Applications Extensibility, Microsoft Scripting Runtime, Microsoft AtiveX Data >>>Ok
Vào Excel Options, Trust Center > Trust Center Setting > Macro Settings, bỏ chọn Trust Access >>> Ok
Bây giờ vào lại VBE và thử kích hoạt Sub Autpen. Theo mong đợi thì sẽ xuất hiện thông báo True nhưng luôn xuất hiện thông báo False và khi kiểm tra các mục Reference (tại 2) thì các mục này chưa được đánh dấu chọn.
Nhưng nếu bây giờ ta vào Excel Option để kiểm tra thì thấy mục Trust Access đã được đánh dấu chọn rồi. Nếu ta chọn Ok để thoát thì lúc này Sub Auto sẽ chạy ào ào, nhưng nếu ta thoát của sổ này bằng phím Cancel thì Sub Auto vẫn tình trạng cũ.

Kiều Mạnh · 17/12/14

quanghai1969 đã viết:
Các anh em dành tí thời gian test giúp theo trình tự sau xem coi tình trạng có giống như mình bị hay không

Mở file của bài 7 lên. Lúc này tình trạng có thể là True hoặc False.

Vào cửa sổ VBE, chọn Tools, Reference và bỏ chọn 3 mục (nếu có): Microsoft Visual Basic for Applications Extensibility, Microsoft Scripting Runtime, Microsoft AtiveX Data >>>Ok

Vào Excel Options, Trust Center > Trust Center Setting > Macro Settings, bỏ chọn Trust Access >>> Ok

Bây giờ vào lại VBE và thử kích hoạt Sub Autpen. Theo mong đợi thì sẽ xuất hiện thông báo True nhưng luôn xuất hiện thông báo False và khi kiểm tra các mục Reference (tại 2) thì các mục này chưa được đánh dấu chọn.

Nhưng nếu bây giờ ta vào Excel Option để kiểm tra thì thấy mục Trust Access đã được đánh dấu chọn rồi. Nếu ta chọn Ok để thoát thì lúc này Sub Auto sẽ chạy ào ào, nhưng nếu ta thoát của sổ này bằng phím Cancel thì Sub Auto vẫn tình trạng cũ.

em test tới test lui đâu có gì mới đâu ngoài báo True và False thôi
nếu tích vào Trust Access trước thì báo là True và ngược lại là False

Quang_Hải · 17/12/14

kieu manh đã viết:
em test tới test lui đâu có gì mới đâu ngoài báo True và False thôi
nếu tích vào Trust Access trước thì báo là True và ngược lại là False

Ặc ặc, sao tình hình này giống như đang rờ voi quá...
Đã nói là không tick vào Trust Access mà... đang muốn cho nó tick tự động. Cho nên mới cần là bỏ tick ra trước rồi mới test code xem coi có báo true được hay không mà.

Hai Lúa Miền Tây · 17/12/14

quanghai1969 đã viết:
Ặc ặc, sao tình hình này giống như đang rờ voi quá...
Đã nói là không tick vào Trust Access mà... đang muốn cho nó tick tự động. Cho nên mới cần là bỏ tick ra trước rồi mới test code xem coi có báo true được hay không mà.

Anh xem lại máy hoặc sang máy khác test thử nhé.

Làm sao đóng được cửa sổ VBA Trust Center bằng code VBA (5 người xem)

Người dùng đang xem chủ đề này

Thành viên gạo cội

❆❆❆❆❆❆❆❆

Huyền thoại GPE

Thành viên gạo cội

File đính kèm

Thành viên hoạt động

Thành viên gạo cội

Thành viên tích cực

File đính kèm

Thành viên gạo cội

Thành viên tích cực

Thành viên gạo cội

File đính kèm

Thành viên tích cực

Thành viên tích cực

Thành viên gạo cội

File đính kèm

Thành viên tích cực

Thành viên hoạt động

Thành viên gạo cội

Thành viên gạo cội

I don't program, I beat code into submission!!!

Thành viên gạo cội

❆❆❆❆❆❆❆❆

Đếm ngược thời gian