1.         Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Forms.WorkbookView)
   
2.            Excel.GetLock()
   
3.            AW = Excel.ActiveWorkbook
   
4.            Range = AW.ActiveWorksheet.Range
   
5.            Excel.ReleaseLock()
   
6.            AddHandler Excel.RangeSelectionChanging, Sub(s2 As Object, e2 As SpreadsheetGear.Windows.Controls.RangeSelectionChangingEventArgs)
   
7.                                                                                                              if e2.RangeSelection.Locked = true then
   
8.                                                                                                                         e2.Cancel = True
   
9.                                                                                                                 end if
   
10.                                                      End Sub
    
11.         End Sub'打开时执行事件

复制代码

选择只读单元格后会返回原选择的单元格。

KB_SelectOut.zip (2.79 KB, 下载次数: 68)

2015-10-25 22:46 上传

点击文件名下载附件

这个怎么用？复制到哪里去？

设计权限后面就是气泡说明，没有动态库啊！

zenson 发表于 2016-8-11 16:44
设计权限后面就是气泡说明，没有动态库啊！

免费版，不存在VBA功能。

这个可以有！

学习学习。

KB_SelectOut.zip (2.79 KB, 下载次数: 68)

2015-10-25 22:46 上传

点击文件名下载附件

这个怎么用？复制到哪里去？

设计权限后面就是气泡说明，没有动态库啊！

zenson 发表于 2016-8-11 16:44
设计权限后面就是气泡说明，没有动态库啊！

免费版，不存在VBA功能。

这个可以有！

学习学习。