Folha do Excel com lista de servidores e links para diferentes áreas de trabalho remotas

Question

Eu encontrei algum código para executar o Remote Desktop no Excel,

Sub RDP()
    Dim RetVal As Variant
    RetVal = Shell("c:\WIndows\System32\mstsc.exe " & Range("A1"), 1)
End Sub

Eu tenho muitos servidores para administrar e os listo como tal em minha planilha de excel:

ServerName    DBServer                APPServer

Server 1      10.21.40.20             10.21.40.24

Esta lista está sempre em expansão, estou procurando uma maneira inteligente de clicar em qualquer um desses IPs como um link no excel e executar o código RDP acima.

Espero que isso possa ser feito de forma eficiente usando macros.

    

Answer 1

Depois de muita tentativa, veja como fazer isso:

Os IP dos servidores estão localizados nas colunas B e C, então o nome de usuário e as senhas estão nas colunas D e E.

Após clicar duas vezes no IP, as credenciais corretas de nome de usuário e senha são armazenadas e, em seguida, o RDP é iniciado.

Está confirmado que está funcionando!

Obrigado a todos.

   Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        Dim RetVal As Variant
        If Target.Cells.Count = 1 Then

           If Not Intersect(Target, Range("B2:B999")) Is Nothing Or Not Intersect(Target, Range("C2:C999")) Is Nothing Then
                If Not IsEmpty(Target) Then

                     RetVal = Shell("cmdkey /generic:""" & Target & """ /user:""" & Target.Offset(0, 1) & """ /pass:""" & Target.Offset(0, 2) & """", 1)
                     RetVal = Shell("c:\Windows\System32\mstsc.exe /admin /v:" & Target, 1)
                End If
            End If
        End If
    End Sub