明细表一列中，将改列设置了可编辑，而部分带有函数公式的行则也可以被编辑，可以通过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. 
   
4.             Dim MyRange As IRange, BtName As String
   
5.             BtName = e.Shape.Name
   
6.             
   
7.             ActiveWorkbook.WorkbookSet.ReleaseLock()
   
8. 
   
9.             If BtName = "Button 1" Then
   
10.                 For Each MyRange In Range("T_671")
    
11.                     If MyRange.HasFormula Then
    
12.                         MyRange.Value = BtName
    
13.                         MyRange.Locked = True
    
14.                     End If
    
15.                 Next
    
16.             End If
    
17. 
    
18. 
    
19.         End Sub '按钮/标签点击事件

复制代码

明细表一列中，将改列设置了可编辑，而部分带有函数公式的行则也可以被编辑，可以通过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. 
   
4.             Dim MyRange As IRange, BtName As String
   
5.             BtName = e.Shape.Name
   
6.             
   
7.             ActiveWorkbook.WorkbookSet.ReleaseLock()
   
8. 
   
9.             If BtName = "Button 1" Then
   
10.                 For Each MyRange In Range("T_671")
    
11.                     If MyRange.HasFormula Then
    
12.                         MyRange.Value = BtName
    
13.                         MyRange.Locked = True
    
14.                     End If
    
15.                 Next
    
16.             End If
    
17. 
    
18. 
    
19.         End Sub '按钮/标签点击事件

复制代码