Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Impedir de eliminar ou mover ficheiro excel
Impedir de eliminar ou mover ficheiro excel
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
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
Re: Impedir de eliminar ou mover ficheiro excel
Nunca ouvi falar, mas se tiver jeito... vou querer saber tb!
Re: Impedir de eliminar ou mover ficheiro excel
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
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
Re: Impedir de eliminar ou mover ficheiro excel
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?
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?
Re: Impedir de eliminar ou mover ficheiro excel
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
O que acha Tomaz?
att
Re: Impedir de eliminar ou mover ficheiro excel
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
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
Re: Impedir de eliminar ou mover ficheiro excel
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
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
Re: Impedir de eliminar ou mover ficheiro excel
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
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
Re: Impedir de eliminar ou mover ficheiro excel
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
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
- Anexos
-
- Teste1.zip
- (10.14 KiB) Baixado 592 vezes
Re: Impedir de eliminar ou mover ficheiro excel
Acho que encontrei o que procurava:
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.
Código: Selecionar todos
Private Sub Workbook_Open()
If ActiveWorkbook.Name = "Teste.xls" Then
ActiveWorkbook.SaveCopyAs "H:\backup\TestBackup.xls"
End If
End Sub
Estou a ver agora a possibilidade de o código fazer prever a alteração do nome.