周一至周五 : 08:30 - 17:30 客服专员电话/微信:17301649370 QQ:2902102332
微信咨询

扫码微信咨询

关注公众号

关注微信公众号

电话: 021 5161 9370
返回顶部
修改报表时如何锁定一些字段不能被编辑
显示全部楼层 倒序浏览 发表日期 2017-12-23 22:09:05 3893次阅读 3次回复
gxpzz
2017-12-23 22:09:05
QQ图片20171223220352.png
如题,当对报表进行修改时,如何做到把明细表上面的字段进行锁定,不可修改。
hessen

2017-12-25 11:04:40

1、不给修改权限
2、如果只是明细表不让改,可以用下面的VBA代码控制明细表。
  1. Excel.GetLock()
  2. AW = Excel.ActiveWorkbook
  3. Range = AW.ActiveWorksheet.Range
  4. Excel.ReleaseLock()
  5. ActiveWorkbook.WorkbookSet.GetLock()
  6. If Range("F_3997").Text = "修改" Then
  7. AW.ActiveWorksheet.ProtectContents = False
  8. Range("T_9").Locked = True
  9. AW.ActiveWorksheet.ProtectContents = True
  10. End If
  11. ActiveWorkbook.WorkbookSet.ReleaseLock()
复制代码
放在Workbook_Open事件下

电话/微信:18049989370 QQ:857188287
gxpzz

2017-12-30 22:43:54

谢谢解答了。
gxpzz

2017-12-30 22:46:43

我说的是点击修改报表时,锁定明细表上面的内容不给修改。

精彩评论3

hessen

2017-12-25 11:04:40

1、不给修改权限
2、如果只是明细表不让改,可以用下面的VBA代码控制明细表。
  1. Excel.GetLock()
  2. AW = Excel.ActiveWorkbook
  3. Range = AW.ActiveWorksheet.Range
  4. Excel.ReleaseLock()
  5. ActiveWorkbook.WorkbookSet.GetLock()
  6. If Range("F_3997").Text = "修改" Then
  7. AW.ActiveWorksheet.ProtectContents = False
  8. Range("T_9").Locked = True
  9. AW.ActiveWorksheet.ProtectContents = True
  10. End If
  11. ActiveWorkbook.WorkbookSet.ReleaseLock()
复制代码
放在Workbook_Open事件下

电话/微信:18049989370 QQ:857188287
gxpzz

2017-12-30 22:43:54

谢谢解答了。
gxpzz

2017-12-30 22:46:43

我说的是点击修改报表时,锁定明细表上面的内容不给修改。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则  允许回帖邮件提醒楼主

快表软件是国内较早研究表格类软件开发平台的团队之一,迄今已有十多年的行业经验.致力于为企事业单位提供实用可靠的数字化平台。
  • 微信公众号

  • 微信小商店

  • 微信客服

  • Powered by Discuz! X3.4 | Copyright © 2022-2024, XiRong Soft. | 快表软件
  • 沪ICP备13033196号 | 营业执照 |上海西戎软件科技有限公司|沪公网安备31011502002146号|沪ICP备13033196号 |