Закрыть панель защиты информации Microsoft Azure - PullRequest
2 голосов
/ 24 мая 2019

Есть ли способ связать событие закрытия панели Microsoft Azure Information Protection с Private Sub Workbook_Open()?Есть кнопка закрытия.Есть ли способ закрыть его автоматически при открытии определенной книги?

enter image description here

Я могу отключить его:

enter image description here

Вот код для получения идентификатора надстройки:

Sub ListCOMAddins()
Dim lngRow As Long, objCOMAddin As COMAddIn
lngRow = 1
With ActiveSheet
      For Each objCOMAddin In Application.COMAddIns
         .Cells(lngRow, "A").Value = objCOMAddin.Description
         .Cells(lngRow, "B").Value = objCOMAddin.Connect
         .Cells(lngRow, "C").Value = objCOMAddin.progID
         lngRow = lngRow + 1
      Next objCOMAddin
End With
End Sub

Вот результат:

enter image description here

Вот этот MSIP.ExcelAddin должно быть отключено, но как?Может быть, это можно сделать на Рабочей книге, открытой с помощью VBA?

Вы можете отключить ее с помощью VBA, если у вас есть права администратора:

Application.COMAddIns("MSIP.ExcelAddin").Connect = False

Однако у меня нет прав администратора на рабочий компьютер.и просто отключил его из надстроек вручную, и после перезагрузки компьютера его там больше нет.В любом случае было бы хорошо сделать это VBA ...

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...