一段簡單的VBA代碼，讓你自如操作Excel，成為職場達人！
拋磚引玉的場景需求：有些工作簿，發(fā)給別人使用的時候，故意設(shè)置只能被閱讀一次！別人閱讀完關(guān)閉后， 就不能再重新打開工作簿了！這種場景我們需要使用工作簿事件來實現(xiàn)！見下面代碼實現(xiàn)需求！
代碼示例
在工作簿模塊中加入如下代碼即可實現(xiàn)上面的演示功能。
Private Sub Workbook_Open()
Dim x As Long
With Worksheets("隱藏表")
x = .Cells(1, "A") + 1
.Cells(1, "A") = .Cells(1, "A") + 1
End With
If x > 1 Then
MsgBox "本工作簿只能閱讀1次! "
Application.Quit
End If
End Sub
注意1：工作簿中，我們隱藏了一個工作表 ，表名稱為“隱藏表”，我們每次打開工作簿，就將該表中的A1單元格值累加1，從而記錄打開了幾次！
注意2： 務(wù)必將工作簿保存為.xlsm宏文件格式，在發(fā)給別人！
動手試一試，屏幕前的你， 復(fù)制代碼運行下吧~~！
更多Excel VBA編程知識（職場牛人必備秘技），可下載安裝使用一款優(yōu)秀職場人必備的工具《神奇的VBA》插件，一款嵌入進Excel Ribbon界面，打開任意Excel工作簿就能隨時查閱學(xué)習(xí)VBA編程的Excel 插件。
插件下載地址戳下面鏈接：
《神奇的VBA》選項卡樣式
神奇的VBA使用演示圖
