如何解决在保留格式的同时,在 R 中使用密码保护单个 Excel 单元格
从格式化的 Excel 模板中,我使用 R 中的循环(使用 XLConnect 包)填充数据,生成了大量 Excel 文件。现在我想用密码保护所有生成文件的工作表某些单元格的内容,同时保留原始格式(字体、标题颜色、边框等)。
How do you save Excel file and enable cell protection in R? 中的解决方案已经帮了我很多。我尝试使用 xlsx-package 重新读取使用 XLConnect 创建的 Excel 文件(使用此包保护单个单元格似乎不可能)并保护相应的单元格:
x <- loadWorkbook(file)
cs <- CellStyle(x,cellProtection = CellProtection(locked=F))
rows <- getRows(x$getSheet("Sheet Name"),rowIndex=17:100)
cells <- getCells(rows,colIndex = c(4:26))
lapply(names(cells),function(ii)setCellStyle(cells[[ii]],cs))
.jcall(x$getSheet("Sheet Name"),"V","protectSheet","Password")
saveWorkbook(x,newfile)
保护单个单元格可以这样工作,但不幸的是,由于新的 CellStyles,整个格式都被破坏了。有没有人看到我可以在不必使用 setCellStyle 的情况下保护单个单元格的可能性?我预先感谢您提供有用的答案。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。