2 metode eficiente pentru a preveni modificarea fișierelor șablon Word partajate

În această post, suntem încântați să vă oferim 2 abordări rapide și utile pentru a preveni modificarea fișierelor șablon Word partajate.

În cadrul unei companii sau organizații comerciale, este obișnuit să încărcați fișiere partajate într-un folder public, inclusiv unele documente Word, astfel încât toată lumea să le poată accesa. Uneori, aceste fișiere șablon nu necesită modificare. Cu toate acestea, se întâmplă atunci când unii oameni modifică și salvează accidental șablonul. Prin urmare, s-ar putea să trebuiască să fiți atent la această situație și să înlocuiți șablonul modificat cu cel original tot timpul.    

Fără îndoială, această muncă necesită mult timp și eforturi. Așadar, vă oferim modalitatea macro de a face sarcina.

Metoda 1: Preveniți modificarea unui anumit fișier șablon Word

Această macrocomandă va găsi și verifica dacă un fișier șablon a fost modificat în funcție de ultima sa modificare. Dacă ora șablonului nu se potrivește cu cea a copiei sale originale, atunci acesta va fi înlocuit cu acesta din urmă.

1. Mai întâi, deschideți Word și apăsați „Alt+ F11” pentru a deschide editorul VBA.
2. Apoi, în proiectul „Normal”, faceți clic pe fila „Inserare” din bara de meniu.
3. Apoi alegeți „Modul” din meniul derulant.
4. Deschideți zona de editare a modulului făcând dublu clic.
5. Și inserați următoarele coduri acolo:

Sub CheckAndReplaceTheModifiedFile() Dim strSharedFile As String Dim strSharedFilePath As String Dim strSharedFileName As String Dim strOriginalFile As String ' Schimbați calea ca calea reală a fișierului șablon original. strOriginalFile = "C:\test\Doc1.docx" ' Schimbați calea ca calea reală a fișierului partajat care va fi verificat. strSharedFile = "C:\Users\shared folder\Doc1.docx" strSharedFilePath = Left(strSharedFile, InStrRev(strSharedFile, "\")) strSharedFileName = Right(strSharedFile, Len(strSharedFile)(strSharedFile)(str) - InStred)ReFile(str) Dacă FileDateTime(strSharedFile) <> FileDateTime(strOriginalFile) Atunci nReturnValue = MsgBox ("Fișierul: " & strSharedFileName & " din folderul partajat a fost modificat, doriți să îl înlocuiți cu fișierul original?", 4) Dacă nReturnValue = 6 Apoi Kill strSharedFile FileCopy strOriginalFile, strSharedFilePath & strSharedFileName MsgBox ("Fișierul: " & strSharedFileName & " a fost înlocuit cu fișierul original") End If End If End Sub

6. Acum trebuie să faceți modificări la această macrocomandă.

• Mai întâi înlocuiți calea fișierului din următoarea linie de cod cu adresa reală a fișierului original neschimbat:

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

• În al doilea rând, înlocuiți calea din următoarea linie cu una reală a fișierului șablon din folderul public:

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

7. După aceasta, faceți clic pe „Run” sau apăsați pe „F5”.
8. Apoi există caseta de confirmare, care vă întreabă dacă doriți să înlocuiți fișierul modificat. Faceți clic pe „Da” sau „Nu” în consecință.
9. Și când înlocuirea este finalizată, există caseta de rezultat:

Metoda 2: Preveniți modificarea mai multor șabloane

1. În primul rând, inserați un tabel cu 2 coloane cu mai multe rânduri într-un document nou. În prima coloană, introduceți căile șabloanelor din folderul public. Și în a doua coloană, introduceți adresele fișierelor neschimbate.
2. Apoi urmați pașii de mai sus pentru a instala și rula o macrocomandă.
3. Nu uitați să înlocuiți macrocomanda cu aceasta:

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 objS1 =String Set objS1 nTwNumber =Active haredFile În objTable. Columns(1).Cells Set objSharedFileRange = objSharedFile.Range objSharedFileRange.MoveEnd Unit:=wdCharacter, Count:=-1 Set objOriginalFileRange = objTable.Cell(nRowNumber, 2).Range objSharedFileRange.MoveEnd Unit:=wdEnd:Character Unit. 1 Dacă objSharedFileRange.Text <> "" Atunci strSharedFile = objSharedFileRange.Text strOriginalFile = objOriginalFileRange.Text Apelați CheckAndReplaceTheModifiedFileInTableList(strSharedFile, strOriginalFile) + End Dacă nRowReplace SubNumber Subsidiul Verificați și nRowNumber. leInTableList(strSharedFile, strOriginalFile) Dim strSharedFilePath As String Dim strSharedFileName As String strSharedFilePath = Left(strSharedFile, InStrRev(strSharedFile, "\")) strSharedFileName = Right(strSharedFile, Len(strSharedFile) - InStrRev(strSharedFile, "\")) If FileDateTime(str>SharedFile)(str>OriginalFileDFile) strSharedFile FileCopy strOriginalFile, strSharedFilePath & strSharedFileName MsgBox ("Fișierul: " & strSharedFileName & " a fost înlocuit cu fișierul original") End If End Sub

4. Dacă există fișiere care sunt înlocuite, veți primi o casetă de mesaj așa cum se arată în metoda 1.

Verificați-vă copiile de rezervă des

Backup-urile pot fi de mare ajutor în perioadele de dezastru de date. Desigur, ne referim la copii de rezervă valide. Există momente în care apelezi la copii de rezervă, dar doar pentru a descoperi că este deteriorat cumva. Prin urmare, trebuie să vă faceți timp pentru a verifica dacă backup-urile sunt solide și intacte. În caz contrar, veți avea nevoie de un instrument reparare docx când are loc pierderea datelor.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv xls deteriorat și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com