vba設置文件屬性只讀

⑴ excel vba 用只讀的方法打開文件的問題

Suba()
DimmypathAsString
DimmyfileAsString
mypath="d:123"
myfile="a.xls"
Workbooks.Openmypath&myfile,,True
EndSub

在OPEN中的第三個參數。=TRUE表示，為只讀方式專打開。

測試屬OK！

⑵ vba怎麼把源文件復制過去的東西變成只讀

首先將 在引用中 米microsoft.scripting.runtime 勾上.否則會報錯的.如下圖

⑶ 在VBA中怎麼用語言改變excel的只讀屬性為讀寫屬性

如果是Sheet的話，可以用一下方法

Sheets(sheet名).Unprotect (密碼)

如

Sheets("Sheet1").Unprotect("123")

如果是工作簿，用以下方法

ActiveWorkbook.WritePassword = ""

⑷ vba如何實現對只讀文件傳數據

將excel和word放在同一目錄下,在excel中建立按鈕,雙擊後輸入下列代碼:PrivateSubCommandButton1_Click()Application.ScreenUpdating=False'關閉屏幕刷新OnErrorResumeNext'捕捉錯誤DimoStAsRange,wdDocAsWord.Document,wdRangeAsWord.RangemyPath=ThisWorkbook.Path&"\2.doc"'定義word文件路徑,名字自己修改,我設定為2.docSetwdDoc=GetObject(myPath)'打開wordDimkey(2)'定義一下數組,key(1)="abcdefg"'要替換的數據key(2)="hijklmn"SetwdRange=wdDoc.Content'將word的文檔內容賦予wdrangeFori=1To2'循環WithwdRange.Find.Text=key(i)'查找.Replacement.Text=key(i)&IIf(i=1,Cells(1,1).Value,Cells(5,2).Value)'替換.Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndWithwdRange.Find.ExecuteReplace:=wdReplaceAll'全部替換NextwdDoc.Save'保存wordwdDoc.Close'關閉wordSetwdDoc=NothingApplication.ScreenUpdating=True'開啟屏幕刷新EndSub經測試,已經達到樓主要求,請追加分數並採納.呵呵