wps问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → wps问题

共有4629人关注过本帖树形打印复制链接主题：wps问题

rjh4078

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐精帖子：3360 积分：24780 威望：0 精华：0 注册：2012/3/26 21:47:00

wps问题

Post By：2023/1/3 12:37:00 [显示全部帖子]

Dim App As New MSExcel.Application

' Try

' Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)

' Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) ''start

' If args(1)<>"发货单" Then

' Ws.Protect(Password:="%$#%#^%$*(&^")

' End If

' wb.save

' app.visible = True

' ShowAppWindow(Ifo.Name,2)

如果只安装了wps 红色标记的这段就会报错,有解决方法吗,需要调用VBA的protect

rjh4078

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐精帖子：3360 积分：24780 威望：0 精华：0 注册：2012/3/26 21:47:00

Post By：2023/1/3 14:21:00 [显示全部帖子]

多谢试了还是不行

主题：wps问题