文件名与工作表名一样
2008-3-18 20:51:19 阅读26 评论0 182008/03 Mar18
Private Sub Workbook_Open()
Sheet1.Name = ThisPrivate Sub Workbook_Open()
Sheet1.Name = ThisWorkbook.Name
End SubWorkbook.Name
End Subhttp://club.excelhome.net/dispbbs.asp?boardID=1&ID=306383&page=1&px=0
Sheet1.Name = ThisPrivate Sub Workbook_Open()
Sheet1.Name = ThisWorkbook.Name
End SubWorkbook.Name
End Subhttp://club.excelhome.net/dispbbs.asp?boardID=1&ID=306383&page=1&px=0
标题：禁止更改工作表名解
2008-1-18 16:28:02 阅读62 评论0 182008/01 Jan18
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