VSTO中如何禁止删除某一特定工作表

xmhjf

VSTO中如何禁止删除某一特定工作表？哪位大侠能帮忙写个范例，谢谢

tet208

这个很简单。。。

打开表格的时候（也就是人还没有开始操作的时候），检查指定的表是否存在。存在就复制一张然后隐藏
用户每次selectchange的时候 检查一次 这个表在不在。。。如果不在了。。那就不是删除了么。。你做提示：不允许删除。然后再恢复。。
文件关闭的时候。。。自动删除备份的表格。。
这个方法比较愚蠢。。但是比较容易实现，可以保留原来的所有 颜色字体 公式。。。。是保守做法

当然你可以把每个单元格的内容加载入单独的内存空间。。判断不在后再写入回去。。。这个。。涉及你的数据结构。如果你有表格的任何信息没有保存上。恢复的时候这些东西就丢失了。。。什么注释。格式什么的

最牛逼的。也是最复杂的。。就是API去挂个钩子。。检测用户有没有按下 删除表格的按键，再判断是不是禁止删除的。。。然后拦截这个消息。。这个是最高明的。。也是技术含量最高的。。

当然还有更牛逼的。。。就是 修改表名为  “表名（不准删除）”，一般情况下不遇上变态级的用户 这个表都是存在的。。

xmhjf

VBA有如下的实例代码，但是搬到VSTO无法到达目的。

#001 Public Ctl As CommandBarControl
#002 Sub DelSht()
#003 Set Ctl = Application.CommandBars.FindControl(ID:=847)
#004 Ctl.OnAction = "MyDelSht"
#005 End Sub
#006 Sub ResSht()
#007 Set Ctl = Application.CommandBars.FindControl(ID:=847)
#008 Ctl.OnAction = ""
#009 End Sub
#010 Sub MyDelSht()
#011 If VBA.UCase$(ActiveSheet.CodeName) = "SHEET2" Then
#012 MsgBox "禁止删除" & ActiveSheet.Name & "工作表!"
#013 Else
#014 ActiveSheet.Delete
#015 End If
#016 End Sub

tet208

xmhjf 发表于 2013-1-28 09:04
VBA有如下的实例代码，但是搬到VSTO无法到达目的。

#001 Public Ctl As CommandBarControl

你这个 好像是。。。excel2000的代码。。。。

amesman

1. Dim WithEvents DelAnNiu As Office.CommandBarButton
   
2.     Private Sub ThisWorkbook_Startup() Handles Me.Startup
   
3.         DelAnNiu = Application.CommandBars.FindControl(Id:=847)
   
4.     End Sub
   
5. Private Sub DelAnNiu_Click(ByVal Ctrl As Microsoft.Office.Core.CommandBarButton, ByRef CancelDefault As Boolean) Handles DelAnNiu.Click
   
6.         If ActiveSheet.Name = "Sheet1" Then
   
7.             MsgBox("本表禁止删除！")
   
8.             CancelDefault = True
   
9.         End If
   
10.     End Sub

复制代码

xmhjfang

amesman 发表于 2013-1-28 20:21

用了你的代码在2010里面测试无效，什么情况。。。

amesman

2010没试过，我的是2007，测试通过。。。