超市代码.docVIP

P213-214 Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.Caption = Microsoft Excel Application.CommandBars(Toolar List).Enabled = True Application.CommandBars(Standard).Visible = True Application.CommandBars(Formatting).Visible = True Application.DisplayFormulaBar = True ActiveWindow.DisplayWorkbookTabs = True For j = 1 To Sheets.Count If Sheets(j).Name 主界面 Then Sheets(j).Visible = False End If Next j ActiveWorkbook.Protect Password:=wyh Me.Save End Sub P213 Private Sub Workbook_Open() Application.ScreenUpdating = False Application.Caption = 长沙理工大学勤工助学基地库存管理系统 ActiveWindow.Caption = Application.CommandBars(Toolbar List).Enabled = False Application.CommandBars(Standard).Visible = False Application.CommandBars(Formatting).Visible = False Application.DisplayFormulaBar = False Application.DisplayStatusBar = True ActiveWindow.DisplayWorkbookTabs = False ActiveWorkbook.Unprotect Password:=wyh Sheets(主界面).Visible = True Sheets(主界面).Activate ActiveWindow.ScrollColumn = 1 Sheets(主界面).ScrollArea = D1 Application.ScreenUpdating = True End Sub P210-211 Private Sub Worksheet_Activate() Dim intRow As Integer, intRow1 As Integer, i As Integer Sheets(盘点表).ScrollArea = A1:K65536 intRow = Sheets(月度库存).[B65536].End(x1Up).Row If intRow 6 Then MsgBox 要生成盘点表，需要先生成月度库存表！, _ vbOKOnly, 库房管理系统 Sheets(月度库存).Activate Exit Sub End If With Sheets(盘点表) .ScrollArea = A4:K65536 .Unprotect Password:=wyh .Visible = True intRow1 = .[A65536].End(x1Up).Row If intRow1 = 4 Then Range(A4:J intRow1 ).Delete intRow1 = 4 For i = 6 To intRow For j = 2 To 7 .Cells(intRow1, j) = Sheets(月度库存).Cells(i, j) Next j .Cells(intRow1, 8) = Sheets(月度库存).Cells(i, 14)