excel中使用vba以只读方式打开工作薄的操作方法

excel中使用vba以只读方式打开工作薄的操作方法

　　如何excel中使用vba以只读方式打开工作薄的操作?具体怎么设置的呢?今天，学习啦小编就教大家在Excel中使用vba以只读方式打开工作薄的操作方法。

　　Excel中使用vba以只读方式打开工作薄的操作步骤如下：

　　首先我们打开一个工作样表作为例子。

　　我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

　　Sub openWorkbook2()

　　Dim fname As String

　　MsgBox "将c盘中的<新建 Microsoft Excel 工作表.xls>工作簿以只读方式打开"

　　fname = "C:\Users\john\Desktop\新建 Microsoft Excel 工作表.xlsx"

　　Workbooks.Open Filename:=fname, ReadOnly:=True

　　End Sub

　　以只读模式打开的工作表可以编辑，但是不能保存，可以另存为其他的文件，这样的一种操作限制可以很安全的保护原有文档。可以编辑的文档文档标题栏是如图所示的。

　　而以只读方式打开的excel工作薄却是显示了只读的提示字样。

　　我们这里对工作薄workbooks对象使用了open方法，来打开一个变量声明将路径文件名赋予的fname变量。并且，设置其为只读方式打开。filename和readonly均是open方法的参数。其中filename参数是必须的。

　　如果是在excel中操作这一方法，则是选择打开文件命令，选择好需要打开的文件夹后，在选项框中选择以只读方式打开，这样的操作步骤很简单，但是当每次都要运行同一文件时，使用vba明显更高效。