[Resolvido]Ao executar Script, com o UAC ativado, na mensagem exibida pelo UAC, atraves do VBA, clicar em SIM

Amigos, não sei se é possível mas vamos la.

Ao executar um Script que modifica valores no registro do Windows, o controle de usuaários exibe ma menssagem perguntando sobre o prosseguimento da ação.

Pergunto, através do VBA é possível inibir esta mensagem ou colocando como Defalt o Sim e efetuando o seu click?


Grato pela ajuda.


Cumprimentos.

Solução:

Private Sub btnDesabUAC_Click()
'Para verifica se está habilitado ou desabilitado o UAC
Dim WshShell, bKey
Set WshShell = CreateObject("WScript.Shell")
bKey = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA")
'Modifica a chave para 1 ou 0 Ativo, Inativo direcionado a situação especifica
Dim sh As Object
Set sh = CreateObject("WScript.Shell")

If bKey = 1 Then
sh.Run "RunAs /noprofile /user:administrator " & (CurrentProject.Path & "\HabilitaDesabilitaUAC.vbs" & " 0")
MsgBox "Controle de Usuário Desativado, é necessário reiniciar o Windows!", vbInformation, "UAC DESATIVADO"
ElseIf bKey = 0 Then
sh.Run "RunAs /noprofile /user:administrator " & (CurrentProject.Path & "\HabilitaDesabilitaUAC.vbs" & " 1")
MsgBox "Controle de Usuário Ativado, é necessário reiniciar o Windows!", vbInformation, "UAC SATIVADO"
End If
End Sub

Cumprimentos.