CARA MEMBUAT KONVERSI ANGKA KE HURUF UNTUK PENULISAN RAPOR DENGAN MS. EXCEL

CARA MEMBUAT FUNGSI RUMUS EVEN DAN ODD

CARA MEMBUAT FUNGSI LOGIKA DALAM MICROSOFT EXCEL

CARA MEMBUAT FUNGSI DATABASE_DAVERAGE MS. EXCEL 2007

CARA MEMBUAT DAFTAR NILAI RAPOR DENGAN FUNGSI VLOOKUP

CARA MEMBUAT BILLING WARNET SEDERHANA DENGAN EXCEL

CARA MEMBUAT ALGORITMA DALAM RUMUS EXCEL

CARA MEMAKSA PENGGUNA MENGAKTIFKAN MACRO SECURITY EXCEL

Ada saat dimana anda mungkin menginginkan pengguna file excel yang anda buat untuk mengaktifkan Macro agar file bisa dijalankan sebagaimana mestinya. Dengan kata lain, sebuah file yang didalamnya terdapat kode Macro - mengharuskan pengaturan Macro Security menjadi aktif, karena jika tidak maka file tersebut sudah pasti tidak dapat bekerja sesuai keinginan.

Pada dasarnya dalam Aplikasi Microsoft Office Excel tidak ada sebuah kode untuk mengaktifkan Macro secara otomatis, namun Anda dapat memaksa pengguna untuk mengaktifkan Macro 'secara otomatis' saat sebuah file excel terbuka.

Cara kerja konsep

Ketika Macro Dalam Keadaan MATI (disable)

» Menyembunyikan Sheet utama yang berisi file

» Menampilkan Sheet informasi agar pengguna mengaktifkan macro

Ketika Macro Dalam Keadaan NYALA (enable)

» Menampilkan kembali sheet utama

» Menyembunyikan sheet informasi macro




Penting :

» Sebelum memasang kode pastikan MACRO Security dalam keadaan aktif

» Sheet tambahan tidak berada di awal atau di akhir.

» Yang paling penting adalah Berdoa agar kode berhasil……

Mempersiapkan Lembar Kerja

Saya berasumsi bahwa dalam lembar kerja excel anda terdapat 3 buah sheet, dengan masing-masing nama sheet antara lain; Sheet1, Sheet2, dan Sheet3.




Sheet1 dan Sheet3 adalah sheet utama yang berisi data excel anda, sedangkan

Sheet2 adalah Sheet informasi yang Anda dapat mengisinya dengan sebuah informasi agar pengguna mengaktifkan Macro Security.

Memasang Kode VBA

Aktifkan dulu Microsoft Visual Basic, kemudian buatlah sebuah Module dengan cara

klik Menu Insert » Module. dan selanjutnya copy paste kode berikut di Module yang sudah anda buat.





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





Langkah berikutnya adalah pilih ThisWorkbook dan paste kode berikut di dalamnya




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





Finalizing

Agar kode diatas dapat bekerja dengan baik, simpan file dengan type Excel Macro-Enabled Workbook.

Lihat perubahan dengan cara mengaktifkan atau menonaktifkan pengaturan Macro Excel

CARA MEMBUAT FORM LOGIN DAN REGISTER ANGGOTA DI EXCEL 2007

Untuk mengisi waktu, karena suntuk dengan kerjaan, aku coba membuat makro excel, Form Login dan Register Anggota, prosesnya ketika file workbook dibuka, user diminta memasukkan nama dan password, apabila nama user belum ada di data anggota, maka user diharuskan mendaftarkan diri, status user sendiri ada dua pilihan, apakah sebagai admin atau hanya user saja. 

Makro tersebut merupakan gabungan antara rumus di worksheet dan VBA Makro, untuk kode makronya mungkin terlalu panjang dan rada ruwet, jadi kalau ada yang ingin memberikan masukan... monggo.

Sedangkan kodenya seperti dibawah ini:

Private Sub UserForm_Activate()

