国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 辦公 > Excel > 正文

讓EXCEL文件只能在某臺計算機上打開的VBA代碼

2024-08-23 19:53:38
字體:
來源:轉載
供稿:網友

  如何讓某個Excel文件,限制在某臺電腦上打開,而其它電腦不能打開該EXCEL文件。

  這得借助VBA代碼來實現。

  只需要在工作薄打開的事件中,添加如下代碼即可。

  PRivate Sub Workbook_Open()

  application.ScreenUpdating = False

  On Error GoTo 100

  Workbooks.Open ThisWorkbook.Path & "/驗證.XLS"

  ActiveWorkbook.Close False

  Exit Sub

  100:

  MsgBox "你無權使用該文件"

  ThisWorkbook.Close False

  Application.ScreenUpdating = True

  End Sub


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 克拉玛依市| 缙云县| 安远县| 怀集县| 外汇| 雅安市| 张家界市| 卫辉市| 波密县| 年辖:市辖区| 商洛市| 临江市| 麟游县| 苏州市| 望江县| 泰和县| 临清市| 莱州市| 连城县| 资溪县| 竹北市| 佛山市| 五大连池市| 图木舒克市| 隆德县| 峨眉山市| 衡东县| 图木舒克市| 宁都县| 进贤县| 金乡县| 黄冈市| 商南县| 开平市| 武定县| 大同市| 邵阳市| 布拖县| 黑山县| 海晏县| 乌拉特中旗|