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

　　如何excel中使用vba以只讀方式打開工作薄的操作?具體怎么設(shè)置的呢?今天，學(xué)習(xí)啦小編就教大家在Excel中使用vba以只讀方式打開工作薄的操作方法。

　　Excel中使用vba以只讀方式打開工作薄的操作步驟如下：

　　首先我們打開一個(gè)工作樣表作為例子。

　　我們使用alt+f11組合快捷鍵進(jìn)入vbe編輯器，插入一個(gè)新的模塊，并在模塊中輸入以下代碼：

　　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

　　以只讀模式打開的工作表可以編輯，但是不能保存，可以另存為其他的文件，這樣的一種操作限制可以很安全的保護(hù)原有文檔。可以編輯的文檔文檔標(biāo)題欄是如圖所示的。

　　而以只讀方式打開的excel工作薄卻是顯示了只讀的提示字樣。

　　我們這里對工作薄workbooks對象使用了open方法，來打開一個(gè)變量聲明將路徑文件名賦予的fname變量。并且，設(shè)置其為只讀方式打開。filename和readonly均是open方法的參數(shù)。其中filename參數(shù)是必須的。

　　如果是在excel中操作這一方法，則是選擇打開文件命令，選擇好需要打開的文件夾后，在選項(xiàng)框中選擇以只讀方式打開，這樣的操作步驟很簡單，但是當(dāng)每次都要運(yùn)行同一文件時(shí)，使用vba明顯更高效。