Πώς να προστατέψετε γρήγορα ένα σύνολο εγγράφων του Word με κωδικό πρόσβασης

Σε αυτό το άρθρο, θα μιλήσουμε για τον τρόπο χρήσης της μακροεντολής για γρήγορη προστασία μιας παρτίδας εγγράφων του Word με κωδικό πρόσβασης, όπως απαιτείται.

Σήμερα, η παραβίαση δεδομένων γίνεται όλο και πιο ανησυχητική ανησυχία για πολλούς ανθρώπους, ειδικά για τους netizens. Για παράδειγμα, η κλοπή ταυτότητας μπορεί να οδηγήσει σε τεράστια απώλεια χρημάτων και ζημιά στη φήμη κάποιου. Επομένως, ήρθε η ώρα να λάβουμε προληπτικά μέτρα για να αποφύγουμε τον εαυτό μας να πέσουμε θύματα διαρροής δεδομένων.

Είναι από αυτήν ακριβώς την ανάγκη να αποφασίσουμε να σας οπλίσουμε με τον τρόπο μαζικής προστασίας των αρχείων του Word.

Αποτρέψτε το άνοιγμα πολλών εγγράφων

Για ορισμένα αρχεία με υψηλή αυτοπεποίθηση, πιθανότατα δεν θέλετε κανένας άλλος να τα δει καθόλου. Στη συνέχεια, μπορείτε να ακολουθήσετε τις ακόλουθες οδηγίες για να ορίσετε έναν κωδικό πρόσβασης για την προστασία τους.

1. Πρώτα απ 'όλα, τοποθετήστε όλα τα αρχεία που πρέπει να κρυπτογραφούνται στον ίδιο κατάλογο.
2. Κάντε κλικ στην καρτέλα "Προγραμματιστής".
3. Στη συνέχεια, κάντε κλικ στο "Visual Basic" στην ομάδα "Κωδικός". Ή μπορείτε να πατήσετε "Alt + F11" για να ανοίξετε το πρόγραμμα επεξεργασίας VBA.  
4. Στη συνέχεια εισάγετε μια νέα ενότητα στο έργο "Normal" κάνοντας κλικ στο "Normal" πρώτα στην αριστερή στήλη.
5. Και μετά κάντε κλικ στην καρτέλα "Εισαγωγή" στη γραμμή μενού.
6. Στη συνέχεια, επιλέξτε "Module" στο αναπτυσσόμενο μενού.
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. Τέλος, κάντε κλικ στο "Εκτέλεση" ή πατήστε "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

Προσοχή στην καταστροφή του αρχείου

Η διαρροή δεδομένων μπορεί επίσης να θέσει σε κίνδυνο το αρχείο κάποιου και να το καταστρέψει. Ωστόσο, σε ανάκτηση εγγράφου δεν είναι εύκολο. Μερικές φορές το αρχείο σας μπορεί να διαγραφεί ή να παραβιαστεί. Υπό αυτήν την περίπτωση, μπορείτε να καταφύγετε σε ένα εργαλείο επισκευής τρίτων για βοήθεια.

Εισαγωγή συγγραφέα:

Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένου του εργαλείου για διορθώστε το xls pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com