Как бързо да защитим партида документи на Word с парола

В тази статия ще говорим за начина за използване на макро за бърза защита на партида документи на Word с парола, както е необходимо.

В днешно време нарушаването на данните става все по-тревожно безпокойство за много хора, особено за потребители в мрежата. Например кражбата на самоличност може да доведе до огромна загуба на пари и увреждане на нечия репутация. Ето защо е време да вземем предпазни мерки, за да предотвратим изпадането си в жертва на изтичане на данни.

Именно от тази голяма нужда ние решаваме да ви въоръжим с начина за масова защита на вашите Word файлове.

Предотвратяване на отварянето на множество документи

За някои файлове с висока увереност вероятно искате никой друг да не ги преглежда изобщо. След това можете да изпълните следната инструкция, за да зададете парола за тяхната защита.

1. Първо, поставете всички файлове да бъдат криптирани в една и съща директория.
2. Щракнете върху раздела „Програмист“.
3. След това щракнете върху „Visual Basic“ в групата „Код“. Или можете да натиснете „Alt + F11“, за да отворите редактора на VBA.  
4. След това вмъкнете нов модул под проект „Нормално“, като щракнете първо върху „Нормално“ в лявата колона.
5. И след това щракнете върху раздела „Вмъкване“ в лентата с менюта.
6. След това изберете „Модул“ от падащото меню.
7. Сега щракнете двукратно върху новия модул, за да имате пространство за кодиране.
8. Поставете следните кодове:

Sub ProtectMultiDocWithOpenPassword()
  Dim objDoc As Document
  Dim strPassword As String, strFile As String, strFolder As String
 
  strPassword = "123"
  strFolder = "E:\Temp\test\"
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & strFile)
 
    With objDoc
      .Password = strPassword
      .SaveAs2 FileName:=objDoc.FullName, Password:=strPassword
      .Close
    End With
    strFile = Dir()
  Wend
End Sub

9. Накрая щракнете върху „Run“ или натиснете „F5“.

Забележки:

1. В кодовия ред „strPassword = „123“”, Не забравяйте да замените„123”Със собствена парола.
2. В кодовия ред „strFolder = “C: \ Users \ Public \ Documents \ New folder \””, Променете пътя на файловата папка на действителен.

Отсега нататък всеки, който иска да види защитения файл, ще трябва да въведе правилната парола.

Предотвратяване на редактиране на множество документи

Ето още една ситуация, когато файловете са добре за обществено разглеждане, но трябва да бъдат възпрепятствани от редактиране.

Използвайте точния начин за инсталиране на макрос, както е показано по-горе, само за да замените макроса с духащия:

Sub ProtectMultiDocWithEditPassword()
  Dim objDoc As Document
  Dim strPassword As String, strFile As String, strFolder As String
 
  Set objDoc = ActiveDocument
  strPassword = "456"
  strFolder = "C:\Users\Public\Documents\New folder\"
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & strFile)
 
    objDoc.Protect Password:=strPassword, NoReset:=False, Type:= _
      wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

Имайте предвид повредата на файловете

Изтичането на данни може също да компрометира нечий файл и да го срине. Въпреки това, за да възстанови док не е лесно. Понякога файлът може да бъде изтрит или отвлечен. При това обстоятелство можете да прибегнете до инструмент за ремонт на трета страна за помощ.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително инструмент за поправете xls и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com