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经测试,已经达到楼主要求,请追加分数并采纳.呵呵