Membongkar Proteksi Sheet dengan VBA Macros

Copy Coding dibawah pada Vba --> pada This Workbook


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

lalu play

kemudian anda chek pada sheet di excel maka proteksi sudah terbuka .....

Excel Lanjutan

• Membuat Combo box dengan Data Validation
• Memproteksi Sheet

memproteksi sheet

Mengunci cells di dalam Excel berguna untuk mengamankan data yang terdapat dalam cells tersebut agar tidak bisa diubah orang lain. Tahapannya adalah sebagai berikut:

1. Menghilangkan locked semua cells (kalau ini tidak dilakukan, semua cells nanti akan terkunci) > select all sheet (ctrl+a) > klik kanan > format cells > protection > contreng locked dihilangkan
2. Mengunci cell. Pilih cells yang akan dikunci > klik kanan > format cells > protection > pastikan tab locked tercontreng > ok
3. Memasukkan passwor. Masuk ke tab review > protect sheet > pastikan select locked cells tidak tercontreng > masukkan password > ok

APLIKASI

• Aplikasi Seleksi Karyawan dengan Macro Excel
• Contoh Aplikasi excel yang diproteksi sheet
• Aplikasi Nilai 
•  Contoh Exel dengan Formula

Membuat Combo box dengan Data Validation

Data --> Data Validation 

lalu akan muncul gambar

Pada Allow pilih List

Pada Source ketik
Agus;Yeski, Tado

untuk memberi message box pilih input Message

Pada Input Message ketik sesuai keinginan

dan hasilnya seperti ini

Mail Merge

Siapkan sebuah file undangan

Setelah siap ....

Mailing --> Start Mail Merge --> Step by Step Mail Merge Wizard

maka akan muncul gambar seperti ...

Pilih letter --> Next Starting Document

Pilih Use Current Document --> Next Select Recepients

Kalo kita sudah file database baik excel maupun lainnya kita pilih Use an exiting list lalu kita Browse tetapi kalo kita belum membikinnya kita pilih Type new list

Lalu pilih Create

Klik Customize Columns

Lalu Delete semua field dari  Title sampai E-mail Address

 Pilih Add Ketik Nama --> OK

lalu ulangi lagi dengan mengetikkan alamat

 setelah selesai pilih OK lalu ketikan Daftar nama dan alamat sehingga hasilnya seperti

Setelah selesai simpan  dan kasih nama

setelah itu Pilih Next
Pilih  more items .... pada gambar dibawah

maka akan muncul Insert Merge Field

 

  Pilih Next maka akan muncul document baru dengan isi undangan sebanyak data undangan yang kita buat.

dan selesai ......

Selamat mencoba ....

Cara Membuat Daftar Isi Otomatis

Untuk membuat daftar isi otomatis anda masuk ke

Reference --> Add Text --->

Pilih Level 1, 2, atau 3 sesuai dengan Bab, Sub Bab, Sub-sub bab lihat keterangan di atas ......

Setelah semua bab, sub bab, sub-sub bab sudah diberi tingkatan level lalu posisikaan cursor dikertas atau halaman untuk membuat Daftar Isi

Pilih Reference --> Table Of Contens --> Pilih model yang anda inginkan

Wes gitu aja .....

Dowload file disini

Menonaktifkan Klik Kanan Pada Excel

Buka VBA dengan tekan Alt + F11
Pada Sheet yang diinginkan  copy code berikut

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Cancel = True End Sub

 lalu simpan dengan tipe Enable Macros setelah itu kamu buka File Excel yang anda buat lalu
coba anda klik kanan pada Sheet yang kamu kasih kode tadi.... apa yang terjadi

Cara Menyembunyikan dan Menutup UserForm serta Menonaktifkan Tombol Close UserForm

Menyembunykan UserForm

Me.Hide atau NamaUserForm.Hide

Menutup UserForm

Unload NamaUserForm

Menonaktifkan Tombol Close Pada UserForm UserForm

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode <> 1 Then Cancel = 1 End Sub

Teks berkedip

