Tampilkan postingan dengan label Ilmu Komputer. Tampilkan semua postingan

Materi Dasar - Dasar Komputer

Berikut ini adalah beberapa materi yang akan anda pelajari dalam pelatihan dan kursus komputer di MASBOING.

Dasar Windows:
1. Display Propertis
2. Control Panel
3. Explorer
4. Regional Language
5. Format Data
6. Manajemen File

Office Word:
1. Dokumen Properties
2. Format Paragraf
3. Format Font
4. Bullet and Numbering
5. WordArt
6. Tabel
7. Cetak Amplop dan Surat
8. Mail Marge

Office Excel:
1. Mengatur Worksheet dan Format Cell
2. Rumus Dasar atau Standart
3. Rumus Logika IF
4. Rumus Pembacaan Tabel (Lookup)
5. Penjumlahan Date and Time
6. Membuat Grafik
7. Mengurutkan Data dan Filter
8. Pengaturan Pencetakan Worksheet

Membuka Proteksi Sheet pasa MS Excel


Script ini menyediakan password untuk membuka proteksi worksheet anda. Bagaimanapun, password yang disediakan mungkin bukan password asli yang digunakan.

buka workbook yang memiliki sheet yang terproteksi didalamnya. Tekan Alt+F11 (view code) untuk menampilkan Visual Basic Editor. Klik Insert > Module & paste kode berikut pada jendela yang berada di kanan:

===================================================
Sub PasswordBreaker()
  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)
   ActiveWorkbook.Sheets(1).Select
   Range("a1").FormulaR1C1 = 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

=================================================================