宏文件求助

江月初照

奇怪了，不知道什么原因，“修改稿”文件无法打开了。请大侠、高手、老师帮助解决。
“初稿”仍可以打开，但在此基础了的“修改稿”，看来是语句写错了，导致文件进入“封面页”，就无法打开，好像是死循环。

两个文件的设计顺序是这样的：
一、打开文件
Private Sub Workbook_Open()
    S1 = 0
    S1 = Len(Dir("C:\WINDOWS\system\checkfile.txt"))
    If S1 = 0 Then
        MsgBox Prompt:="非法用户  ！ ", Title:="警告 ！", Buttons:=vbExclamation
        ActiveWorkbook.Close savechanges:=False
        Exit Sub
    End If
    ActiveWorkbook.Unprotect Password:=Sheets("控制").Range("AA501")'密码：WODECHENGXU
    Sheets("封面页").Visible = True
    Call 隐藏行列号等
    Sheets("封面页").Select
    封面窗.Show
End Sub

二、单击封面页into_system按钮
Public SalesBillRoom_arr, InvoiceRoom_arr, CustomerRoom_arr, ReceiveCashRoom_arr '销售单库数组、发票数组、收款单数组、全体客户数组
Public SalesBillRoom_Records, InvoiceRoom_Records, ReceiveCashRoom_Records, CustomerRoom_Records '销售单库记录行数、全部发票记录行数、全部收款单记录行数、全部客户记录行数

Private Sub into_system_Click()
SalesBillRoom_Records = Sheets("销售单据库").Range("A" & Rows.Count).End(xlUp).Row - 2
InvoiceRoom_Records = Sheets("发票").Range("A" & Rows.Count).End(xlUp).Row - 2
ReceiveCashRoom_Records = Sheets("收款单").Range("A" & Rows.Count).End(xlUp).Row - 2
CustomerRoom_Records = Sheets("客户").Range("A" & Rows.Count).End(xlUp).Row - 2

ActiveWorkbook.Unprotect Password:=Sheets("控制").Range("AA501")
Sheets("封面页").Visible = False
Sheets("主菜单页").Visible = True
Sheets("主菜单页").Select
Call 隐藏行列号等
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=Sheets("控制").Range("AA501")'密码：WODECHENGXU
ActiveWorkbook.Protect Password:=Sheets("控制").Range("AA501"), Structure:=True, Windows:=False'密码：WODECHENGXU
End
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ActiveWorkbook.Protect Password:=Sheets("控制").Range("AA501"), Structure:=True, Windows:=False
    ActiveWorkbook.Close savechanges:=False
End Sub

在编辑“修改稿”的into_system_Click()下的语句时，忘记操作了什么，记得仅仅是给几个数组赋值，然后测试，文件就打不开了。
“修改稿”花了几天时间在程序运行方面写了不少语句，如果真的打不开，那几天的心血就泡汤了。

求助！！！！！！

psxk3535

修改稿的窗体及宏都已经导出，修改稿文件去掉了宏，打开后导入窗体及模块调整吧，初稿未动，窗体和模块也已经导出。应该没有隐藏起来的宏吧，如果有，就是我没有移除掉，也没有什么关系吧。

江月初照

佩服！佩服！无比佩服！真是高手啊。
一夜没有睡好，没想到早晨起来，看到您轻易就解决了。

一万个谢谢。