[求助]请问在VBA中如何以只读方式打开EXCEL？

chpizbh · 发表于 2005-6-3 14:24

以下是引用两袖清风在2005-6-3 12:12:00的发言：
cooloaky的方法正解

sub openfile()

workbooks.open "d:\1.xls",,true

end sub

问题解决了！谢谢！你的更正很正确。

上面的问题解决了，但是又有新问题了，现在是只读了，但是可以另存为，

现在的问题就是如何禁止另存为呢？

请高手指点！

chpizbh · 发表于 2005-6-4 17:44

期待ing! 如何禁止另存为呢？代码如何编写？

wuxingch · 发表于 2005-6-4 19:26

Sub ww() Dim icom As CommandBarControl For Each icom In Application.CommandBars.FindControls If icom.ID = "748" Then icom.Enabled = False Exit For End If Next End Sub

chpizbh · 发表于 2005-6-4 21:42

没起作用呀！你这段代码是什么意思呀？能给注释一下吗？谢谢你的回答！

plxmm · 发表于 2005-6-3 12:48

谢谢哦。被问题搞晕了。现在清醒些哦。

-- 作者：两袖清风 -- 发布时间：2005-6-3 12:15:00 --
To plxmm

ActiveWorkbook.ReadOnlyRecommended 不是设置只读属性的，请参考帮助

plxmm · 发表于 2005-6-3 11:02

Alt+F11 ，右键单击 VBAProject（1.Xls）－插入模块－把上述代码....呀。然后关闭该文件，在再打开试试。

plxmm · 发表于 2005-6-3 11:35

嘻嘻，那没法哦。

plxmm · 发表于 2005-6-3 10:39

试试

Sub Auto_Colse() ActiveWorkbook.ReadOnlyRecommended = True End Sub'确定把这段代码放到你的1.Xls 模块里哦

plxmm · 发表于 2005-6-2 14:41

？？代码呐。

plxmm · 发表于 2005-6-2 14:55

没有.偶的Winxp+Excel2003

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

[求助]请问在VBA中如何以只读方式打开EXCEL？

浏览过的版块