Dim ws As Worksheet

ThisWorkbook.Application.Calculate

Set ws = Sheets("Password")

ws.Activate

ws.Range("A1:N50").Font.ColorIndex = 2

Range("B4").Select

LogNam.SetFocus

FrmDaf.Visible = False

End Sub

Private Sub Masuk_Click()

Dim ws As Worksheet

Dim ws1 As Worksheet

Dim ws2 As Worksheet

ThisWorkbook.Application.Calculate

Set ws = Sheets("Password")

Set ws1 = Sheets("Admin")

Set ws2 = Sheets("User")

ws.Range("E4").Activate

ActiveCell.Value = LogNam.Value

ActiveCell.Offset(0, 1) = LogPwd.Value

LogNam.Value = ""

LogPwd.Value = ""

LogNam.SetFocus

If Range("I4").Value = True Then

MsgBox "Nama Anda " & Range("E4") & " dan anda adalah " & Range("J4").Value

Me.Hide

Else

MsgBox "Nama Ama password salah... Kalau belum termasuk Anggota silahkan Daftar"

ws.Select

End If

If Range("J4").Value = "Admin" Then

ws1.Activate

ElseIf Range("J4").Value = "User" Then

ws2.Activate

Else

ws.Select

End If

LogNam.SetFocus

End Sub

Private Sub Daftar_Click()

FrmDaf.Visible = True

With Status

.AddItem "User"

.AddItem "Admin"

End With

End Sub

Private Sub Tambah_Click()

Dim Msg, Style, Title

Dim ws As Worksheet

ThisWorkbook.Application.Calculate

Set ws = Sheets("Password")

If DafNam.Value = "" Or DafPwd.Value = "" Or Status.Value = "" Then

MsgBox "Data harus diisi semua"

DafNam.Value = ""

DafPwd.Value = ""

Status.Value = ""

DafNam.SetFocus

Else

ws.Range("B4").Select

Do

If IsEmpty(ActiveCell) = False Then

ActiveCell.Offset(1, 0).Select

End If

Loop Until IsEmpty(ActiveCell) = True

ActiveCell.Value = DafNam.Value

ActiveCell.Offset(0, 1) = DafPwd.Value

ActiveCell.Offset(0, 2) = Status.Value

If Range("N4").Value > 1 Then

MsgBox "Data sudah ada coba cari yang lain"

Range("B4").End(xlDown).Select

Range(Selection, Selection.End(xlToRight)).ClearContents

DafNam.Value = ""

DafPwd.Value = ""

Status.Value = ""

DafNam.SetFocus

Else

Msg = "Nama Anda : " & DafNam.Value & " ,Password : " & DafPwd.Value & " , Coba Login"

Style = vbOKCancel + vbDefaultButton1

Title = "Konfirmasi"

Response = MsgBox(Msg, Style, Title)

If Response = vbOK Then

ws.Range("B4").Select

FrmDaf.Visible = False

LogNam.SetFocus

Else

Range("B4").End(xlDown).Select

Range(Selection, Selection.End(xlToRight)).ClearContents

DafNam.Value = ""

DafPwd.Value = ""

Status.Value = ""

DafNam.SetFocus

End If

End If

End If

ws.Range("B4").Select

End Sub

Private Sub FrmDaf_Layout()

DafNam.Value = ""

DafPwd.Value = ""

Status.Value = ""

DafNam.SetFocus

End Sub

Untuk rumus di worksheet sendiri, merupakan rumus standar yaitu menggunakan vlookup dan gabungan text, serta rumus lainnya... lebih jauhnya... 

FUNGSI DATABASE UNTUK MENENTUKAN NILAI TERENDAH.docx

CARA MUDAH PROTEKSI LEMBAR KERJA EXCEL

CARA MUDAH MENGGUNAKAN DATA VALIDATION PADA EXCEL

CARA MENGUBAH DATA BARIS MENJADI DATA KOLOM DI EXCEL

CARA MENGHILANGKAN TAMPILAN NILAI NOL

