明细表中经常会出现部分行有公式部分行没有公式,而非整列都有公式,在填报时需要将非整列有公式的单元格也锁定,可以简单的通过VBA来实现控制,下面的语句复制粘贴在您模版中的VBA中,将里面的明细表区域替换为您的明细表区域.

1. Imports SpreadsheetGear
   
2. Imports C1.Silverlight
   
3. Imports C1.Silverlight.C1MessageBoxButton
   
4. Imports C1.Silverlight.C1MessageBoxIcon
   
5. Imports Newtonsoft.Json
   
6. Imports Newtonsoft.Json.Linq
   
7. Imports System.Windows.forms
   
8. Namespace ExcelViewVBDotnet
   
9.    Public Class StandardInterface
   
10.        '预留位置1
    
11.        '预留位置2
    
12.        Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView,AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
    
13.        Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
    
14.            EV = Excel
    
15.            Excel.GetLock()
    
16.            AW = Excel.ActiveWorkbook
    
17.            Range = AW.ActiveWorksheet.Range
    
18.            Excel.ReleaseLock()
    
19.                   
    
20.                    On Error resume Next
    
21.                    ActiveWorkbook.WorkbookSet.GetLock()
    
22.                    If Range("ReportStatus").Text <> "查阅" Then
    
23.             Dim MyRange As IRange
    
24.             ActiveWorkbook.ActiveWorksheet.ProtectContents = False
    
25.             For Each MyRange In Range("T_74")
    
26.                                 If MyRange.HasFormula Then
    
27.                     MyRange.Locked = True
    
28.                 Else
    
29.                     MyRange.Locked = False
    
30.                 End If
    
31.             Next
    
32.                 End If
    
33.             ActiveWorkbook.WorkbookSet.ReleaseLock()
    
34.                        
    
35.                        
    
36.        End Sub'打开时执行事件
    
37. 
    
38.        Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
    
39. 
    
40.        End Sub'单元格选择后执行的事件
    
41. 
    
42.        Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs)
    
43. 
    
44.        End Sub'单元格编辑完成后执行事件
    
45. 
    
46.        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
    
47. 
    
48.        End Sub'按钮/标签点击事件
    
49. 
    
50.        Public Sub FollowHyperlink(sender As Object)
    
51. 
    
52.        End Sub '暂不支持
    
53. 
    
54.    End Class
    
55. '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
56. End Namespace
    

复制代码

明细表中经常会出现部分行有公式部分行没有公式,而非整列都有公式,在填报时需要将非整列有公式的单元格也锁定,可以简单的通过VBA来实现控制,下面的语句复制粘贴在您模版中的VBA中,将里面的明细表区域替换为您的明细表区域.

1. Imports SpreadsheetGear
   
2. Imports C1.Silverlight
   
3. Imports C1.Silverlight.C1MessageBoxButton
   
4. Imports C1.Silverlight.C1MessageBoxIcon
   
5. Imports Newtonsoft.Json
   
6. Imports Newtonsoft.Json.Linq
   
7. Imports System.Windows.forms
   
8. Namespace ExcelViewVBDotnet
   
9.    Public Class StandardInterface
   
10.        '预留位置1
    
11.        '预留位置2
    
12.        Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView,AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
    
13.        Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
    
14.            EV = Excel
    
15.            Excel.GetLock()
    
16.            AW = Excel.ActiveWorkbook
    
17.            Range = AW.ActiveWorksheet.Range
    
18.            Excel.ReleaseLock()
    
19.                   
    
20.                    On Error resume Next
    
21.                    ActiveWorkbook.WorkbookSet.GetLock()
    
22.                    If Range("ReportStatus").Text <> "查阅" Then
    
23.             Dim MyRange As IRange
    
24.             ActiveWorkbook.ActiveWorksheet.ProtectContents = False
    
25.             For Each MyRange In Range("T_74")
    
26.                                 If MyRange.HasFormula Then
    
27.                     MyRange.Locked = True
    
28.                 Else
    
29.                     MyRange.Locked = False
    
30.                 End If
    
31.             Next
    
32.                 End If
    
33.             ActiveWorkbook.WorkbookSet.ReleaseLock()
    
34.                        
    
35.                        
    
36.        End Sub'打开时执行事件
    
37. 
    
38.        Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
    
39. 
    
40.        End Sub'单元格选择后执行的事件
    
41. 
    
42.        Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs)
    
43. 
    
44.        End Sub'单元格编辑完成后执行事件
    
45. 
    
46.        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
    
47. 
    
48.        End Sub'按钮/标签点击事件
    
49. 
    
50.        Public Sub FollowHyperlink(sender As Object)
    
51. 
    
52.        End Sub '暂不支持
    
53. 
    
54.    End Class
    
55. '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
56. End Namespace
    

复制代码