Insert --> Module
Copy Kode sebagai berikut :
Public RunWhen As Double Sub Berkedip() With ThisWorkbook.Worksheets("Sheet1").Range("A1").Font If .ColorIndex = 5 Then ' Warna biru .ColorIndex = 2 ' Warna putih Else If .ColorIndex = 2 Then ' Warna hijau .ColorIndex = 3 ' Warna merah Else .ColorIndex = 5 ' Warna biru End If End If End With RunWhen = Now + TimeSerial(0, 0, 1) Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!Berkedip", , True End Sub Sub Berhenti() On Error Resume Next ThisWorkbook.Worksheets("Sheet1").Range("A1").Font.ColorIndex = xlColorIndexAutomatic Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!Berkedip", , False End Sub

Keterangan :

• Teks yang akan berkedip terletak pada Sheet1 dan sel A1
Worksheets("Sheet1").Range("A1")
• Module ini akan merubah teks menjadi warna merah - biru - putih secara simultan
ColorIndex = 5 ...
• perubahan warna teks akan terjadi setiap hitungan 1 detik
TimeSerial(0, 0, 1)

lalu copy paste code berikut ke dalam ThisWorkbook
Private Sub Workbook_Activate() Berkedip End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Berhenti End Sub Private Sub Workbook_WindowDeactivate(ByVal Wn As Window) Berhenti End Sub

Langkah terakhir adalah Ketikkan teks pada Sheet1 sel A1, kemudian simpan file anda dengan type Excel Macro-Enable Workbook. Hasil dari efek ini bisa terlihat ketika file ini dibuka atau file ini diaktifkan, dan akan secara otomatis berhenti ketika file tertutup.

Cara membuat User Form dengan VBA Excel

Ingin membuat tampilan Excel seperti diatas

Kita langsung mulai aja ....

Tekan Alt + F11 untuk masuk ke VBA macros

insert ---> UserForm

Maka muncul gambar seperti dibawah ini

buat tampilan seperti ini

lalu pada This Workbook
copy koding sebagai berikut


Private Sub Workbook_open() UserForm1.Show End Sub </textara>

jangan lupa pada saat menyimpan tipenya harus excl macro enable workbook

Cara Menampilkan file di status Bar

Secara default tampilan dari micosoft excel adalah sebagai berikut :

Klo kita  ingin membuat tampilan seperti ini

maka caranya begini

Copy kode-kode berikut kedalam This Workbook


Private Sub Workbook_Activate() Application.StatusBar = Application.ActiveWorkbook.Path End Sub

Aplikasi Perkantoran

Microsoft office 2007 merupakan program aplikasi paling populer yang sering digunakan di lingkungan perkantoran dewasa ini. Microsoft office bisa membantu menyelesaikan pekerjaan di berbagai bidang, antara lain: bisnis, kesehatan, hiburan dan perkantoran.

Seiring berjalannya waktu serta terjadinya persaingan yang ketat, Microsoft Office pun mengalami banyak perkembangan. Microsoft office 2007 merupakan hasil pengembangan dari versi-versi sebelumnya. Di dalam program tersebut terdapat Word 2007, Excel 2007, PowerPoint 2007, Access 2007, dan Outlook 2007 bersama fitur barunya masing-masing.

Mengingat begitu pentingnya Microsoft Word didunia pendidikan dan perkantoran, kami berusaha membahas satu persatu, agar para pembaca bisa menggunakan Word 2007 dengan lebih baik. Pembahasan juga meliputi fitur-fitur barunya, antara lain:

1. Fitur-fitur Microsoft Word 2007
2. Fitur-fitur Microsoft Excel 2007
3. Fitur-fitur Microsoft PowerPoint 2007
4. Fitur-fitur Microsoft Access 2007
5. Fitur-fitur Microsoft Outlook 2007

Karena terbatasnya waktu dan pekerjaan offline, saya hanya bisa membahas satu-persatu dan sedikit demi sedikit. Semoga dengan ini pembaca krasan dan betah sembari membaca menambah pengetahuan. Itu yang kami harapkan. Jika ada kekurangan kami mohon ma'af, kritik dan saran anda yang bersifat membangun kamu tunggu.

Microsoft office 2007 merupakan program aplikasi paling populer yang sering digunakan di lingkungan perkantoran dewasa ini. Microsoft office bisa membantu menyelesaikan pekerjaan di berbagai bidang, antara lain: bisnis, kesehatan, hiburan dan perkantoran.

