search

awalker89 / openxlsx

R package for .xlsx file reading and writing.
Other
363 stars 79 forks source link

protectWorkbook does not work #525

Open realbeast91 opened 3 years ago

realbeast91 commented 3 years ago

Expected Behavior

protectWorkbook() is supposed to add password protection when trying to open Excel

Actual Behavior

Code runs successfully but it is not password protected, and can open the file directly

Steps to Reproduce the Problem

df = data.frame(Year = c(2018,2019,2020,2018,2019,2020,2018,2019,2020),
                Country = c("Germany","Germany","Germany", "Japan", "Japan", "Japan",  "Thailand", "Thailand", "Thailand"), 
                Count = c(17, 15, 60, 23, 25, 60, 50, 18, 31))

wb = createWorkbook()
addWorksheet(wb, "Master")
writeDataTable(wb, "Master", df, tableStyle = "TableStyleLight9")
yellow_style = createStyle(fgFill = "#FFFF00")
y = which(colnames(df) == "Count")
x = which(abs(df$Count) > 32)
addStyle(wb, sheet = "Master", style = yellow_style, rows = x+1, col = y)
protectWorkbook(wb, protect = TRUE, password = "Password", lockStructure = TRUE)
saveWorkbook(wb, "Master.xlsx", overwrite = TRUE)

sessionInfo()

JMPivette commented 3 years ago

Could you please create this bug at ycphs/openxlsx?

This is the active fork of the package.