Excel使用VBA读写有用户名及密码的网络文件夹中的文档

Sub 访问共享文件()

IPName = "192.168.0.10"

UserName = "user"

Passwd = "password"

Shell "net use * /delete /y", vbHide

Shell "net use \\" &IPName &" " &Passwd &" /user:" &UserName, vbHide

Shell "C:\WINDOWS\explorer.exe \\" &IPName &"\", vbMaximizedFocus

End Sub

使用服务（Service）。在应用中创建一个服务，将需要联网读写文件的 *** 作放在服务中进行，然后在应用进入后台或锁屏后启动该服务。由于服务在后台一直运行，因此可以在后台进行联网读写文件 *** 作。

在局域网加密共享的的文件夹，可以试一下共享文·件···夹加密%超级$大师，是专门针对局域网中共享的数据加密的，加密后可以对同一个文件夹设置不同的权限，可以设置读写权限。11种权限还可以自由的搭配，具备防复制、防截屏、防删除、防另存为、禁用剪贴板等功能，软件只需在需要加密的共享文件夹所在的电脑安装即可全网使用，局域网内的其他电脑无需安装！

---