SAP gui 快速登录

sap gui的版本一直再更新,而目前比较新的版本的记住密码功能开启都很麻烦,甚至不能开启。
目前的替代方案是用使用命令行调用sapshortcut 加参数后保存为bat执行，但这种方式会导致生成多个bat文件，系统管理还是增加都还是稍微有点麻烦。

经过研究，我设计了一个使用vba调用shortcut命令，并自动登录的excel文件。填上相应信息并单击对应的系统即可自动登录。
界面及vba代码如下：

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim EXEAddress As String
    Dim user As String, pwd As String, lang As String, client As String, sysname As String, max As String
    
    If Target.Column > 1 Or Target.Row <= 3 Or Sheet1.Cells(Target.Row, Target.Column).Value = "" Then Exit Sub
    
    
    EXEAddress = Sheet1.Range("b1").Value
    sysname = " -sysname=" & Sheet1.Cells(Target.Row, 1).Value
    client = " -client=" & Sheet1.Cells(Target.Row, 2).Value
    user = " -user=" & Sheet1.Cells(Target.Row, 3).Value
    pwd = " -pw=" & Sheet1.Cells(Target.Row, 4).Value
    lang = " -language=" & Sheet1.Cells(Target.Row, 5).Value
    If UCase(Sheet1.Cells(Target.Row, 6).Value) = "X" Then
        max = " -maxgui"
    End If
    
    
    Shell (EXEAddress & sysname & user & pwd & lang & client & max)
End Sub