Video: Apakah Dewi Aura Penipu? 2024
Untuk menggunakan makro di Excel, pengguna Anda harus mengaktifkan makro. Artinya, mereka harus memberi izin kepada Excel untuk menjalankan makro di lingkungan mereka. Untuk mengaktifkan makro, pengguna mengeklik tombol Aktifkan Konten dalam peringatan keamanan yang muncul di atas bilah rumus.
Intinya adalah Anda bisa menulis semua macro mewah di dunia, tapi tidak akan pernah berjalan kecuali pengguna Anda mengaktifkan macro. Ini menimbulkan pertanyaan; Bisakah Anda memaksa pengguna mengaktifkan makro? Jawabannya adalah ya - dengan sedikit tipu daya.
Gagasannya relatif sederhana. Anda membuat lembaran yang diberi nama, katakanlah, START. Lembar itu hanya berisi peringatan sederhana yang menyatakan bahwa makro harus diaktifkan. Anda kemudian menyembunyikan semua lembar di buku kerja kecuali untuk lembar START itu. Akhirnya, Anda menulis sebuah makro sederhana yang tidak membuka semua lembar saat buku kerja dibuka.
Pada titik ini, saat buku kerja dibuka, Excel akan meminta pengguna mengaktifkan macro. Pengguna akan dipaksa melakukannya karena semua yang akan mereka lihat adalah lembar awal Anda. Lembar lainnya akan disembunyikan!
Untuk membuat teknik ini bekerja, Anda memerlukan dua makro: Satu makro menyembunyikan semua kecuali lembar START saat buku kerja ditutup, dan makro lain yang tidak menampilkan semua kecuali lembar START saat buku kerja terbuka.
Pertama, atasi tindakan yang perlu dilakukan saat buku kerja ditutup.:
-
Aktifkan Editor Visual Basic dengan menekan ALT + F11 pada keyboard Anda
-
Di jendela Project, temukan nama proyek / workbook Anda dan klik tanda plus di sebelahnya untuk melihat semua lembar.
-
Klik ThisWorkbook.
-
Dalam kotak drop-down Event, pilih acara BeforeClose.
-
Ketik atau tempel kode berikut:
Private Sub Workbook_BeforeClose (Batal As Boolean) 'Langkah 1: Deklarasikan variabel Anda Dim Dim Sebagai Lembar Kerja' Langkah 2: Tampilkan Lembar Lembar Awal ("START"). Terlihat = xlSheetVisible 'Langkah 3: Mulai perulangan melalui semua lembar kerja Untuk Setiap ws Di ThisWorkbook. Lembar Kerja 'Langkah 4: Periksa setiap nama lembar kerja Jika ws. Nama "START" Then 'Langkah 5: Sembunyikan lembar ws. Terlihat = xlVeryHidden End If 'Langkah 6: Loop ke lembar kerja berikutnya Berikutnya ws' Langkah 7: Simpan buku kerja ActiveWorkbook. Save End Sub
Pada Langkah 1, Anda mendeklarasikan sebuah objek yang disebut ws untuk membuat wadah memori untuk setiap lembar kerja yang akan Anda lewati.
Pada Langkah 2, Anda memastikan bahwa lembar START terlihat.
Pada Langkah 3, Anda memulai perulangan, memberi tahu Excel bahwa Anda ingin mengevaluasi semua lembar kerja di buku kerja ini.
Pada Langkah 4, Anda cukup membandingkan nama START ke lembar yang saat ini dilingkarkan. Langkah ini memastikan bahwa tindakan yang berikutnya akan diterapkan ke semua lembar kecuali lembar START.
Jika nama lembar berbeda, pada Langkah 5 Anda menyembunyikan lembaran itu dengan menggunakan properti xlVeryHidden. Properti ini tidak hanya menyembunyikan lembaran tapi juga mencegah pengguna secara manual unhiding dengan menggunakan user interface.
Anda mengulang kembali untuk mendapatkan lembar berikutnya pada Langkah 6.
Pada Langkah 7, setelah semua lembar dievaluasi, makro akan menghemat buku kerja dan berakhir.
Sekarang, Anda harus menulis makro untuk menangani semua tindakan yang perlu dilakukan saat buku kerja terbuka:
-
Aktifkan Editor Visual Basic dengan menekan ALT + F11.
-
Di jendela Proyek, temukan nama proyek / buku kerja Anda dan klik tanda plus di sebelahnya untuk melihat semua lembar.
-
Klik ThisWorkbook.
-
Di kotak drop-down Acara, pilih acara Buka.
-
Ketik atau tempel kode berikut ini:
Private Sub Workbook_Open () 'Langkah 1: Deklarasikan variabel Anda Dim Dim Sebagai Lembar Kerja' Langkah 2: Mulai perulangan melalui semua lembar kerja Untuk Setiap ws Dalam ThisWorkbook. Lembar Kerja 'Langkah 3: Unhide All Worksheets ws. Terlihat = xlSheetVisible 'Langkah 4: Loop ke lembar kerja berikutnya Berikutnya ws' Langkah 5: Sembunyikan Lembar Lembar Awal ("START"). Terlihat = xlVeryHidden End Sub
Pada Langkah 1, Anda mendeklarasikan sebuah objek yang disebut ws untuk membuat wadah memori untuk setiap lembar kerja yang Anda lewati.
Pada Langkah 2, Anda memulai perulangan, memberi tahu Excel bahwa Anda ingin mengevaluasi semua lembar kerja di buku kerja ini.
Pada Langkah 3, Anda menemukan lembar yang saat ini dilingkarkan. Langkah ini secara efektif membuka semua lembar kerja karena setiap lembar dibuat terlihat.
Anda mengulang kembali untuk mendapatkan lembar berikutnya pada Langkah 4.
Setelah semua lembar dibuat terlihat, Langkah 5 menyembunyikan lembar START. Sekali lagi, Anda menggunakan properti xlVeryHidden sehingga pengguna tidak dapat secara manual menemukan selembar kertas dengan menggunakan antarmuka pengguna.
Setelah kedua makro diimplementasikan, Anda akan memiliki buku kerja yang akan bekerja hanya jika pengguna mengaktifkan macro!
