2 métodos eficazes para impedir que arquivos de modelo do Word compartilhados sejam alterados

Neste post, temos o prazer de fornecer a você 2 abordagens rápidas e úteis para evitar que os arquivos de modelo do Word compartilhados sejam alterados.

Dentro de uma empresa ou organização comercial, é comum carregar arquivos compartilhados em uma pasta pública, incluindo alguns documentos do Word, para que todos possam acessá-los. Às vezes, esses arquivos de modelo não requerem alterações. No entanto, isso acontece quando algumas pessoas acidentalmente modificam e salvam o modelo. Portanto, você pode ter que ficar de olho nessa situação e substituir o modelo alterado pelo original o tempo todo.    

Sem dúvida, este trabalho requer muito tempo e esforço. Portanto, oferecemos a maneira macro de executar a tarefa.

Método 1: impedir que um arquivo de modelo específico do Word seja alterado

Esta macro irá localizar e verificar se um arquivo de modelo foi alterado de acordo com a hora da última modificação. Se a hora do modelo não coincidir com a de sua cópia original, ela será substituída por esta.

1. Primeiro, abra o Word e pressione “Alt+F11” para abrir o editor VBA.
2. Em seguida, no projeto “Normal”, clique na guia “Inserir” na barra de menu.
3. Em seguida, escolha “Módulo” no menu suspenso.
4. Abra a área de edição no módulo com um clique duplo.
5. E cole os seguintes códigos lá:

Sub CheckAndReplaceTheModifiedFile() Dim strSharedFile As String Dim strSharedFilePath As String Dim strSharedFileName As String Dim strOriginalFile As String ' Altere o caminho como o caminho real do arquivo de modelo original. strOriginalFile = "C:\teste\Doc1.docx" ' Altere o caminho para o caminho real do arquivo compartilhado que será verificado. strSharedFile = "C:\Usuários\pasta compartilhada\Doc1.docx" strSharedFilePath = Left(strSharedFile, InStrRev(strSharedFile, "\")) strSharedFileName = Right(strSharedFile, Len(strSharedFile) - InStrRev(strSharedFile, "\")) If FileDateTime(strSharedFile) <> FileDateTime(strOriginalFile) Then nReturnValue = MsgBox("O arquivo: " & strSharedFileName & " na pasta compartilhada foi modificado, deseja substituí-lo pelo arquivo original?", 4) Se nReturnValue = 6 Em seguida, Kill strSharedFile FileCopy strOriginalFile, strSharedFilePath & strSharedFileName MsgBox ("O arquivo: " & strSharedFileName & " foi substituído pelo arquivo original") End If End If End Sub

6. Agora você precisa fazer modificações nesta macro.

• Primeiro, substitua o caminho do arquivo na seguinte linha de código pelo endereço real do arquivo original inalterado:

strOriginalFile = "C:\Usuários\Público\Documentos\Amostra\Teste 1\DWORDR.docx"

• Em segundo lugar, substitua o caminho na linha a seguir por um real do seu arquivo de modelo na pasta pública:

strSharedFile = "C:\Usuários\Público\Documentos\Exemplo\Pasta compartilhada\DWORDR.docx"

7. Depois disso, clique em “Executar” ou pressione “F5”.
8. Depois, há a caixa de confirmação, perguntando se você deseja substituir o arquivo alterado. Clique em “Sim” ou “Não” de acordo.
9. E quando a substituição é feita, há a caixa de resultado:

Método 2: impedir que vários modelos sejam alterados

1. Em primeiro lugar, insira uma tabela de 2 colunas com várias linhas em um novo documento. Na primeira coluna, insira os caminhos dos modelos na pasta pública. E na segunda coluna, insira os endereços dos arquivos inalterados.
2. Em seguida, siga as etapas acima para instalar e executar uma macro.
3. Lembre-se de substituir a macro por esta:

Sub CheckAndReplaceMultipleModifiedFiles() Dim objTable As Table Dim objSharedFile As Cell Dim objSharedFileRange As Range Dim objOriginalFileRange As Range Dim nRowNumber As Integer Dim strSharedFile As String Dim strOriginalFile As String Set objTable = ActiveDocument.Tables(1) nRowNumber = 1 para cada objShare dFile Em objTable. Columns(1).Cells Set objSharedFileRange = objSharedFile.Range objSharedFileRange.MoveEnd Unit:=wdCharacter, Count:=-1 Set objOriginalFileRange = objTable.Cell(nRowNumber, 2).Range objOriginalFileRange.MoveEnd Unit:=wdCharacter, Count:=- 1 If objSharedFileRange.Text <> "" Then strSharedFile = objSharedFileRange.Text strOriginalFile = objOriginalFileRange.Text Call CheckAndReplaceTheModifiedFileInTableList(strSharedFile, strOriginalFile) End If nRowNumber = nRowNumber + 1 Next End Sub Sub CheckAndReplaceTheModifiedFileInTableList (strSharedFile, strOriginalFile) Dim strSharedFilePath As String Dim strSharedFileName As String strSharedFilePath = Left(strSharedFile, InStrRev(strSharedFile, "\")) strSharedFileName = Right(strSharedFile, Len(strSharedFile) - InStrRev(strSharedFile, "\")) Se FileDateTime(strSharedFile) <> FileDateTime(strOriginalFile) Então mate strSharedFile FileCopy strOriginalFile, strSharedFilePath & strSharedFileName MsgBox ("O arquivo: " & strSharedFileName & " foi substituído pelo arquivo original") End If End Sub

4. Se houver arquivos sendo substituídos, você receberá uma caixa de mensagem conforme mostrado no método 1.

Verifique seus backups frequentemente

Os backups podem ser uma grande ajuda em momentos de desastre de dados. Certamente, queremos dizer backups válidos. Há momentos em que você recorre a backups, mas apenas para descobrir que está danificado de alguma forma. Portanto, você deve reservar um tempo para verificar se seus backups estão corretos e intactos. Caso contrário, você precisará de uma ferramenta para reparar docx quando ocorre a perda de dados.

Introdução do autor:

Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo xls danificados e pdf reparar produtos de software. Para mais informações visite www.datanumen.com