因经常接触加密Excel数据文件，密码又难记，所以有此办法
复制下面代码到记事本，另存为 【快捷打开.vbs】 文件
Set args = Wscript.Arguments
FilePath = args(0)
Const Pwd = "xxxxx" '事先知道的Excel文件密码，是打开密码，不是工作簿密码
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.WorkBooks.Open FilePath,0,True,,Pwd
tittle = "JBH Only"
objExcel.Caption = tittle
set ws=createobject("wscript.shell")
ws.appactivate tittle
ws.sendkeys "{enter}"
ws.quit
set ws = nothing
set args = nothing将【快捷打开.vbs】 文件存放到专门的文件夹内，可以自行设置，右键该文件选择：发送到→桌面快捷方式
Win+R打开“运行”窗口，输入
shell:sendto
会打开SendTo文件夹
将桌面上的快捷方式拖到该文件夹，重新命名”快捷打开“
接下来，你可以选择使用vbs脚本内的密码加密过的Excel文件，右键→发送到→快捷打开，就能马上打开数据文件
如果有多个密码需求，可以创建多个vbs文件，命名可以使用“XXX快捷打开”作为区分
