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明顯更高效。