|
奇怪了,不知道什么原因,“修改稿”文件无法打开了。请大侠、高手、老师帮助解决。
“初稿”仍可以打开,但在此基础了的“修改稿”,看来是语句写错了,导致文件进入“封面页”,就无法打开,好像是死循环。
两个文件的设计顺序是这样的:
一、打开文件
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()下的语句时,忘记操作了什么,记得仅仅是给几个数组赋值,然后测试,文件就打不开了。
“修改稿”花了几天时间在程序运行方面写了不少语句,如果真的打不开,那几天的心血就泡汤了。
求助!!!!!!
|
|