跪求大侠们进来看看！帮帮小弟看看Excel宏！谢谢

爱是一场梦

这个是屏蔽复制粘贴剪切 为什么我每次打开都要运行下宏才能用下面的代码！弹出表格宏运行时错误91 变量对象或With块变量未设置！
Sub EnableMenu()
Dim oExcel
Set oExcel = Application
oExcel.CommandBars("edit").Controls(3).Enabled = False
oExcel.CommandBars("edit").Controls(4).Enabled = False
oExcel.CommandBars("edit").Controls(5).Enabled = False
oExcel.CommandBars("edit").Controls(6).Enabled = False
oExcel.CommandBars("edit").Controls(7).Enabled = False
oExcel.CommandBars("cell").Controls(1).Enabled = False
oExcel.CommandBars("cell").Controls(2).Enabled = False
oExcel.CommandBars("cell").Controls(3).Enabled = False
oExcel.CommandBars("cell").Controls(4).Enabled = False
oExcel.CommandBars("Standard").Controls(10).Enabled = False
oExcel.CommandBars("Standard").Controls(11).Enabled = False
oExcel.CommandBars("Standard").Controls(12).Enabled = False
oExcel.OnKey ("^x"), ""
oExcel.OnKey ("^c"), ""
oExcel.OnKey ("^v"), ""
End Sub

这个是屏蔽另存为的代码！请各位大侠帮小弟加个屏蔽输出的代码！
Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
Dim response As Long
If SaveAsUI = True Then
response = MsgBox("该工作簿不答应用“另存为”来保存，" & _
"你要用原工作簿名称来保留吗？ ", vbQuestion + vbOKCancel)
Cancel = (response = vbCancel)
If Cancel = False Then Me.Save
Cancel = True
End If
End Sub