2 effektive metoder for å forhindre at delte Word-malfiler endres

I denne sost, vi er glade for å kunne gi deg to raske og nyttige tilnærminger for å forhindre at delte Word-malfiler endres.

Innenfor et selskap eller en forretningsorganisasjon er det vanlig å laste opp delte filer til en offentlig mappe, inkludert noen Word-dokumenter, slik at alle kan få tilgang til den. Noen ganger krever disse malfilene ingen endring. Det skjer imidlertid når noen ved et uhell endrer og lagrer malen. Derfor må du kanskje holde et øye med denne situasjonen og erstatte den endrede malen med den originale hele tiden.    

Uten tvil krever dette arbeidet mye tid og innsats. Så vi tilbyr deg makrometoden for å gjøre oppgaven.

Metode 1: Hindre at en bestemt Word-malfil blir endret

Denne makroen vil finne og sjekke om en malfil har blitt endret i henhold til den sist endrede tiden. Hvis tidspunktet for malen ikke stemmer overens med den originale kopien, vil den bli erstattet av sistnevnte.

1. Først åpner du Word og trykker "Alt + F11" for å åpne VBA-redigering.
2. Deretter, i "Normal"-prosjektet, klikker du på "Sett inn"-fanen på menylinjen.
3. Velg deretter "Modul" på rullegardinmenyen.
4. Åpne redigeringsområdet på modulen ved å dobbeltklikke.
5. Og lim inn følgende koder der:

Sub CheckAndReplaceTheModifiedFile() Dim strSharedFile As String Dim strSharedFilePath As String Dim strSharedFileName As String Dim strOriginalFile As String ' Endre banen som den faktiske banen til den originale malfilen. strOriginalFile = "C:\test\Doc1.docx" ' Endre banen som den faktiske banen til den delte filen som skal sjekkes. strSharedFile = "C:\Users\shared folder\Doc1.docx" strSharedFilePath = Venstre(strSharedFile, InStrRev(strSharedFile, "\")) strSharedFileName = Right(strSharedFile, Len(strSharedFile) - InStrRev(strSharedFile, "\")) Hvis FileDateTime(strSharedFile) <> FileDateTime(strOriginalFile) Then nReturnValue = MsgBox("Filen: " & strSharedFileName & " i delt mappe har blitt endret, vil du erstatte den med den originale filen?", 4) Hvis nReturnValue = 6 Deretter drep strSharedFile FileCopy strOriginalFile, strSharedFilePath & strSharedFileName MsgBox ("Filen: " & strSharedFileName & " har blitt erstattet med originalfilen") End If End If End Sub

6. Nå må du gjøre endringer i denne makroen.

• Erstatt først filbanen i følgende kodelinje med den faktiske adressen til den uendrede originalfilen:

strOriginalFile = "C:\Users\Public\Documents\Sample\Test 1\DWORDR.docx"

• For det andre, erstatt banen i følgende linje med en faktisk av malfilen din i offentlig mappe:

strSharedFile = "C:\Users\Public\Documents\Sample\Share Folder\DWORDR.docx"

7. Etter dette, klikk "Kjør" eller trykk "F5".
8. Så er det bekreftelsesboksen som spør om du vil erstatte den endrede filen. Klikk "Ja" eller "Nei" tilsvarende.
9. Og når utskiftingen er ferdig, er det resultatboksen:

Metode 2: Forhindre at flere maler blir endret

1. Først av alt, sett inn en tabell med to kolonner med flere rader i et nytt dokument. I den første kolonnen skriver du inn banene til malene i den offentlige mappen. Og i den andre kolonnen, skriv inn adressene til uendrede filer.
2. Følg deretter trinnene ovenfor for å installere og kjøre en makro.
3. Husk å erstatte makro med denne:

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 =Tn ActiveBob. Delt fil i objtabell. Columns(1).Cells Set objSharedFileRange = objSharedFileRange objSharedFileRange.MoveEnd Unit:=wdCharacter, Count:=-1 Set objOriginalFileRange = objTable.Cell(nRowNumber, 1).Range objOrac. - 1 If objSharedFileRange.Text <> "" Then strSharedFile = objSharedFileRange.Text strOriginalFile = objOriginalFileRange.Text Call CheckAndReplaceTheModifiedFileInTableList(strSharedFile, strOriginalFile) End If 2 SubRange. ifiedFileInTableList(strSharedFile, strOriginalFile) Dim strSharedFilePath As String Dim strSharedFileName As String strSharedFilePath = Left(strSharedFile, InStrRev(strSharedFile, "\")) strSharedFileName = Right(strSharedFile, Len(strSharedFile) - InStrRev(strSharedFile, "\")) If FileDateTime(strSharedFile) <> FileDateTime(strO strSharedFile FileCopy strOriginalFile, strSharedFilePath & strSharedFileName MsgBox ("Filen: " & strSharedFileName & " har blitt erstattet med originalfilen") End If End Sub

4. Hvis det er filer som erstattes, vil du få meldingsboks som vist i metode 1.

Sjekk sikkerhetskopiene dine ofte

Sikkerhetskopier kan være til stor hjelp i tider med datakatastrofer. Vi mener absolutt gyldige sikkerhetskopier. Noen ganger tyr du til sikkerhetskopier, men bare for å oppdage at den er skadet på en eller annen måte. Derfor må du ta deg tid til å sjekke om sikkerhetskopiene dine er gode og intakte. Ellers trenger du et verktøy for å reparere docx når datatap oppstår.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert skadet xls og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med