Seiring berjalannya waktu serta terjadinya persaingan yang ketat, Microsoft Office pun mengalami banyak perkembangan. Microsoft office 2007 merupakan hasil pengembangan dari versi-versi sebelumnya. Di dalam program tersebut terdapat Word 2007, Excel 2007, PowerPoint 2007, Access 2007, dan Outlook 2007 bersama fitur barunya masing-masing.

Mengingat begitu pentingnya Microsoft Word didunia pendidikan dan perkantoran, SERBAPRO berusaha membahas satu persatu, agar para pembaca bisa menggunakan Word 2007 dengan lebih baik. Pembahasan juga meliputi fitur-fitur barunya, antara lain:

1. Fitur-fitur Microsoft Word 2007
2. Fitur-fitur Microsoft Excel 2007
3. Fitur-fitur Microsoft PowerPoint 2007
4. Fitur-fitur Microsoft Access 2007
5. Fitur-fitur Microsoft Outlook 2007

Karena terbatasnya waktu dan pekerjaan offline, saya hanya bisa membahas satu-persatu dan sedikit demi sedikit. Semoga dengan ini pembaca krasan dan betah sembari membaca menambah pengetahuan. Itu yang kami harapkan. Jika ada kekurangan kami mohon ma'af, kritik dan saran anda yang bersifat membangun kamu tunggu.

Terimakasih.

- See more at: http://supriyadipro.blogspot.com/2012/07/Sekilas-tentang-microsoft-office-2007-di-improve7.com.html#sthash.U6Chxd9E.dpuf

Microsoft office 2007 merupakan program aplikasi paling populer yang sering digunakan di lingkungan perkantoran dewasa ini. Microsoft office bisa membantu menyelesaikan pekerjaan di berbagai bidang, antara lain: bisnis, kesehatan, hiburan dan perkantoran.

Seiring berjalannya waktu serta terjadinya persaingan yang ketat, Microsoft Office pun mengalami banyak perkembangan. Microsoft office 2007 merupakan hasil pengembangan dari versi-versi sebelumnya. Di dalam program tersebut terdapat Word 2007, Excel 2007, PowerPoint 2007, Access 2007, dan Outlook 2007 bersama fitur barunya masing-masing.

Mengingat begitu pentingnya Microsoft Word didunia pendidikan dan perkantoran, SERBAPRO berusaha membahas satu persatu, agar para pembaca bisa menggunakan Word 2007 dengan lebih baik. Pembahasan juga meliputi fitur-fitur barunya, antara lain:

1. Fitur-fitur Microsoft Word 2007
2. Fitur-fitur Microsoft Excel 2007
3. Fitur-fitur Microsoft PowerPoint 2007
4. Fitur-fitur Microsoft Access 2007
5. Fitur-fitur Microsoft Outlook 2007

Karena terbatasnya waktu dan pekerjaan offline, saya hanya bisa membahas satu-persatu dan sedikit demi sedikit. Semoga dengan ini pembaca krasan dan betah sembari membaca menambah pengetahuan. Itu yang kami harapkan. Jika ada kekurangan kami mohon ma'af, kritik dan saran anda yang bersifat membangun kamu tunggu.

Terimakasih.

- See more at: http://supriyadipro.blogspot.com/2012/07/Sekilas-tentang-microsoft-office-2007-di-improve7.com.html#sthash.U6Chxd9E.dpuf

Microsoft office 2007 merupakan program aplikasi paling populer yang sering digunakan di lingkungan perkantoran dewasa ini. Microsoft office bisa membantu menyelesaikan pekerjaan di berbagai bidang, antara lain: bisnis, kesehatan, hiburan dan perkantoran.

Seiring berjalannya waktu serta terjadinya persaingan yang ketat, Microsoft Office pun mengalami banyak perkembangan. Microsoft office 2007 merupakan hasil pengembangan dari versi-versi sebelumnya. Di dalam program tersebut terdapat Word 2007, Excel 2007, PowerPoint 2007, Access 2007, dan Outlook 2007 bersama fitur barunya masing-masing.

Mengingat begitu pentingnya Microsoft Word didunia pendidikan dan perkantoran, SERBAPRO berusaha membahas satu persatu, agar para pembaca bisa menggunakan Word 2007 dengan lebih baik. Pembahasan juga meliputi fitur-fitur barunya, antara lain:

