VBA代码库11：强制用户启用宏（续）
excelperfect
在《VBA代码库10：强制用户启用宏》中，讲解了一段用户在打开工作簿时必须启用宏才能使用工作簿功能的代码。本文给出另一段同样可以实现强制用户启用宏的代码。
如果用户没有启用宏，那么当打开工作簿时，一个特定的工作表将提示用户启用宏，而工作簿中的其他工作表则被隐藏。
代码如下：
Private Sub Workbook_Open()
With Application
'禁用ESC键
.EnableCancelKey = xlDisabled
.ScreenUpdating = False
Call UnhideSheets
.ScreenUpdating = True
'重新启用ESC键
.EnableCancelKey = xlInterrupt
End With
End Sub
Private Sub UnhideSheets()
Dim Sheet As Object
For Each Sheet In Sheets
If Not Sheet.Name = '提示' Then
Sheet.Visible = xlSheetVisible
End If
Next
Sheets('提示').Visible = xlSheetVeryHidden
'Application.Goto Worksheets(1).[A1], True '< 可选的
Set Sheet = Nothing
ActiveWorkbook.Saved = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.EnableCancelKey = xlDisabled
.ScreenUpdating = False
Call HideSheets
.ScreenUpdating = True
.EnableCancelKey = xlInterrupt
End With
End Sub
Private Sub HideSheets()
Dim Sheet As Object '< 包括工作表和图表工作表
With Sheets('提示')
'工作表的隐藏构成了一种变化,这种变化产生了
'自动的'保存？'提示,所以如果工作簿已经
'在此之前被保存,那么下一行和前几行
'与下面的.[A100]有关,绕过“保存？”对话...
If ThisWorkbook.Saved = True Then.[A100] = 'Saved'
.Visible = xlSheetVisible
For Each Sheet In Sheets
If Not Sheet.Name = '提示' Then
Sheet.Visible =xlSheetVeryHidden
End If
Next
If .[A100] = 'Saved' Then
.[A100].ClearContents
ThisWorkbook.Save
End If
Set Sheet = Nothing
End With
End Sub
注：本文的代码整理自vbaexpress.com。