将明细表中可编辑字段中部分带有函数公式的行锁定

[复制链接]
查看: 80|回复: 1

361

主题

1811

帖子

3943

积分

学士

Rank: 7Rank: 7Rank: 7

积分
3943
发表于 2020-9-16 11:54:34 | 显示全部楼层 |阅读模式
本帖最后由 hessen 于 2020-9-16 11:59 编辑

明细表一列中,将改列设置了可编辑,而部分带有函数公式的行则也可以被编辑,可以通过VBA将带有函数公式的单元格锁定,不可编辑。其他没有公式的单元格正常编辑。将下面的代码写入VBA打开事件中,其中T_671是要判断的区域,一般为明细表区域。
  1. ActiveWorkbook.WorkbookSet.GetLock()
  2. Dim MyRange As IRange
  3.                 For Each MyRange In Range("T_671")
  4.                         If  MyRange.HasFormula Then
  5.                                 MyRange.Locked = True
  6.                         End If
  7.                 Next
  8.         ActiveWorkbook.WorkbookSet.ReleaseLock()
复制代码
如果要按钮执行可以按下面的方法写

  1.         Public Sub ButtunClick(sender As Object, e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs) Implements Interfaces.IExcelWorkBook.ButtunClick
  2.             ActiveWorkbook.WorkbookSet.GetLock()

  3.             Dim MyRange As IRange, BtName As String
  4.             BtName = e.Shape.Name
  5.             
  6.             ActiveWorkbook.WorkbookSet.ReleaseLock()

  7.             If BtName = "Button 1" Then
  8.                 For Each MyRange In Range("T_671")
  9.                     If MyRange.HasFormula Then
  10.                         MyRange.Value = BtName
  11.                         MyRange.Locked = True
  12.                     End If
  13.                 Next
  14.             End If


  15.         End Sub '按钮/标签点击事件
复制代码


QQ:857188287
您需要登录后才可以回帖 登录 | 立即注册

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

热门产品

关于我们

快表软件是国内较早研究表格类软件开发平台的团队之一,迄今已有十年的行业经验.我们的理念是:"快表软件-提高的不只是效率!"

联系我们

  • 地址: 上海市张江浦东软件园13-205室
  • 电话: +86 (0) 21-5161-9370
  • Email: kuaibiao@kuaibiao.cn
客户端

手机微信

© 2001-2020 快表软件    工信部备案号:沪ICP备13033196号    技术支持:快表软件