禁止更改工作表名

andysky

QUOTE:

启用宏才行

QUOTE:

Dim aa, bb
Private Sub Workbook_Open()
    aa = ActiveSheet.Name
    bb = ActiveSheet.Index
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    aa = ActiveSheet.Name
    bb = ActiveSheet.Index
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    On Error Resume Next
    If Sheets(bb).Name <> aa Then Sheets(bb).Name = aa
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    If Sheets(bb).Name <> aa Then Sheets(bb).Name = aa
End Sub

---

[此贴子已经被作者于2007-8-29 15:59:39编辑过]

zz5151353

好東西,謝謝版主提供分享 !!!

 

[em23][em23][em23]

 

[em24][em24][em24]

 

[em27][em27][em27]

naive_1010

不错！！ 受用！
顶一下！

loveminmin

谢谢

hubin200267

请问这个代码放在那个工作表窗口下

 

[em06]

hubin200267

有没有一组代码，只对一个工作表的名称进行保护

ruki86

不错，好东西

dodb

有学到一招

堕落王

哈哈，楼主吧 代码都提供给我们了，太好了，顺便用用，

改天我做一个 ，给同事分享分享，顺便让她  不可以修改，哈哈

歌盛

这个挺有用的，谢谢分享