Cara Cepat Melindungi Kumpulan Dokumen Word dengan Kata Sandi

Pada artikel ini, kita akan berbicara tentang cara menggunakan makro untuk melindungi sekumpulan dokumen Word dengan kata sandi dengan cepat sesuai kebutuhan.

Saat ini, pembobolan data menjadi perhatian yang semakin mengkhawatirkan bagi banyak orang, terutama netizen. Misalnya, pencurian identitas dapat mengakibatkan kehilangan uang yang sangat besar dan merusak reputasi seseorang. Oleh karena itu, inilah saatnya mengambil tindakan pencegahan untuk mencegah diri kita menjadi korban kebocoran data.

Di luar kebutuhan inilah kami memutuskan untuk mempersenjatai Anda dengan cara melindungi file Word Anda secara massal.

Mencegah Banyak Dokumen dari Pembukaan

Untuk beberapa file dengan keyakinan tinggi, Anda mungkin ingin tidak ada orang lain yang melihatnya sama sekali. Kemudian Anda dapat mengambil instruksi berikut untuk mengatur kata sandi untuk melindunginya.

1. Pertama, tempatkan semua file yang perlu dienkripsi di bawah direktori yang sama.
2. Klik tab "Pengembang".
3. Kemudian klik "Visual Basic" di grup "Kode". Atau Anda dapat menekan "Alt + F11" untuk membuka editor VBA.  
4. Selanjutnya masukkan modul baru di bawah proyek "Normal" dengan mengklik "Normal" terlebih dahulu di kolom kiri.
5. Dan kemudian klik tab "Sisipkan" pada bilah menu.
6. Selanjutnya pilih "Modul" pada menu drop-down.
7. Sekarang klik dua kali pada modul baru untuk mendapatkan ruang pengkodean.
8. Tempel kode berikut:

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. Terakhir, klik "Run" atau tekan "F5".

Catatan:

1. Di baris kode "strKata Sandi = “123”", Ingatlah untuk mengganti"123”Dengan sandi Anda sendiri.
2. Di baris kode "strFolder = “C: \ Users \ Public \ Documents \ New folder \””, Ubah jalur folder file ke yang sebenarnya.

Mulai sekarang dan seterusnya, siapa pun yang ingin melihat file yang dilindungi harus memasukkan kata sandi yang benar.

Mencegah Banyak Dokumen dari Pengeditan

Berikut adalah situasi lain ketika file baik-baik saja untuk tinjauan publik tetapi harus dicegah dari pengeditan.

Gunakan cara yang tepat untuk menginstal makro seperti yang ditunjukkan di atas, hanya untuk mengganti makro dengan yang di bawah ini:

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

Perhatikan Korupsi File

Kebocoran data juga dapat membahayakan file seseorang dan merusaknya. Namun, untuk pulihkan dok tidak mudah. Terkadang file Anda mungkin terhapus atau dibajak. Dalam keadaan ini, Anda dapat menggunakan alat perbaikan pihak ketiga untuk mendapatkan bantuan.

Pengantar Penulis:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk alat untuk perbaiki xls ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com