1. Fitur-fitur Microsoft Word 2007
2. Fitur-fitur Microsoft Excel 2007
3. Fitur-fitur Microsoft PowerPoint 2007
4. Fitur-fitur Microsoft Access 2007
5. Fitur-fitur Microsoft Outlook 2007

Karena terbatasnya waktu dan pekerjaan offline, saya hanya bisa membahas satu-persatu dan sedikit demi sedikit. Semoga dengan ini pembaca krasan dan betah sembari membaca menambah pengetahuan. Itu yang kami harapkan. Jika ada kekurangan kami mohon ma'af, kritik dan saran anda yang bersifat membangun kamu tunggu.

Terimakasih.

- See more at: http://supriyadipro.blogspot.com/2012/07/Sekilas-tentang-microsoft-office-2007-di-improve7.com.html#sthash.U6Chxd9E.dpuf

Microsoft office 2007 merupakan program aplikasi paling populer yang sering digunakan di lingkungan perkantoran dewasa ini. Microsoft office bisa membantu menyelesaikan pekerjaan di berbagai bidang, antara lain: bisnis, kesehatan, hiburan dan perkantoran.

Seiring berjalannya waktu serta terjadinya persaingan yang ketat, Microsoft Office pun mengalami banyak perkembangan. Microsoft office 2007 merupakan hasil pengembangan dari versi-versi sebelumnya. Di dalam program tersebut terdapat Word 2007, Excel 2007, PowerPoint 2007, Access 2007, dan Outlook 2007 bersama fitur barunya masing-masing.

Mengingat begitu pentingnya Microsoft Word didunia pendidikan dan perkantoran, SERBAPRO berusaha membahas satu persatu, agar para pembaca bisa menggunakan Word 2007 dengan lebih baik. Pembahasan juga meliputi fitur-fitur barunya, antara lain:

1. Fitur-fitur Microsoft Word 2007
2. Fitur-fitur Microsoft Excel 2007
3. Fitur-fitur Microsoft PowerPoint 2007
4. Fitur-fitur Microsoft Access 2007
5. Fitur-fitur Microsoft Outlook 2007

Karena terbatasnya waktu dan pekerjaan offline, saya hanya bisa membahas satu-persatu dan sedikit demi sedikit. Semoga dengan ini pembaca krasan dan betah sembari membaca menambah pengetahuan. Itu yang kami harapkan. Jika ada kekurangan kami mohon ma'af, kritik dan saran anda yang bersifat membangun kamu tunggu.

Terimakasih.

- See more at: http://supriyadipro.blogspot.com/2012/07/Sekilas-tentang-microsoft-office-2007-di-improve7.com.html#sthash.U6Chxd9E.dpuf

Memaksa pengguna untuk mengaktifkan Macro Security

•  Buat Modul terlebih dahulu

            Insert → Module


Copy coding berikut

Public bIsClosing As Boolean
Dim wsSheet As Worksheet

---

Sub HideAll()
Application.ScreenUpdating = False
For Each wsSheet In ThisWorkbook.Worksheets
    If wsSheet.CodeName = "Sheet2" Then
       wsSheet.Visible = xlSheetVisible
    Else
       wsSheet.Visible = xlSheetVeryHidden
    End If
Next wsSheet
Application.ScreenUpdating = True
End Sub

---

Sub ShowAll()
bIsClosing = False
For Each wsSheet In ThisWorkbook.Worksheets
    If wsSheet.CodeName <> "Sheet2" Then
       wsSheet.Visible = xlSheetVisible
    End If
Next wsSheet
Sheet2.Visible = xlSheetVeryHidden
End Sub

• Pada This Workbook Copykan Coding berikut

Private Sub Workbook_BeforeClose(Cancel As Boolean)
bIsClosing = True
End Sub

---

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Cancel = True Or bIsClosing = False Then Exit Sub
Run "HideAll"
End Sub

---

Private Sub Workbook_Deactivate()
If bIsClosing = False Then Exit Sub
Run "HideAll"
End Sub

---

Private Sub Workbook_Open()
Run "ShowAll"
End Sub