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

首頁 > 辦公 > Excel > 正文

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

2019-10-25 20:23:33
字體:
來源:轉載
供稿:網友

  如何讓某個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


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 南平市| 满城县| 平凉市| 滨海县| 萨嘎县| 恩施市| 古丈县| 玉门市| 沂南县| 云霄县| 保山市| 宜都市| 庆阳市| 芷江| 永顺县| 万山特区| 长阳| 通榆县| 罗平县| 遂宁市| 宣武区| 安徽省| 宜都市| 伊金霍洛旗| 沁水县| 上虞市| 乐清市| 莎车县| 兴仁县| 武城县| 北安市| 勐海县| 来凤县| 山丹县| 临猗县| 方正县| 新田县| 信宜市| 论坛| 兰溪市| 塔河县|