CARA MENGGUNAKAN FUNGSI SUMPRODUCT PADA EXCEL

CARA MENGGUNAKAN FUNGSI RECORD MACRO PADA EXCEL

CARA MENGGUNAKAN FUNGSI PERCENTRANK PADA EXCEL

CARA MENGGUNAKAN FUNGSI CONVERT PADA EXCEL

CARA MENGGUNAKAN FITUR CONSOLIDATE PADA EXCEL

CARA MENGGUNAKAN DATA BARS PADA EXCEL

CARA MENGETIK BILANGAN PANGKAT DI EXCEL

CARA MEMECAH TEKS DALAM SEL MENJADI BEBERAPA KOLOM DI EXCEL

CARA MEMBUKA WORKBOOK YANG TERPROTEKSI

CARA MEMBUAT USERFORM PADA EXCEL

CARA MEMBUAT USER FORM DENGAN VBA EXCEL

CARA MACROS AKTIF DI EXCEL 2007

Salah satu cara programer untuk memaksimalkan kerja ms excel biasanya dengan menambahkan code-code macro pada file ms excel mereka.  Akan tetapi terkadang banyak orang yang di kirimi file ms excel yang berisi macro tidak bisa membuka / mengaktifkan macro nya, sehingga file terkirim tersebut tidak bisa dibuka dengan sempurna atau tidak

maksimal. Seperti adanya peringatan  begini

Ini sebenarnya pemberitahuan yang dibuat oleh pembuat programnya bahwa penggunanya wajib menghidupkan macros nya melalui notifikasi macro yang ada di bawah menu Ribon, untuk dapat menggunakan dengan baik. Tapi kadang ada kalanya di sebagian ms excel(tidak semua dan tidak selalu) kedapatan ternyata notifikasi dibawah Ribon yang dimaksud tidak ditemukan.

Lalu bagaimana cara mengatasinya?

Berikut ini saya uraikan bagaimana cara untuk mengaktifkan macro di ms excel 2007

1. Buka Ms Excel, (wajib lho.. hehee )

2. Klik pada menu office button (pojok kiri atas) lalu pilih excel options(di pojok kanan bawah).

3. Kemudian pada Excel options pilih trus center dan kemudian pilih trus center settings (lihat bertanda merah di gambar)

4. Pada trust center testings pilih macro setting dan untuk mengaktifkan semua excel macro pada macro setting option pilih “enable macros (not recommended, potentially dangerous code can run)”

dari beberapa pilihan untuk mengaktifkan/tidak mengaktifkan macro yang ada, dapat dipilih disesuaikan dengan kebutuhan masing-masing, yaitu :

• Disable all macros without notification: pilih pilihan ini jika anda tidak ingin mengaktifkan macro pada semua file excel, semua macro pada dokumen excel akan di non aktifkan secara otomatis
• Disable all macros with notification: pada pilihan ini macro akan di non aktifkan tetapi anda akan mendapat peringatan jika pada file excel ada macronya. dengan demikian anda dapat memilih untuk mengaktifkan atau tidak macro pada excel tersebut
• Disable all macros except digitally signed macros: pilihan ini sama dengan pilihan Disable all macros without notification, akan tetapi jika ada file excel yang berisi macro dengan digitally signed oleh trusted publisher maka macro akan jalan jika bukan dari trusted publisher akan ada notifikasi mengenai macro ini  
• Enable all macros (not recommended, potentially dangerous code can run): dengan memilih pilihan ini pada semua macro excel akan otomatis dijalankan. dengan setting ini komputer anda akan rentan terhadap code-code macro jahat/virus

5. Selesai.

TERBANG - KOTAK

BERAKSI - KOTAK

CARA MEMBUAT TANDA WARNA CELL DENGAN VBA DENGAN MS. EXCEL

CARA MEMBUAT LOG IN DI VBA MACRO MS.EXCEL

CARA MEMBUAT KALENDER SEDERHANA DENGAN MS.EXCEL