Impedir de eliminar ou mover ficheiro excel

[ioncila]

Boa noite

Não sei se isto é possível fazer, mas não custa nada perguntar

Há alguma maneira de impedir (por outros utilizadores) a eliminação de um ficheiro ou mover para outro local do computador?

Ou então apenas permitir essas acções através de uma password?

Obrigado

[poiaman]

Nunca ouvi falar, mas se tiver jeito... vou querer saber tb!

[webmaster]

Pessoal,

Nesse nível, só é possível via configurações do Windows, e isso só se o Windows estiver sob um domínio bem configurado. Existem programas alternativos que também fazem isso, mas para um controle efetivo em rede, só a primeira opção mesmo.

Abraços

[ioncila]

Obrigado pela resposta. Era o que previa (temia)...

Vou ter de arranjar um jeito de evitar isso, pois aconteceu que um colega meu apagou inadvertidamente uma pequena mas importante base de dados.

Talvez criar um backup automático, um clone actualizável do ficheiro, é possível?

[poiaman]

Seria interessante um comando em VBA, que sempre que a planilha fosse aberta, uma cópia fosse salva em um local específico da rede, como um backup! dai mesmo que alguem apagasse o arquivo, a última atualização estaria salva.

O que acha Tomaz?

att

[webmaster]

Poiaman,

Já pensei nisso, O problema é que o comando Salvar Como salva uma cópia, mas mantém a própria aberta, ou seja, estaríamos trabalhando na cópia de segurança.

Na verdade, caiu uma ficha agora. Porque não usar a instrução FileCopy para fazer o backup da planilha ao ser aberta?

Abraços

[poiaman]

Blz vamos tentar!

Me indica algum exemplo do comando filecopy pra eu conhecer....

Nunca usei e nem nunca vi uma planilha que use isso!

Com base no exemplo vou tentar criar esse backup!

att

[webmaster]

Poiaman,

Da própria Microsoft:

Instrução FileCopy
Copia um arquivo.

Sintaxe
FileCopy source, destination

A sintaxe da instrução FileCopy tem os seguintes argumentos nomeados:

Parte Descrição
source Obrigatória. Expressão de seqüência de caracteres que especifica o nome do arquivo a ser copiado. A parte source pode incluir diretório ou pasta e unidade de disco.
destination Obrigatória. Expressão de seqüência de caracteres que especifica o nome do arquivo de destino. O destination pode incluir diretório ou pasta e unidade de disco.

Comentários
Se você tentar usar a instrução FileCopy em um arquivo atualmente aberto, um erro será gerado.

Exemplo da instrução FileCopy
Este exemplo usa a instrução FileCopy para copiar um arquivo em outro. Para este exemplo, pressuponha que ARQORIG é um arquivo que contém alguns dados.

Dim SourceFile, DestinationFile
SourceFile = "ARQORIG" ' Definir o nome do arquivo de origem.
DestinationFile = "ARQDEST" ' Definir o nome do arquivo de destino.
FileCopy SourceFile, DestinationFile ' Copiar a origem no destino.

A idéia seria executar a função no Open do Workbook, fazendo uma cópia de si mesmo para algum outro lugar, sem intereferência do Excel. Acho que dá certo.

Abraços

[poiaman]

Consegui alguma coisa!

Estou utilizando um sistema de cópia de API (fonte:http://www.htmlstaff.org/ver.php?id=3732)

Esse comando é como o copyfile so que eu achei mais fácil!

O problema era que quando o arquivo de backup já existia, ele perguntava se gostaria de substituir!

Daí criei uma condicional, para caso existisse já um backup um comando KILL iria apagá-lo e em seguida uma nova cópia seria salva, garantindo que seu backup seja sempre a última versão atualizada!

Não consegui fazer mas talvez alguem possa ajudar!

Gostaria que o caminho destino pudesse ser alterado em uma célula, tentei puxar o valor com plan1.cells("1,1").text e etc e não consegui, assim poderíamos colocar uma aba de configuração com acesso restrito, para manutenção da planilha.


Segue o código:

Private Sub Workbook_Open()

Dim retval As String

retval = Dir("D:\Meus documentos\local_backup\")

If retval = "teste1_backup.xls" Then

Kill "D:\Meus documentos\local_backup\teste1_backup.xls"

CopiarArq "D:\Meus documentos\local_teste\teste1.xls", "D:\Meus documentos\local_backup\teste1_backup.xls"

Else

CopiarArq "D:\Meus documentos\local_teste\teste1.xls", "D:\Meus documentos\local_backup\teste1_backup.xls"
End If

End Sub


O código API está num módulo, abram a plan em anexo e copiem!

att

[ioncila]

Acho que encontrei o que procurava:

Código: Selecionar todos

Private Sub Workbook_Open()
    If ActiveWorkbook.Name = "Teste.xls" Then
        ActiveWorkbook.SaveCopyAs "H:\backup\TestBackup.xls"
    End If
End Sub

Coisa simples, não é? Funciona perfeitamente se o nome do ficheiro não for mudado.

Estou a ver agora a possibilidade de o código fazer prever a alteração do nome.