[求助]如何限制工作薄中工作表的数量?

emr · 发表于 2010-9-8 14:57

不错的vba代码，这样可以很好控制一个Excel文件中的Sheet数。

jdmlw · 发表于 2010-10-13 09:13

正在努力学习，请各位多多指教

jixiangwu · 发表于 2011-1-20 19:50

Private Sub Workbook_NewSheet(ByVal Sh As Object)
If ThisWorkbook.Sheets.Count > 8 Then
      MsgBox "Sheets should not exceed 6, new sheet will be deleted"
      Application.DisplayAlerts = False
      ActiveSheet.Delete
      Application.DisplayAlerts = True
End If
End Sub

Alan-LJC · 发表于 2013-3-28 11:40

有点搞不懂类

china047 · 发表于 2013-3-28 12:15

学习了!!!!

china047 · 发表于 2013-3-28 12:25

taller 发表于 2005-1-3 16:55
button兄说的对,我的示例考虑欠周到,代码可以改为[此贴子已经被作者于2005-1-3 17:01:10编辑过]

[ 本帖最后 ...

If Sh.Parent.Sheets.Count > 5 Then
这句好像要出错啊!

banjinjiu · 发表于 2013-7-14 21:36

If Sh.Parent.Sheets.Count & gt>5 Then

复制代码

好像我的2003，XP系统失灵，不行额。

challenge24 · 发表于 2018-2-17 22:12

类模块能看明白，
public myApp as class1

和事件中的语句怎么理解？

yzxfelix · 发表于 2019-11-25 02:08

好贴一定要顶，学习了，留底保存。

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