当前位置：首页 → 问答吧 → 禁用宏关闭工作薄代码如何写？

禁用宏关闭工作薄代码如何写？

时间：2006-03-29

来源：互联网

请高手指点：打开工作薄时，必须时必须启用宏，禁用宏就关闭文件运行？代码如何写？多谢各位！

作者: nowarmy 发布时间: 2006-03-29

搜索禁用宏

作者: plxmm 发布时间: 2006-03-29

感觉不太可能，既然宏已经被禁用了，任何代码都不会生效，又怎么关闭文件？

作者: zotin 发布时间: 2006-03-29

引用:

以下是引用[I]zotin[/I]在2006-3-29 14:20:31的发言：[BR]感觉不太可能，既然宏已经被禁用了，任何代码都不会生效，又怎么关闭文件？

按作者搜索老刀

作者: plxmm 发布时间: 2006-03-29

老刀兄之大作【不啟用巨集無法打開工作簿】一時風靡Excel論壇，唯按著Shift鍵開啟巨集仍可開啟檔案，著實有點遺憾。World Lonely兄研究後稱他已經試出了突破按著Shift鍵開啟巨集的限制！我也發現了關鍵之處，特發表此篇文章以與World Lonely兄印證，並做為老刀兄此大作一個完美的句點。

'Declare APIDeclare Function GetKeyState Lib "User32" _(ByVal vKey As Integer) As IntegerConst SHIFT_KEY = 16Function ShiftPressed() As Boolean'Returns True if shift key is pressedShiftPressed = GetKeyState(SHIFT_KEY) ＜ 0End FunctionSub Demo()Do While ShiftPressed()DoEventsLoopWorkbooks.Open ="C:My DocumentsShiftKeyDemo.xls"End Sub借花．．．．

作者: 彭希仁发布时间: 2006-03-29

Option Explicit

Private Sub workbook_beforeclose(cancel As Boolean)
On Error Resume Next
ActiveWindow.Visible = False
End Sub

Private Sub Workbook_Open()

On Error Resume Next
Windows(Windows.Count).Visible = True
End Sub

作者: zzf_ 发布时间: 2006-03-29

Option Explicit

'Modified by [email protected]

'Purpose: 不起用巨集不能開啟檔案

'Module: Thisworkbook

'Method: Macro4

Private Sub Workbook_Open()

Application.EnableCancelKey = xlDisabled