Foxtable(狐表)用户栏目专家坐堂 → [求助]如何写保护excel工作表的代码


  共有2271人关注过本帖树形打印复制链接

主题:[求助]如何写保护excel工作表的代码

帅哥哟,离线,有人找我吗?
swimmer01
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:201 积分:2085 威望:0 精华:0 注册:2018/5/4 14:45:00
[求助]如何写保护excel工作表的代码  发帖心情 Post By:2020/1/20 1:27:00 [只看该作者]

老师,你好!
我的excel表(文件名:电气设计表.xlsx)中有若干个工作表(图纸目录,材料表,电缆表..),编辑完成后要发给校、审看,我想通过在foxtable中编程,实现在发送前对所有工作表进行加密保护,以免其中数据发生更改,虽然可以在excel程序上完成,但较烦,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
swimmer01
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:201 积分:2085 威望:0 精华:0 注册:2018/5/4 14:45:00
  发帖心情 Post By:2020/1/20 2:24:00 [只看该作者]

好像可以用:
    Dim Sheet As XLS.Sheet = Book.Sheets(k)
    Sheet.Locked = True '禁止编辑
锁定工作表,但不知密码咋设?请老师指点,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/20 9:50:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
swimmer01
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:201 积分:2085 威望:0 精华:0 注册:2018/5/4 14:45:00
  发帖心情 Post By:2020/1/20 11:03:00 [只看该作者]

谢谢!!我试一下

 回到顶部