[已解决]如何禁止更改跟删除工作表标签

hytsky · 发表于 2011-11-9 19:12

如何禁止更改跟删除工作表标签请不要在退出工作时才检查，要在更改时就提示不能更改或删除请高手帮忙，谢谢

最佳答案

月排行榜 / 总排行榜

Zipall

2011-11-10 14:13

hytsky 发表于 2011-11-10 14:01
我想要的是用VBA代码实现的，这样我就可以实现只对某些工作表进行保护

thisworkbook中添加代码,在指定工作表激活时保护工作簿,否则解保.

test.rar (7.08 KB, 下载次数: 725)

hytsky · 发表于 2011-11-10 08:05

没有设最佳答案，别人回答都没动力了，求救的人都得不到帮助了，哎{:191:}

wayy · 发表于 2011-11-10 08:33

保护工作簿就可以了。

mf_wei · 发表于 2011-11-10 10:22

保护结构和窗口

hytsky · 发表于 2011-11-10 14:00

mf_wei 发表于 2011-11-10 10:22
保护结构和窗口

我想要的是用VBA代码实现的，

hytsky · 发表于 2011-11-10 14:01

wayy 发表于 2011-11-10 08:33
保护工作簿就可以了。

我想要的是用VBA代码实现的，这样我就可以实现只对某些工作表进行保护

Zipall · 发表于 2011-11-10 14:13

这个最佳答案由 Zipall 给出，感谢 Zipall 的回答。

单击隐藏图章

hytsky 发表于 2011-11-10 14:01
我想要的是用VBA代码实现的，这样我就可以实现只对某些工作表进行保护

thisworkbook中添加代码,在指定工作表激活时保护工作簿,否则解保.

test.rar (7.08 KB, 下载次数: 725)

hytsky · 发表于 2011-11-10 16:51

Zipall 发表于 2011-11-10 14:13
thisworkbook中添加代码,在指定工作表激活时保护工作簿,否则解保.

你的代码只实现了你删不了我这个工作表，如果我想要sheet2也删不了的话却无法实现，我按你的方法在加上sheet2的话也只实现对一张表的操作，
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "你删不了我" Then ThisWorkbook.Protect Else ThisWorkbook.Unprotect
If Sh.Name = "Sheet2" Then ThisWorkbook.Protect Else ThisWorkbook.Unprotect
End Sub
是不是我加的代码是错的

wayy · 发表于 2011-11-10 21:59

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "你删不了我" or Sh.Name = "Sheet2"
      Then ThisWorkbook.Protect
   Else
      ThisWorkbook.Unprotect
end if
End Sub

Zipall · 发表于 2011-11-11 16:38

用wayy版主的方法,或者也可以用select case语句

select case sh.name
case "要保护的1","要保护的2","要保护的n"
thisworkbook.protect
case else
thisworkbook.unprotect
end select

case语句中还可以使用 to 或者 like这样的方法指定范围或模糊匹配.
具体可以参考帮助文件.

		自动登录	找回密码
密码			注册