Wednesday, December 18, 2013

Cara Install .NET Framework 3.5 pada Windows 8 Secara Offline

Berikut ini adalah cara install Framework 3.5 secara offline :
1. Masukan DVD Windows 8 pada DVDROM, Anda bisa lihat sumbernya di E:\sources\sxs (Drivenya sesuai dengan drive DVD ROM Anda)
 

2785191 
2. Jalankan Command Prompt dengan cara klik kanan, kemudian pilih Run As Administrators
3. kemudian ketikan :

Dism.exe /online /enable-feature /featurename:NetFX3 /All /Source:E:\sources\sxs /LimitAccess

Jangan lupa ENTER 

4. Tunggu beberapa saat sampai proses selesai
5. Jika sudah selesai Anda bisa lihat hasilnya

 2785192 

Selamat mencoba...!!!

 

Thursday, November 28, 2013

An error occured during port configuration. This operation is not supported

Semoga artikel berikut menjadi sebuah solusi ketika Anda menghadapi masalah instalasi printer terutama HP Laser Jet. Selesai install driver ternyata ketika test print tidak ada cetakan yang keluar, padahal posisi printer sudah online. Asumsi saya adalah mungkin drivernya yang tidak betul, maka kemudian saya coba solusi berikut :

1. Download ulang driver printer sesuai dengan jenis printer
2. Uninstall driver yang ada
3. Restart komputer
4. Install driver yang sudah selesai di download.

Nah langkah diatas ternyata berhasil dan komputer bisa mencetak ke printer.

Selamat mencoba....


Monday, November 25, 2013

Lupa Password UnprotecSheet (Excel)

Berikut Tips yang dapat dilakukan untuk mengatasi file excel dimana ada sheet atau sel yang diprotect tapi Anda lupa passwordnya.
1. Buka file Excel yang lupa passwornya tersebut
2. Jika sudah terbuka, tekan tombol ALT + F11 (ini untuk membuka Macro)
3. Lihat tampilan berikut ini :
 

4. Contoh diatas misalnya yang di protect adalah Sheet1, maka klik 2x saja sheet1 tersebut

5. Hasilnya seperti berikut :
 
6. Paste-kan Kode dibawah ini ke dalam area diatas.

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

6. Ini gambarnya setelah di paste


 
7. Kalau sudah coba dijalankan dengan menekan tombol F5, tunggu sampai selesai proses
8. Kembali ke Excel dengan ALT + F11 lagi
9. Nah coba sekarang isi selnya di edit, jika sudah bisa artinya sudah berhasil.


Oke, selamat mencoba semoga berhasil...