锁定单元格的VBA

效果:是否返回的值是"是"，返回时间可填内容，反之不可填内容。



设置方法如下:
1.给需要提示的区域添加条件格式


2.在需求提示的区域右侧添加公式


VBA代码:使用方法，把T_238替换成自己的表名，把F_51630_替换成需要判断的字段别名

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.        
    
11. 
    
12. 
    
13.        '预留位置1
    
14.        '预留位置2
    
15.        Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView,AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
    
16.           
    
17.        Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
    
18.            EV = Excel
    
19.            Excel.GetLock()
    
20.            AW = Excel.ActiveWorkbook
    
21.            Range = AW.ActiveWorksheet.Range
    
22.            Excel.ReleaseLock()
    
23.                   
    
24. 
    
25.        End Sub'打开时执行事件
    
26. 
    
27.        Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)  
    
28. 
    
29.            ActiveWorkbook.WorkbookSet.GetLock()
    
30.            Dim Rng As IRange = e.RangeSelection.Intersect(Range("T_238"))
    
31.            Dim MyRange As IRange
    
32.                 If Rng IsNot Nothing Then
    
33. '                        C1MessageBox.Show("你好1！", "提示", OK, Information)
    
34.           ActiveWorkbook.ActiveWorksheet.ProtectContents = False
    
35.                   For Each MyRange In Range("F_51630_")
    
36.             If MyRange.value = "TRUE" Then '单元格底色是否红色
    
37.                  MyRange.Cells(0,-1).Locked = True
    
38. '                                 C1MessageBox.Show("你好2！", "提示", OK, Information)
    
39.                 Else
    
40.                  MyRange.Cells(0,-1).Locked = False
    
41.                 End If
    
42.             Next
    
43.                         End If               
    
44.            ActiveWorkbook.WorkbookSet.ReleaseLock()
    
45.           
    
46.        End Sub'单元格选择后执行的事件
    
47. 
    
48.        Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs)
    
49. 
    
50.        End Sub'单元格编辑完成后执行事件
    
51. 
    
52.        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
    
53. 
    
54.        End Sub'按钮/标签点击事件
    
55. 
    
56.        Public Sub FollowHyperlink(sender As Object)
    
57. 
    
58.        End Sub '暂不支持
    
59. 
    
60.    End Class
    
61. '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
62. End Namespace
    

复制代码

锁定单元格的VBA

效果:是否返回的值是"是"，返回时间可填内容，反之不可填内容。



设置方法如下:
1.给需要提示的区域添加条件格式


2.在需求提示的区域右侧添加公式


VBA代码:使用方法，把T_238替换成自己的表名，把F_51630_替换成需要判断的字段别名

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.        
    
11. 
    
12. 
    
13.        '预留位置1
    
14.        '预留位置2
    
15.        Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView,AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
    
16.           
    
17.        Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
    
18.            EV = Excel
    
19.            Excel.GetLock()
    
20.            AW = Excel.ActiveWorkbook
    
21.            Range = AW.ActiveWorksheet.Range
    
22.            Excel.ReleaseLock()
    
23.                   
    
24. 
    
25.        End Sub'打开时执行事件
    
26. 
    
27.        Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)  
    
28. 
    
29.            ActiveWorkbook.WorkbookSet.GetLock()
    
30.            Dim Rng As IRange = e.RangeSelection.Intersect(Range("T_238"))
    
31.            Dim MyRange As IRange
    
32.                 If Rng IsNot Nothing Then
    
33. '                        C1MessageBox.Show("你好1！", "提示", OK, Information)
    
34.           ActiveWorkbook.ActiveWorksheet.ProtectContents = False
    
35.                   For Each MyRange In Range("F_51630_")
    
36.             If MyRange.value = "TRUE" Then '单元格底色是否红色
    
37.                  MyRange.Cells(0,-1).Locked = True
    
38. '                                 C1MessageBox.Show("你好2！", "提示", OK, Information)
    
39.                 Else
    
40.                  MyRange.Cells(0,-1).Locked = False
    
41.                 End If
    
42.             Next
    
43.                         End If               
    
44.            ActiveWorkbook.WorkbookSet.ReleaseLock()
    
45.           
    
46.        End Sub'单元格选择后执行的事件
    
47. 
    
48.        Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs)
    
49. 
    
50.        End Sub'单元格编辑完成后执行事件
    
51. 
    
52.        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
    
53. 
    
54.        End Sub'按钮/标签点击事件
    
55. 
    
56.        Public Sub FollowHyperlink(sender As Object)
    
57. 
    
58.        End Sub '暂不支持
    
59. 
    
60.    End Class
    
61. '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
62. End Namespace
    

复制代码