Memotong Dokumen File Pdf

Banyak pengetahuan dari hasil unduh/download yang kita bisa ambil dari media internet, tetapi kadang pengetahuan yang ada dalam sebuah dokumen tidak semuanya kita perlukan, biasanya dokumen/berkas yang kita ambil dari media internet berbentuk file.pdf. Pada kesempatan kali ini saya mau berbagi cara memotong berkas berbentuk file.pdf secara offline, berikut langkah-langkahnya :
1. Siapkan file ber-extensi pdf
2. Klik kanan file pdf-open with-google chrome/mozilla fire fox
3. Pilih icon print (gbr print disebelah kanan atas)
4. Atur Distination menjadi "Save As Pdf"

5. Atur Pages (Halaman yang ingin dipotong)
6. Klik Save-dan beri nama File sesuai kebutuhan
Selesai, semoga bermanfaat :-)

Read more ...

Membuat Dokumen menjadi Read Only

Kadang dokumen Microsoft Word yang kita buat dengan susah payah, mengorbankan waktu dan pikiran, tetapi dokumen itu harus dibagikan ke khalayak umum. maka untuk melindungi dokumen tersebut supaya tidak bisa di edit dan hanya bisa di baca kita bisa melindunginya dengan cara sebagai berikut :

1. Menggunakan Microsoft Word 2010
2. Buat dokumen
3. Untuk melindungi dokumen dari microsoft word tersebut
4. Klik Menu Review
5. Pilih Restrict Editing
   
6.  Centang semua menu yang ada dalam Restrick Editing
7.  Klik Tombol "Yes, Start Enforcing Protection" untuk memberi password saat dokument akan di diubah
8. Kembali ke Menu "Home" Kemudian simpan dokumen.
9. Selesai.

Demikian cara melindungi dokumen kita supaya hanya bisa di baca saja, semoga bermanfaat, terima kasih.

Read more ...

Membuka Password & Mengetahui Password Sheet di Excel

Kadang kita mendapatkan file spreadsheet (Excel) yang terproteksi dan tidak dapat di edit, untuk membuka proteksi di sel tersebut dapat dilakukan beberapa langkah sebagai berikut :

1. Buka File Excel yang terproteksi
2. Tekan tombol Keyboard Alt+F11 (View Code)
3. Pilih Insert - Module

Module

4. Masukkan Kode berikut ini :

Sub InternalPasswords()

Dim i As Integer, j As Integer, k As Integer

Dim l As Integer, m As Integer, n As Integer

Dim i1 As Integer, i2 As Integer, i3 As Integer

Dim i4 As Integer, i5 As Integer, i6 As Integer

On Error Resume Next

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

ActiveWorkbook.Unprotect Chr(i) & Chr(j) & Chr(k) & _

Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _

& Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _

Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _

& Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If ActiveWorkbook.ProtectStructure = False Then

If ActiveWorkbook.ProtectWindows = False Then

If ActiveSheet.ProtectContents = False Then

Exit Sub

End If

End If

End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

End Sub

5. Klik Run atau F5

Tunggu sampai selesai proses dan sel sudah bisa di ubah/ di edit.

Sedangkan untuk mengetahui Password dari Proteksi file tersebut pada langkah ke 4, ganti dengan kode berikut ini :

Sub PasswordBreaker()

    'Breaks worksheet password protection.

    Dim i As Integer, j As Integer, k As Integer

    Dim l As Integer, m As Integer, n As Integer

    Dim i1 As Integer, i2 As Integer, i3 As Integer

    Dim i4 As Integer, i5 As Integer, i6 As Integer

    On Error Resume Next

    For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

    For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

    For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

    For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

    ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _

        Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

        Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

    If ActiveSheet.ProtectContents = False Then

        MsgBox "One usable password is " & Chr(i) & Chr(j) & _

            Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _

            Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

         Exit Sub

    End If

    Next: Next: Next: Next: Next: Next

    Next: Next: Next: Next: Next: Next

End Sub

Maka PASSWORD akan di tampilkan.

Demikian pengetahuan ini, semoga bermanfaat untuk semuanya.

Read more ...