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控制不能选择非编辑单元格

试过了,可以用!

不过,这个是选中后又退回去的(可以看到选中的单元格区域框),可不可以做到无法选择?

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

把点击选择框底色改掉

不知为何无效

孤舟一叶 发表于 2020-3-22 22:37
不知为何无效

可以升级到最新版再试试

试过了,可以用!

不过,这个是选中后又退回去的(可以看到选中的单元格区域框),可不可以做到无法选择?

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

把点击选择框底色改掉

不知为何无效

孤舟一叶 发表于 2020-3-22 22:37
不知为何无效

可以升级到最新版再试试