Senha ao encerrar ficheiro

[francisa]

Bom dia,
No Calc, ao contrário do Microsoft Excel e WPS Spreadsheet, quando temos um ficheiro com senha, temos de introduzi-la cada vez que encerramos o ficheiro. Desculpem, mas não faz sentido, ficheiro com senha é gravado automaticamente ao encerrar.
A senha faz sentido somente a abrir.
Era bom reverem esse detalhe.
Obrigado
Francisco Sá

[schiavinatto]

Uso Win7 + LibO 6.0.4.2

A senha só e pedida se usar Salvar como(Ctrl+Shift+S, o Salvar comum (Ctrl+S), se já houver senha, não pede, só na abertura.

---

Adendo 1

Considerando que primeiramente é salvo o arquivo onde foi lido e aberto com senha, segue uma macro exemplo: (é salvo o primeiro normalmente como Ctrl+S e os outros 4 são copiados do original e colados em outros diretórios)

sub Salvar
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Save", "", 0, Array())
	FileCopy ("C:/CaminhoDoArquivoSalvoAcima.ods","C:/DiretorioUmASalvar.ods")
	FileCopy ("C:/CaminhoDoArquivoSalvoAcima.ods","C:/DiretorioDoisASalvar.ods")
	FileCopy ("C:/CaminhoDoArquivoSalvoAcima.ods","C:/DiretorioTresASalvar.ods")
	FileCopy ("C:/CaminhoDoArquivoSalvoAcima.ods","C:/DiretorioQuatroASalvar.ods")
end sub

[francisa]

No meu caso pessoal e penso de muitos, tenho um ficheiro aberto com senha para salvar em 5 pastas diferentes, tenho obrigatoriamente de executar “Salvar Como” (Ctrl+Shift+S). Daí o inconveniente de ter de fazer “Salvar Como” 5 vezes antes de o salvar. O “Guardar” (Crtl+S) só se aplica em salvar apenas num único destino. Obrigado.

[schiavinatto]

Talvez, uma solução seria via macro, infelizmente não sou a melhor pessoa para isso. Teria que pesquisar …

[schiavinatto]

Uma procurada e achei este comando: FileCopy("LocalArquivoFonte","LocalArquivoCopia")

Sub CopiarArquivos()
	FileCopy ("ArquivoFonteComCamninhoCompleto,ods", "ArquivoCopiaComCaminhoCompleto.ods")
End Sub