为什么移动复制进新的工作表后，原来的禁止宏后隐藏"空白"工作表代码无法使用了？没移动或复制进新表的时候可以用，将移动复制进来的新表删除也无法实现隐藏功能了，求大神是什么问题呢？[quote][/quo te]

我是把别的工作簿里的表复制移动到有这代码的工作簿里，里面也有空白表，单是不执行，原来没有新表移动进来的时候代码还能执行复制移动新表进来以后就不执行了，是不是表太多了还是哪里的问题呢？

Private Sub Workbook_BeforeClose(Cancel As Boolean )
Sheet1.Uisible = True
For Each sh In ThisWorkbook.sheets
IF sh.Name<>"空白·Then
 sh.visible = x1SheetUeryHidden
End If
next
ActiveWorkbook.Saved=True
 End Sub

Private Sub Workbook Open()
For Each sh In ThisWorkbook Sheets
If sh.Name<>"空白"Then
sh Visible=xSheetVisible
End If
Next
Sheet1.visible =x1SheetVeryHidden
Application.isible-False隐藏工作薄
UserForm1.Show"打开登录窗体
End sub
请大神帮忙看看指点指点哪里出了问题，谢谢