有奖:判断是当前文件夹中A.xls 文件是否为只读

戏子 · 发表于 2008-2-15 15:17

一句代码[em05]

wayy · 发表于 2008-2-15 15:23

等着学习，呵呵。

element · 发表于 2008-2-15 15:31

If GetObject(ThisWorkbook.Path & "\a.xls").ReadOnly Then MsgBox "read only"

lllllllll · 发表于 2008-2-15 15:33

MsgBox ActiveWorkbook.ReadOnlyRecommended

lllllllll · 发表于 2008-2-15 15:35

哦当前中的A 忘了

hhzjxss · 发表于 2008-2-15 15:41

[此贴子已经被作者于2008-2-15 15:46:49编辑过]

Excel教程 · 发表于 2008-2-15 15:44

向各位学习了

戏子 · 发表于 2008-2-15 16:17

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>element</i>在2008-2-15 15:31:00的发言：</b><br/>If GetObject(ThisWorkbook.Path & "\a.xls").ReadOnly Then MsgBox "read only"</div><p></p>全让院长抢劫啦~~[em01]

八月的梦游者 · 发表于 2008-2-15 16:26

MsgBox IIf(GetAttr(ThisWorkbook.Path & "\a.xls") And vbReadOnly, "只读", "可写")

element · 发表于 2008-2-15 16:29

<p>GetAttr[em17]</p>

		自动登录	找回密码
密码			注册