R 保存具有密码保护的 Excel 工作簿

Question

我有点印象深刻，因为到目前为止我找不到答案。

我有一个小型 R 脚本，它从一个源加载数据并从中写入几十个 Excel 文件。现在的问题是:这些文件需要密码保护。

目前我的脚本正在使用 XLConnect库来保存 Excel 文件。脚本是这样的:

# Load data from source
source = <connection string to source>
dataFromSource = <read from source>

# Process
for (data in dataFromSource) {
    wb = loadWorkbook( paste("myWorkbook", sourceName, ".xlsx"), create = TRUE)
    createSheet(wb, name = "sheet")
    <put data into the "sheet">
    saveWorkbook(wb)
}

简单来说:如何在 R 中创建具有密码保护的 Excel 文件？

Answer 1

您应该指定您是要保护整个工作簿还是单个工作表。如果您希望用密码保护单个工作表，可以使用以下 rJava 函数(在保存工作簿之前):

rJava::.jcall(wb$getSheet("Sheet1"),"V","protectSheet", "MyPassword123")
xlsx::saveWorkbook(wb,"C:/myfilepath)

“.jcall”函数将密码应用于工作簿中指定的工作表。必须安装“rJava”库并使其正常工作才能正常工作。

注意

此函数仅在使用 XLSX 包在 R 中操作 Excel 文件时有效。我最初使用 XLConnect 写入文件，然后使用 XLSX 将它们读回，应用密码保护，并将文件重新保存到相同的路径。