填报修改删除查阅时隐藏明细按钮

通过VBA将明细表的系统生成复制的按钮隐藏了

1.         Public Sub Workbook_Open(OldRoot As Grid, NewRoot As Grid, Excel As SpreadsheetGear.Windows.Controls.WorkbookView) Implements Interfaces.IExcelWorkBook.Workbook_Open
   
2.             EV = Excel
   
3.             Excel.GetLock()
   
4.             AW = Excel.ActiveWorkbook
   
5.             Range = AW.ActiveWorksheet.Range
   
6.             Excel.ReleaseLock()
   
7.             ActiveWorkbook.WorkbookSet.GetLock()
   
8.             Dim i As Integer
   
9.             For i = 0 To ActiveWorkbook.ActiveWorksheet.Shapes.Count - 1
   
10.                 If ActiveWorkbook.ActiveWorksheet.Shapes(i).Name = "Button 1" Then
    
11.                     ActiveWorkbook.ActiveWorksheet.Shapes(i).Visible = False
    
12.                 End If
    
13.             Next i
    
14.             ActiveWorkbook.WorkbookSet.ReleaseLock()
    
15.             '位置：2保存3新增4提交5退回6进度7打印8预览9导出10捕获11上传图片12上传附件13插入行14插多行15删除行16查找17最后
    
16.         End Sub '打开时执行事件

复制代码

填报修改删除查阅时隐藏明细按钮

通过VBA将明细表的系统生成复制的按钮隐藏了

1.         Public Sub Workbook_Open(OldRoot As Grid, NewRoot As Grid, Excel As SpreadsheetGear.Windows.Controls.WorkbookView) Implements Interfaces.IExcelWorkBook.Workbook_Open
   
2.             EV = Excel
   
3.             Excel.GetLock()
   
4.             AW = Excel.ActiveWorkbook
   
5.             Range = AW.ActiveWorksheet.Range
   
6.             Excel.ReleaseLock()
   
7.             ActiveWorkbook.WorkbookSet.GetLock()
   
8.             Dim i As Integer
   
9.             For i = 0 To ActiveWorkbook.ActiveWorksheet.Shapes.Count - 1
   
10.                 If ActiveWorkbook.ActiveWorksheet.Shapes(i).Name = "Button 1" Then
    
11.                     ActiveWorkbook.ActiveWorksheet.Shapes(i).Visible = False
    
12.                 End If
    
13.             Next i
    
14.             ActiveWorkbook.WorkbookSet.ReleaseLock()
    
15.             '位置：2保存3新增4提交5退回6进度7打印8预览9导出10捕获11上传图片12上传附件13插入行14插多行15删除行16查找17最后
    
16.         End Sub '打开时执行事件

复制代码