Password RAR: dany.web.id
Selamat datang pada Blog saya ini, semoga apa yang saya sajikan bermanfaat bagi kawan-kawan sekalian. Krtik dan saran saya harapkan
Replace these every slider sentences with your featured post descriptions.Go to Blogger edit html and find these sentences.Now replace these with your own descriptions.This theme is Bloggerized by Lasantha - Premiumbloggertemplates.com.
Replace these every slider sentences with your featured post descriptions.Go to Blogger edit html and find these sentences.Now replace these with your own descriptions.This theme is Bloggerized by Lasantha - Premiumbloggertemplates.com.
Replace these every slider sentences with your featured post descriptions.Go to Blogger edit html and find these sentences.Now replace these with your own descriptions.This theme is Bloggerized by Lasantha - Premiumbloggertemplates.com.
Password RAR: dany.web.id
![]() |
| Menulis daftar tugas (sumber : www.earlytorise.com) |
![]() |
| Mendelegasikan tugas (sumber : www.oliveblue.com) |
![]() |
| Stop menunda pekerjaan! (sumber : www.beyondcareersuccess.com) |
![]() |
| Mengerjakan banyak tugas sekaligus (sumber : www.whowillyouempower.com) |
![]() |
| Sempatkan diri berolahraga (sumber : i.huffpost.com) |
Pilihan untuk mengundurkan diri dari pekerjaan Anda yang sekarang untuk memulai bisnis bukanlah pilihan yang mudah. Kebanyakan orang memang mendambakan bekerja tanpa harus keluar dari rumah tetapi tetap menghasilkan uang. Sekalipun menyenangkan, tapi butuh kerja keras dan dedikasi tinggi.Memulai Bisnis Sendiri Mungkin Bisa Memberi Anda Penghasilan Lebih Daripada Hanya Menjadi Karyawan.
![]() |
| Bahan-bahan penghilang goresan. |
![]() |
| Odin |
![]() |
| Warning |
![]() |
| Download Mode |
![]() |
| Ready |
![]() |
| Pass - SUCCESS |
Public Sub AllInternalPasswords()
' Breaks worksheet and workbook structure passwords. Bob McCormick
' probably originator of base code algorithm modified for coverage
' of workbook structure / windows passwords and for multiple passwords
'
' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
' Modified 2003-Apr-04 by JEM: All msgs to constants, and
' eliminate one Exit Sub (Version 1.1.1)
' Reveals hashed passwords NOT original passwords
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"Adapted from Bob McCormick base code by" & _
"Norman Harker and JE McGimpsey"
Const HEADER As String = "AllInternalPasswords User Message"
Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"
Const REPBACK As String = DBLSPACE & "Please report failure " & _
"to the microsoft.public.excel.programming newsgroup."
Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _
"now be free of all password protection, so make sure you:" & _
DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _
DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _
DBLSPACE & "Also, remember that the password was " & _
"put there for a reason. Don't stuff up crucial formulas " & _
"or data." & DBLSPACE & "Access and use of some data " & _
"may be an offense. If in doubt, don't."
Const MSGNOPWORDS1 As String = "There were no passwords on " & _
"sheets, or workbook structure or windows." & AUTHORS & VERSION
Const MSGNOPWORDS2 As String = "There was no protection to " & _
"workbook structure or windows." & DBLSPACE & _
"Proceeding to unprotect sheets." & AUTHORS & VERSION
Const MSGTAKETIME As String = "After pressing OK button this " & _
"will take some time." & DBLSPACE & "Amount of time " & _
"depends on how many different passwords, the " & _
"passwords, and your computer's specification." & DBLSPACE & _
"Just be patient! Make me a coffee!" & AUTHORS & VERSION
Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _
"Structure or Windows Password set." & DBLSPACE & _
"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _
"Note it down for potential future use in other workbooks by " & _
"the same person who set this password." & DBLSPACE & _
"Now to check and clear other passwords." & AUTHORS & VERSION
Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _
"password set." & DBLSPACE & "The password found was: " & _
DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _
"future use in other workbooks by same person who " & _
"set this password." & DBLSPACE & "Now to check and clear " & _
"other passwords." & AUTHORS & VERSION
Const MSGONLYONE As String = "Only structure / windows " & _
"protected with the password that was just found." & _
ALLCLEAR & AUTHORS & VERSION & REPBACK
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
MsgBox MSGNOPWORDS2, vbInformation, HEADER
Else
On Error Resume Next
Do 'dummy do loop
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
With 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)
If .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _
"$$", PWord1), vbInformation, HEADER
Exit Do 'Bypass all for...nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do 'Dummy do loop
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
.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 Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _
"$$", PWord1), vbInformation, HEADER
'leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do 'Bypass all for...nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
End Sub
| Gambar 1 |
| Gambar 2 |
| Cara Install Windows XP Menggunakan Flashdisk |
AVERAGE (2,4,6) = 4 AVERAGE (A1:A5) = nilai rata-rata dari kumpulan bilangan di A1:A5
INT(1.2365) = 1
MOD(5,3) = 2 MOD(3,5) = 3
RAND() = bilangan acak bisa jadi 0.22, bisa jadi 0.3434, pokoknya tak terduga deh.
SUM (1,2,3,4) = 10 SUM (5.6,2.3) = 7.9
ROUND(1.2365,0) = 1 ROUND(1.2365,2) = 1.24
CONCATENATE("one ","big ","text") = one big text
CONCATENATE(A1,A2,A3) = menggabungkan teks di sel A1,A2 dan A3
FIND("e","hello") = 2
FIND("m","hello") = ERROR
LEFT("Saya suka excel ", 4) = Saya
LEFT(A1,5) = Lima karakter pertama dari sel A1
LEN(“RuangSoftware.com”) = 17
LOWER(“SpeAKER nya KERen”) = speaker nya keren
MID(“Ini Ibu Budi”, 4, 3) = “Ibu”)
PROPER(“excel memang keren”) = Excel Memang Keren
REPT("|",5) = |||||
REPT("And", 2) = AndAnd
SUBSTITUTE("123-123-1234","-","") = 1231231234
TRIM(“ Banyak space kosong “) = Banyak space kosong
UPPER(“ini gede semua lho”) = INI GEDE SEMUA LHO
VALUE("1.2365") = 1.2365
VALUE("hello") = ERROR
AND(true, false) = false AND(true, true) = true
COUNTBLANK (A1:A50) = jumlah sel yang kosong dari sel A1 sampai A50
COUNTIF(A1:A20, 1) = menghitung jumlah sel yang berisi angka "1" COUNTIF(A1:A20, "<3 3="" dari="" jumlah="" kurang="" menghitung="" nilainya="" pre="" sel="" yang=""> 4. Rumus IF – rumus ini dipakai untuk bila anda dihadapkan pada suatu problem yang membutuhkan pengambilan keputusan, misal kalau benar maka lakukan itu, kalau salah maka lakukan ini. Contoh penggunaan :IF(1 < 4, “BENAR”, “SALAH”) = BENAR IF(1 > 4, “BENAR”, “SALAH”) = SALAH5. Rumus LARGE – rumus ini dipakai untuk mencari nilai terbesar keberapa dari suatu tabel. Contoh penggunaan :LARGE (A1:50, 2) = mencari bilangan terbesar kedua dari A1 sampai A50 LARGE (A1:50, 1) = mencari bilangan terbesar pertama dari A1 sampai A506. Rumus MAX – rumus ini dipakai untuk mencari nilai tertinggi atau terbesar dari suatu kumpulan angka. Contoh penggunaan :MAX(1,2,3) = 3 MAX(A1:A20) = nilai maksimum dari sel A1:A207. Rumus MIN – rumus ini dipakai untuk mencari nilai terendah atau terkecil dari suatu kumpulang angka atau sel. Contoh penggunaan :MIN(1,2,3) = 1 MIN(A1:A20) = nilai minimum dari sel A1:A208. Rumus NOT – rumus ini dipakai untuk mengubah suatu pernyataan dari BENAR menjadi SALAH, atau dari SALAH menjadi BENAR. Contoh penggunaan :NOT(true) = False NOT(1=2) = True9. Rumus OR – rumus ini dipakai untuk membandingkan dua pernyataan, apabila salah satu pernyataan bernilai BENAR maka hasilnya TRUE, namun apabila kedua pernyataan nilainya SALAH maka hasilnya FALSE. Contoh penggunaan :OR(True, False) = True OR(False, True) = True OR(False, False) = False10. Rumus SMALL – rumus ini dipakai untuk mencari nilai terkecil dari suatu kumpulan nilai atau sel. Contoh penggunaan :SMALL (A1:50, 2) = mencari bilangan terkecil kedua dari A1 sampai A50 SMALL (A1:50, 1) = mencari bilangan terkecil pertama dari A1 sampai A5011. Rumus SUMIF – rumus ini dipakai untuk menjumlahkan sel-sel tertentu dari suatu tabel dengan kriteria tertentu. Contoh penggunaan :SUMIF(A1:A20, 3) = menjumlahkan sel dari A1 sampai A20 yang berisi angka 3 SUMIF(A1:A20, 3, b1:b20) = menjumlahkan seperti diatas tetapi menambahkan nilai B1 sampai B20 juga12. Rumus VLOOKUP – rumus ini adalah rumus referensi yang paling populer, dipakai untuk mencari informasi dalam suatu tabel berdasarkan kode yang dicari. Rumus ini biasa dipakai untuk mencari informasi tambahan dari suatu kode, misalnya informasi nama pegawai dari nomor pegawainya. Contoh penggunaan :VLOOKUP("99919", A1:D50, 2, FALSE) = mencari baris dengan kode 99919 kemudian mengambil kolom kedua, yakni kolom B dari daftar A1:D50.Rumus Tanggal Dan Waktu
1. Rumus DAY – rumus ini dipakai untuk mencari hari Contoh penggunaan :day("12/31/1981") = 31 day(today()) = hari ini2. Rumus HOUR – rumus ini dipakai untuk mencari jam Contoh penggunaan :hour("11:30") = 11 hour(now()) = jam saat ini3. Rumus MINUTE – rumus ini dipakai untuk mencari menit Contoh penggunaan :minute("11:30") = 30 minute(now()) = menit saat ini4. Rumus MONTH – rumus ini dipakai untuk mencari bulan Contoh penggunaan :month("12/31/1981") = 12 month(today()) = bulan saat ini5. Rumus NETWORKDAYS – rumus ini dipakai untuk mencari waktu waktu kerja Contoh penggunaan :networkdays("12/1/2008","12/31/2008") = 23 networkdays(TODAY(),TODAY()+30) = total hari kerja dalam 30 hari ke depan6. Rumus NOW – rumus ini dipakai untuk mencari tanggal dan waktu sekarang Contoh penggunaan :now() = tanggal hari ini beserta waktu saat ini7. Rumus SECOND – rumus ini dipakai untuk mencari detik Contoh penggunaan :second("11:30:45") = 45 second(now()) = detik saat ini8. Rumus TODAY – rumus ini dipakai untuk menampilkan tanggal hari ini Contoh penggunaan :today() = tanggal hari ini9. Rumus WEEKDAY – rumus ini dipakai untuk menampilkan jumlah hari weekend Contoh penggunaan :weekday("12/12/1981") = 7 weekday(today()) = hari saat ini dalam minggu10. Rumus YEAR – rumus ini dipakai untuk mencari tahun Contoh penggunaan :year("12/31/1981") = 1981 year(today()) = tahun saat iniRumus Finansial
1. Rumus FV – rumus ini dipakai untuk mencari nilai pembayaran di masa depan secara berurutan. Contoh penggunaan :FV(10%,12,-1000) = 21,384.282. Rumus IPMT – rumus ini dipakai untuk mencari nilai gadai anda ke depannya berdasarkan besar bunga dalam jangka waktu tertentu. Contoh penggunaan :IPMT(10%,3,12,-100000) = 9017.973. Rumus NPV – rumus ini dipakai untuk uenghitung nilai bersih sekarang dari serangkaian pembayaran di masa mendatang. Contoh penggunaan :NPV(10%,100,100,100,100,100) = 379.074. Rumus PMT – rumus ini dipakai untuk Memberitahu Anda berapa banyak Anda harus membayar pada gadai Anda (setiap bulannya) Contoh penggunaan :PMT(10%,12,-100000) = 14676.335. Rumus PPMT – rumus ini dipakai untuk memberitahu Anda berapa banyak nilai gadai Anda berjalan menuju nilai pokok dalam bulan tertentu. Contoh penggunaan :PPMT(10%,3,12,-100000) = 5658.36Rumus Informasi
1. Rumus COLUMN – rumus ini dipakai untuk mencari indeks kolom yang sedang aktif atau indeks kolom sel tertentu. Contoh penggunaan :COLUMN() = indeks kolom di sel yang berisi formula ini COLUMN(C4) = 32. Rumus ISBLANK – rumus ini dipakai untuk mengecek apakah sel yang bersangkutan kosong atau tidak. Contoh penggunaan :ISBLANK(A1) = benar jika A1 nilainya kosong ISBLANK("") = false, karena spasi kosong tetap dianggap ada isinya3. Rumus ISERROR – rumus ini dipakai untuk mencari tahu apakah nilai sel yang bersangkutan excel atau tidak. Contoh penggunaan :ISERROR(1/0) = true ISERROR (0/1) = false4. Rumus ISTEXT – rumus ini dipakai untuk mengecek apakah sel yang bersangkutan berisi teks atau tidak. Contoh penggunaan :ISTEXT (123) = false ISTEXT ("fimana") = true5. Rumus ISNUMBER – rumus ini dipakai untuk mengecek apakah sel yang bersangkutan berisi angka atau tidak. Contoh penggunaan :ISNUMBER (123) = true ISNUMBER ("fimana") = false6. Rumus ROW – rumus ini dipakai untuk mencari indeks row (baris) dari sel yang bersangkutan. Contoh penggunaan :ROW () = indeks row di sel yang berisi formula ini ROW (C4) = 33>