GIF6.gif

工作薄事件寫(xiě)在thisworkbook中。

Private Sub Workbook_Open()
mon = Format(Now(), "m")
Sheets(mon & "月").Select
End Sub

------------------------------------

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True '禁用右鍵
End Sub

---------------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Month(Now()) & "月" <> ActiveSheet.Name Then
    MsgBox "不能打印"
    Cancel = True
Else
    MsgBox "能打印"
    Cancel = False
End If
End Sub

①打卡工作簿后自動(dòng)激活當(dāng)前月份的工作表
②禁用右鍵事件
③工作表名稱與當(dāng)前月份不一致時(shí)禁止打印

事件中的Cancel:

默認(rèn)為false，在完成事件內(nèi)代碼效果后，接著繼續(xù)完成操作的后續(xù)效果。
而為true時(shí)，在完成事件內(nèi)代碼效果后，終止當(dāng)前操作的后續(xù)效果。

相當(dāng)于給用戶控制事件提供一個(gè)開(kāi)關(guān)。可以把用戶自定義事件代替默認(rèn)事件
沒(méi)有Cancel就是說(shuō)不給你這個(gè)控制權(quán)限，一旦一始就要按流程結(jié)束。

單純的事件并不好用，尤其是excel與wps切換時(shí)，總會(huì)出現(xiàn)種種問(wèn)題。兼容性不是很好，本著實(shí)用的目的，EXCELvba學(xué)會(huì)錄制宏，工作簿與工作表的基本操作，數(shù)組，字典，正則表達(dá)式，了解一些控件，圖形化操作，基本上到達(dá)了初級(jí)階段水平，可以行走江湖了。
當(dāng)然EXCELvba這種語(yǔ)言知道的知識(shí)冰山一角，它還有許多的接口，比如word接口,ACCESS接口等，大大拓展了VBA的功能。
永遠(yuǎn)要知曉的是：計(jì)算機(jī)語(yǔ)言只是工具，業(yè)務(wù)能力才是主要的。