|
附件打开“录入日报.xls",密码jy000。进去后,按快捷键F11,打开另一工作簿,里面的以下代码就不生效,请问老师怎么解决!
Private Sub Workbook_Open()' 为什么以下代码不生效?
Application.ScreenUpdating = False
Sheets("录入").Activate '默认打开工作表
Application.OnKey "{Esc}", "录入数据"
Application.OnKey "{F12}", "财收22" '创建单元格公式
Application.OnKey "^{m}", "用户窗"
Application.OnKey "%{F1}", "旬报"
Application.OnKey "%{s}", "修改退票费"
Application.OnKey "%0", "发放"
Sheet4.Visible = 2 '隐藏挂失
Sheet3.Visible = 2 '隐藏客杂
If Day(Date) = 10 Or Day(Date) = 20 Then Application.OnTime Now + TimeValue("00:02:00"), "ts" '提示打印旬报报表
Sheets("录入").Shapes("Button 1145").Visible = False '隐藏按钮(退款受理)
With Sheets("录入")
If Day(Date) = 1 And Time > TimeValue("10:00:00") And .Cells(39, 1) < 1 Then
.Unprotect ("8812968")
.Range("c5:z35,ad5:ad35,af5:af35,ah5:am35").ClearContents '删除上月数
Run "删除多少缴款登记簿"
.Cells(39, 1) = .Cells(39, 1) + 1
End If
End With
With Sheets("异地手续")
If Day(Date) = 10 Or Day(Date) = 20 Or Date = DateSerial(Year(Date), Month(Date) + 1, 0) And Time > TimeValue("10:00:00") Then
.Visible = -1 '显示财收四
Sheets("核对旬月报").Visible = -1
Sheets("退票费").Visible = -1
Sheets("录入").Shapes("Button 751").Visible = True '显示按钮
Else
.Visible = 2 '隐藏财收四
Sheets("核对旬月报").Visible = 2
Sheets("退票费").Visible = 2
Sheets("录入").Shapes("Button 751").Visible = False '隐藏按钮
End If
End With
With Sheets("异地手续")
.Unprotect ("6123456")
ActiveSheet.ResetAllPageBreaks
.Cells.Locked = True
.Protect ("6123456")
End With
Dim c As Integer
With Sheets("录入")
.Unprotect ("8812968")
ActiveSheet.ResetAllPageBreaks
For c = 5 To 35
If .Range("a" & c) <> Date Or Hour(Time) < 9 Or Hour(Time) > 14 Then
.Range("c" & c & ":ak" & c).Locked = True '锁定单元格
Else
.Range("c" & c & ":z" & c & ",ad" & c & ",ah" & c & ":ak" & c).Locked = False '撤销锁定单元格
End If
Next c
.Protect ("8812968")
End With
Application.GoTo Sheets("录入").Columns("A:B").Find(Format(Date, "yyyy年m月d日"), LookIn:=xlValues).Offset(0, 1), 1 '定位鼠标
If Date = DateSerial(Year(Date), Month(Date) + 1, 0) And Sheets("录入").Range("ak36").Value > 0 Then
Sheets("发放退票费").Visible = -1
Else
Sheets("发放退票费").Visible = 2
End If
On Error GoTo 100
Workbooks.Open "c:\windows\JYPFAA.TXT"
ActiveWorkbook.Close False
Exit Sub
100:
MsgBox "office ?????", 64
Application.ScreenUpdating = True
ThisWorkbook.Close False
End Sub
|
|