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

扫码微信咨询

关注公众号

关注微信公众号

电话: 021 5161 9370
返回顶部
企业版命令代码-控制不能选择非编辑单元格
显示全部楼层 倒序浏览 发表日期 2019-12-25 09:36:23 6864次阅读 5次回复
  1. Dim EV As SpreadsheetGear.Windows.Co**ols.WorkbookView,AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
  2.        Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Co**ols.WorkbookView)
  3.            EV = Excel
  4.            Excel.GetLock()
  5.            AW = Excel.ActiveWorkbook
  6.            Range = AW.ActiveWorksheet.Range
  7.            Excel.ReleaseLock()
  8.            AddHandler Excel.RangeSelectionChanging, Sub(s2 As Object, e2 As SpreadsheetGear.Windows.Co**ols.RangeSelectionChangingEventArgs)
  9.        If e2.RangeSelection.Locked = True Then
  10.         e2.Cancel = True
  11.         End If
  12.         End Sub
复制代码
选择只读单元格后会返回原选择的单元格。


新版VBA的使用代码如上,在默认的语句后加上
  1. AddHandler Excel.RangeSelectionChanging, Sub(s2 As Object, e2 As SpreadsheetGear.Windows.Co**ols.RangeSelectionChangingEventArgs)
  2. If e2.RangeSelection.Locked = True Then
  3. e2.Cancel = True
  4. End If
  5. End Sub
复制代码
即可
7.0以下版本使用VBA编辑器生成DLL,代码使用可参考VBA控制不能选择非编辑单元格

QQ2627049059
试过了,可以用!
不过,这个是选中后又退回去的(可以看到选中的单元格区域框),可不可以做到无法选择?
kane_yao 发表于 2019-12-25 11:39
不过,这个是选中后又退回去的(可以看到选中的单元格区域框),可不可以做到无法选择?

把点击选择框底色改掉
QQ2627049059
不知为何无效
hessen

2020-3-23 08:26:22


可以升级到最新版再试试
电话/微信:18049989370 QQ:857188287

精彩评论5

试过了,可以用!
不过,这个是选中后又退回去的(可以看到选中的单元格区域框),可不可以做到无法选择?
kane_yao 发表于 2019-12-25 11:39
不过,这个是选中后又退回去的(可以看到选中的单元格区域框),可不可以做到无法选择?

把点击选择框底色改掉
QQ2627049059
不知为何无效
hessen

2020-3-23 08:26:22


可以升级到最新版再试试
电话/微信:18049989370 QQ:857188287
您需要登录后才可以回帖 登录 | 立即注册

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

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

  • 微信小商店

  • 微信客服

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