怎么通過代碼實現(xiàn)只允許打開特定Excel工作表？

1、啟動Excel并打開Visual Basic編輯器，在工程資源管理器中雙擊"Sheet1(Sheet1)"選項打開工作表Sheet1的“代碼”窗口，在其中輸入程序代碼，如圖1所示。具體程序代碼如下所示：

Private Sub Worksheet_Deactivate()

MsgBox"您只能查看當前工作表!"

Sheets(1).Activate

End Sub

圖1　在“代碼”窗口中添加程序代碼

提示

在Excel中，當用戶單擊其他工作表標簽時，當前工作表將產生Deactivate事件過程，因此只要在這個事件過程中使用Activate方法使當前工作表再次被激活，就可以實現(xiàn)禁止打開其他工作表。

2、切換到Excel，當選擇其他的工作表時，程序將給出提示，此時無法激活其他工作表，如圖2所示。

圖2　選擇其他工作表時給出提示