Question

EXCEL打开时某值符合条件，用VBA使当前工作薄为只读，否则...

例如 ：当Sheets("sheet1").Range("A1") >1 时 工作薄为只读。

Answer 1

sub a()
dim mypath as string
dim myfile as string
mypath = "并族d:\123\"
myfile = "a.xls"
workbooks.open mypath & myfile, , true
end sub
在唯蔽判open中的第指改三个参数。=true表示，为只读方式打开。
测试ok！

Answer 2

thisworkbook.readonly 是只读属性,没办族物法设置
除非你是VBA打开另一个工作簿
打开后碧耐判断
然兆慧液后关闭,重新以readonly方式打开

追问

刚才用了 ActiveWorkbook.ReadOnlyRecommended = True
打开时把文件设置为只读了，但提示另存，比较麻烦，我现在换个思路，当符合条件时，禁用保存，包括代码自动保存和点击保存等等。。。请问代码要怎么写？

追答

禁用保存 有个Workbook_BeforeSave触发函数，Cancel 设置为true Cancel=true就不会保存了
自动保存 /点击保存 必须把工作簿设置回 非只读，然后执行save就可以了