2 efektívne metódy zabránenia zmenám zdieľaných súborov šablón Wordu

V tejto strost, sme radi, že vám môžeme poskytnúť 2 rýchle a užitočné prístupy, aby sa zabránilo zmene zdieľaných súborov šablón Wordu.

V rámci spoločnosti alebo obchodnej organizácie je bežné nahrávať zdieľané súbory do verejného priečinka vrátane niektorých dokumentov Word, aby k nim mal prístup každý. Tieto súbory šablón niekedy nevyžadujú žiadnu zmenu. Stáva sa to však, keď niektorí ľudia šablónu nechtiac upravia a uložia. Možno preto budete musieť túto situáciu sledovať a neustále meniť zmenenú šablónu za pôvodnú.    

Táto práca nepochybne vyžaduje veľa času a úsilia. Ponúkame vám teda makro spôsob, ako úlohu splniť.

Metóda 1: Zabránenie zmene konkrétneho súboru šablóny Wordu

Toto makro vyhľadá a skontroluje, či bol súbor šablóny zmenený podľa času poslednej zmeny. Ak sa čas šablóny nezhoduje s časom jej originálnej kópie, bude nahradená druhou.

1. Najskôr otvorte Word a stlačte „Alt + F11“, aby ste otvorili editor VBA.
2. Ďalej v projekte „Normálny“ kliknite na karte „Vložiť“ na paneli s ponukami.
3. Potom v rozbaľovacej ponuke zvoľte možnosť „Modul“.
4. Dvojitým kliknutím otvorte editačnú oblasť na module.
5. A vložte tam nasledujúce kódy:

Sub CheckAndReplaceTheModifiedFile () Dim strSharedFile As String Dim strSharedFilePath As String Dim strSharedFileName As String Dim strOriginalFile As String 'Zmeňte cestu ako skutočnú cestu k pôvodnému súboru šablóny. strOriginalFile = "C: \ test \ Doc1.docx" 'Zmeňte cestu ako skutočnú cestu zdieľaného súboru, ktorý sa bude kontrolovať. strSharedFile = "C: \ Users \ zdieľaný priečinok \ Doc1.docx" strSharedFilePath = Left (strSharedFile, InStrRev (strSharedFile, "\")) strSharedFileName = Right (strSharedFile, Len (strSharedFile) - InStrRev (strSharedFile, " Ak FileDateTime (strSharedFile) <> FileDateTime (strOriginalFile), potom nReturnValue = MsgBox ("Bol zmenený súbor:" & strSharedFileName & "v zdieľanom priečinku, chcete ho nahradiť pôvodným súborom?", 4) Ak nReturnValue = 6 Potom zabite strSharedFile FileCopy strOriginalFile, strSharedFilePath & strSharedFileName MsgBox ("Súbor:" & strSharedFileName & "bol nahradený pôvodným súborom") End If End If End Sub

6. Teraz musíte vykonať úpravy tohto makra.

• Najskôr nahraďte cestu k súboru v nasledujúcom riadku kódu skutočnou adresou nezmeneného pôvodného súboru:

strOriginalFile = "C: \ Users \ Verejné \ Dokumenty \ Ukážka \ Test 1 \ DWORDR.docx"

• Potom nahraďte cestu v nasledujúcom riadku skutočným súborom šablóny vo verejnom priečinku:

strSharedFile = "C: \ Users \ Verejné \ Dokumenty \ Ukážka \ Zdieľaný priečinok \ DWORDR.docx"

7. Potom kliknite na „Spustiť“ alebo na „F5“.
8. Potom je tu potvrdzovacie pole s otázkou, či chcete zmeniť zmenený súbor. Podľa toho kliknite na „Áno“ alebo „Nie“.
9. A keď je výmena hotová, je tu políčko s výsledkom:

Metóda 2: Zabráňte zmene viacerých šablón

1. Najskôr do nového dokumentu vložte dvojstĺpcovú tabuľku s viacerými riadkami. V prvom stĺpci zadajte cesty šablón vo verejnom priečinku. A do druhého stĺpca zadajte adresy nezmenených súborov.
2. Potom postupujte podľa vyššie uvedených krokov na inštaláciu a spustenie makra.
3. Nezabudnite nahradiť makro týmto:

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 Stĺpce (1). Skupiny buniek objSharedFileRange = objSharedFile.Range objSharedFileRange.MoveEnd Jednotka: = wdCharacter, Počet: = - 1 Nastaviť objOriginalFileRange = objTable.Cell (nRowNumber, 1). Rozsah objOriginalFileRange.MoveEnd = = 2. Ak objSharedFileRange.Text <> "" Tak 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 Ako reťazec strSharedFilePath = vľavo (strSharedFile, InStrRev (strSharedFile, "\")) strSharedFileName = Right (strSharedFile, Len (strSharedFile) - InStrRev (strSharedFile, "\")) Ak FileDateTime (strSharedFile) <> FileDateTime (strOriginalFile) potom FileFile ("Súbor:" & strSharedFileName & "bol nahradený pôvodným súborom") End If End Sub

4. Ak dôjde k výmene súborov, zobrazí sa okno so správou, ako je to znázornené v metóde 1.

Často kontrolujte svoje zálohy

Zálohy môžu byť skvelým pomocníkom v čase katastrofy údajov. Určite máme na mysli platné zálohy. Sú chvíle, kedy sa uchýlite k zálohám, ale len zistíte, že je nejako poškodený. Preto si musíte urobiť čas a skontrolovať, či sú vaše zálohy zdravé a neporušené. V opačnom prípade budete potrebovať nástroj na opraviť docx keď dôjde k strate údajov.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodené xls a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S