find upload -type d -exec chmod 555 {} \ #找到所有文件夹,设置权限为读执行
find upload -type f -exec chmod 444 {} \ #找到所有文件,设置权限为只读
如果你会用宏 可以使用以下代码 只读打开宏
'=======打开远程表格(计划1)开始===============
Set ExcelApp = CreateObject("Excel.Application") '创建EXCEL对象
Set ExcelBook = ExcelApp.Workbooks.Open("y:\计划1.xls", ReadOnly:=True)
Set ExcelSheet = ExcelBook.Worksheets("计划1")
'=======打开远程表格(计划1)结束===============
其他代码位置
'=======保存并关闭远程表格(计划1)开始==========
ExcelBook.Save(false)
ExcelBook.Close
Set ExcelSheet = Nothing
Set ExcelBook = Nothing
Set ExcelApp = Nothing
'=======保存并关闭远程表格(计划1)结束=========
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)