{"id":4976,"date":"2023-07-05T16:08:23","date_gmt":"2023-07-05T16:08:23","guid":{"rendered":"https:\/\/statorials.org\/id\/vba-memeriksa-apakah-buku-kerja-terbuka\/"},"modified":"2023-07-05T16:08:23","modified_gmt":"2023-07-05T16:08:23","slug":"vba-memeriksa-apakah-buku-kerja-terbuka","status":"publish","type":"post","link":"https:\/\/statorials.org\/id\/vba-memeriksa-apakah-buku-kerja-terbuka\/","title":{"rendered":"Vba: periksa apakah buku kerja terbuka (dengan contoh)"},"content":{"rendered":"<p><\/p>\n<hr>\n<p><span style=\"color: #000000;\">Anda dapat menggunakan sintaks berikut di VBA untuk memeriksa apakah buku kerja tertentu sedang terbuka.<\/span><\/p>\n<pre style=\"background-color: #ececec; font-size: 15px;\"> <span style=\"color: #000000;\"><strong><span style=\"color: #0000ff;\">SubCheckWorkbookOpen<\/span> ()\n\n<span style=\"color: #0000ff;\">Dim<\/span> resultCheck <span style=\"color: #0000ff;\">As<\/span> Boolean\n<span style=\"color: #0000ff;\">Dim<\/span> wb <span style=\"color: #0000ff;\">As<\/span> Workbook\n<span style=\"color: #0000ff;\">Dim<\/span> specific_wb <span style=\"color: #0000ff;\">As<\/span> String\n    \n<span style=\"color: #0000ff;\">On Error Resume Next<\/span>\nspecific_wb = InputBox(\"Check if this workbook is open:\")\n    \n<span style=\"color: #0000ff;\">Set<\/span> wb = Application.Workbooks.Item(specific_wb)\nresultCheck = <span style=\"color: #0000ff;\">Not<\/span> wb <span style=\"color: #0000ff;\">Is Nothing<\/span>\n\n<span style=\"color: #0000ff;\">If<\/span> resultCheck <span style=\"color: #0000ff;\">Then<\/span>\n    MsgBox \u201cWorkbook is open\u201d\n<span style=\"color: #0000ff;\">Else\n<\/span>MsgBox \u201cWorkbook is not open\u201d\n<span style=\"color: #0000ff;\">End If\n<\/span>    \n<span style=\"color: #0000ff;\">End Sub\n<\/span><\/strong><\/span><\/pre>\n<p> <span style=\"color: #000000;\">Saat makro ini dijalankan, kotak input akan muncul di mana pengguna bisa mengetikkan nama buku kerja Excel dan makro akan menghasilkan kotak pesan dengan salah satu hasil berikut:<\/span><\/p>\n<ul>\n<li> <span style=\"color: #000000;\">\u201cFilenya terbuka\u201d<\/span><\/li>\n<li> <span style=\"color: #000000;\">\u201cFile tidak terbuka\u201d<\/span><\/li>\n<\/ul>\n<p> <span style=\"color: #000000;\">Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.<\/span><\/p>\n<h2> <span style=\"color: #000000;\"><strong>Contoh: Cara memeriksa apakah workbook terbuka menggunakan VBA<\/strong><\/span><\/h2>\n<p> <span style=\"color: #000000;\">Katakanlah saat ini kita memiliki dua buku kerja yang terbuka dengan nama berikut:<\/span><\/p>\n<ul>\n<li> <span style=\"color: #000000;\"><strong>buku kerja_saya1.xlsx<\/strong><\/span><\/li>\n<li> <span style=\"color: #000000;\"><strong>buku kerja_saya2.xlsx<\/strong><\/span><\/li>\n<\/ul>\n<p> <span style=\"color: #000000;\">Katakanlah kita ingin memeriksa apakah buku kerja bernama <strong>my_workbook1.xlsx<\/strong> sedang terbuka.<\/span><\/p>\n<p> <span style=\"color: #000000;\">Kita dapat membuat makro berikut untuk melakukan ini:<\/span><\/p>\n<pre style=\"background-color: #ececec; font-size: 15px;\"> <span style=\"color: #000000;\"><strong><span style=\"color: #0000ff;\">SubCheckWorkbookOpen<\/span> ()\n\n<span style=\"color: #0000ff;\">Dim<\/span> resultCheck <span style=\"color: #0000ff;\">As<\/span> Boolean\n<span style=\"color: #0000ff;\">Dim<\/span> wb <span style=\"color: #0000ff;\">As<\/span> Workbook\n<span style=\"color: #0000ff;\">Dim<\/span> specific_wb <span style=\"color: #0000ff;\">As<\/span> String\n    \n<span style=\"color: #0000ff;\">On Error Resume Next<\/span>\nspecific_wb = InputBox(\"Check if this workbook is open:\")\n    \n<span style=\"color: #0000ff;\">Set<\/span> wb = Application.Workbooks.Item(specific_wb)\nresultCheck = <span style=\"color: #0000ff;\">Not<\/span> wb <span style=\"color: #0000ff;\">Is Nothing<\/span>\n\n<span style=\"color: #0000ff;\">If<\/span> resultCheck <span style=\"color: #0000ff;\">Then<\/span>\n    MsgBox \u201cWorkbook is open\u201d\n<span style=\"color: #0000ff;\">Else\n<\/span>MsgBox \u201cWorkbook is not open\u201d\n<span style=\"color: #0000ff;\">End If\n<\/span>    \n<span style=\"color: #0000ff;\">End Sub<\/span><\/strong><\/span><\/pre>\n<p> <span style=\"color: #000000;\">Setelah kita menjalankan makro ini, sebuah kotak akan muncul di mana saya dapat mengetikkan <strong>my_workbook1.xlsx<\/strong> ke dalam kotak input:<\/span> <\/p>\n<p><img decoding=\"async\" loading=\"lazy\" class=\" wp-image-38820 aligncenter\" src=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/checko1.png\" alt=\"\" width=\"532\" height=\"381\" srcset=\"\" sizes=\"\"><\/p>\n<p> <span style=\"color: #000000;\">Setelah saya klik <strong>OK<\/strong> , makro akan menghasilkan kotak pesan berikut:<\/span> <\/p>\n<p><img decoding=\"async\" loading=\"lazy\" class=\" wp-image-38821 aligncenter\" src=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/checko2.png\" alt=\"\" width=\"486\" height=\"416\" srcset=\"\" sizes=\"\"><\/p>\n<p> <span style=\"color: #000000;\">Makro menampilkan &#8220;Buku kerja terbuka&#8221; dengan benar untuk menunjukkan bahwa buku kerja dengan nama tersebut sedang terbuka.<\/span><\/p>\n<p> <span style=\"color: #000000;\">Sekarang misalkan saya mengetikkan nama buku kerja yang saat ini tidak terbuka:<\/span> <\/p>\n<p><img decoding=\"async\" loading=\"lazy\" class=\" wp-image-38822 aligncenter\" src=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/checko3.png\" alt=\"\" width=\"553\" height=\"374\" srcset=\"\" sizes=\"\"><\/p>\n<p> <span style=\"color: #000000;\">Setelah saya klik <strong>OK<\/strong> , makro akan menghasilkan kotak pesan berikut:<\/span> <\/p>\n<p><img decoding=\"async\" loading=\"lazy\" class=\" wp-image-38823 aligncenter\" src=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/checko4.png\" alt=\"\" width=\"476\" height=\"389\" srcset=\"\" sizes=\"\"><\/p>\n<p> <span style=\"color: #000000;\">Makro dengan benar menampilkan &#8220;Buku kerja tidak terbuka&#8221; untuk menunjukkan bahwa buku kerja dengan nama tersebut saat ini tidak terbuka.<\/span><\/p>\n<h2> <span style=\"color: #000000;\"><strong>Sumber daya tambahan<\/strong><\/span><\/h2>\n<p> <span style=\"color: #000000;\">Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:<\/span><\/p>\n<p> <span style=\"color: #000000;\"><a href=\"https:\/\/statorials.org\/id\/vba-menghitung-jumlah-lembar\/\" target=\"_blank\" rel=\"noopener\">VBA: Cara menghitung jumlah lembar dalam buku kerja<\/a><br \/> <a href=\"https:\/\/statorials.org\/id\/vba-menyisipkan-beberapa-kolom\/\" target=\"_blank\" rel=\"noopener\">VBA: cara menyisipkan banyak kolom<\/a><br \/> <a href=\"https:\/\/statorials.org\/id\/vba-menyisipkan-banyak-baris\/\" target=\"_blank\" rel=\"noopener\">VBA: cara menyisipkan banyak baris<\/a><\/span><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Anda dapat menggunakan sintaks berikut di VBA untuk memeriksa apakah buku kerja tertentu sedang terbuka. SubCheckWorkbookOpen () Dim resultCheck As Boolean Dim wb As Workbook Dim specific_wb As String On Error Resume Next specific_wb = InputBox(&#8220;Check if this workbook is open:&#8221;) Set wb = Application.Workbooks.Item(specific_wb) resultCheck = Not wb Is Nothing If resultCheck Then MsgBox [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[],"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v21.5 - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<title>VBA: Periksa apakah buku kerja terbuka (dengan contoh) - Statologi<\/title>\n<meta name=\"description\" content=\"Tutorial ini menjelaskan cara memeriksa apakah buku kerja Excel terbuka menggunakan VBA, dengan sebuah contoh.\" \/>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/statorials.org\/id\/vba-memeriksa-apakah-buku-kerja-terbuka\/\" \/>\n<meta property=\"og:locale\" content=\"id_ID\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"VBA: Periksa apakah buku kerja terbuka (dengan contoh) - Statologi\" \/>\n<meta property=\"og:description\" content=\"Tutorial ini menjelaskan cara memeriksa apakah buku kerja Excel terbuka menggunakan VBA, dengan sebuah contoh.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/statorials.org\/id\/vba-memeriksa-apakah-buku-kerja-terbuka\/\" \/>\n<meta property=\"og:site_name\" content=\"Statorials\" \/>\n<meta property=\"article:published_time\" content=\"2023-07-05T16:08:23+00:00\" \/>\n<meta property=\"og:image\" content=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/checko1.png\" \/>\n<meta name=\"author\" content=\"Benjamin anderson\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Ditulis oleh\" \/>\n\t<meta name=\"twitter:data1\" content=\"Benjamin anderson\" \/>\n\t<meta name=\"twitter:label2\" content=\"Estimasi waktu membaca\" \/>\n\t<meta name=\"twitter:data2\" content=\"2 menit\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"WebPage\",\"@id\":\"https:\/\/statorials.org\/id\/vba-memeriksa-apakah-buku-kerja-terbuka\/\",\"url\":\"https:\/\/statorials.org\/id\/vba-memeriksa-apakah-buku-kerja-terbuka\/\",\"name\":\"VBA: Periksa apakah buku kerja terbuka (dengan contoh) - Statologi\",\"isPartOf\":{\"@id\":\"https:\/\/statorials.org\/id\/#website\"},\"datePublished\":\"2023-07-05T16:08:23+00:00\",\"dateModified\":\"2023-07-05T16:08:23+00:00\",\"author\":{\"@id\":\"https:\/\/statorials.org\/id\/#\/schema\/person\/3d17a1160dd2d052b7c78e502cb9ec81\"},\"description\":\"Tutorial ini menjelaskan cara memeriksa apakah buku kerja Excel terbuka menggunakan VBA, dengan sebuah contoh.\",\"breadcrumb\":{\"@id\":\"https:\/\/statorials.org\/id\/vba-memeriksa-apakah-buku-kerja-terbuka\/#breadcrumb\"},\"inLanguage\":\"id\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/statorials.org\/id\/vba-memeriksa-apakah-buku-kerja-terbuka\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/statorials.org\/id\/vba-memeriksa-apakah-buku-kerja-terbuka\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\/\/statorials.org\/id\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Vba: periksa apakah buku kerja terbuka (dengan contoh)\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/statorials.org\/id\/#website\",\"url\":\"https:\/\/statorials.org\/id\/\",\"name\":\"Statorials\",\"description\":\"Panduan anda untuk kompetensi statistik!\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/statorials.org\/id\/?s={search_term_string}\"},\"query-input\":\"required name=search_term_string\"}],\"inLanguage\":\"id\"},{\"@type\":\"Person\",\"@id\":\"https:\/\/statorials.org\/id\/#\/schema\/person\/3d17a1160dd2d052b7c78e502cb9ec81\",\"name\":\"Benjamin anderson\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"id\",\"@id\":\"https:\/\/statorials.org\/id\/#\/schema\/person\/image\/\",\"url\":\"http:\/\/statorials.org\/id\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg\",\"contentUrl\":\"http:\/\/statorials.org\/id\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg\",\"caption\":\"Benjamin anderson\"},\"description\":\"Halo, saya Benjamin, pensiunan profesor statistika yang menjadi guru Statorial yang berdedikasi. Dengan pengalaman dan keahlian yang luas di bidang statistika, saya ingin berbagi ilmu untuk memberdayakan mahasiswa melalui Statorials. Baca selengkapnya\",\"sameAs\":[\"http:\/\/statorials.org\/id\"]}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"VBA: Periksa apakah buku kerja terbuka (dengan contoh) - Statologi","description":"Tutorial ini menjelaskan cara memeriksa apakah buku kerja Excel terbuka menggunakan VBA, dengan sebuah contoh.","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/statorials.org\/id\/vba-memeriksa-apakah-buku-kerja-terbuka\/","og_locale":"id_ID","og_type":"article","og_title":"VBA: Periksa apakah buku kerja terbuka (dengan contoh) - Statologi","og_description":"Tutorial ini menjelaskan cara memeriksa apakah buku kerja Excel terbuka menggunakan VBA, dengan sebuah contoh.","og_url":"https:\/\/statorials.org\/id\/vba-memeriksa-apakah-buku-kerja-terbuka\/","og_site_name":"Statorials","article_published_time":"2023-07-05T16:08:23+00:00","og_image":[{"url":"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/checko1.png"}],"author":"Benjamin anderson","twitter_card":"summary_large_image","twitter_misc":{"Ditulis oleh":"Benjamin anderson","Estimasi waktu membaca":"2 menit"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"WebPage","@id":"https:\/\/statorials.org\/id\/vba-memeriksa-apakah-buku-kerja-terbuka\/","url":"https:\/\/statorials.org\/id\/vba-memeriksa-apakah-buku-kerja-terbuka\/","name":"VBA: Periksa apakah buku kerja terbuka (dengan contoh) - Statologi","isPartOf":{"@id":"https:\/\/statorials.org\/id\/#website"},"datePublished":"2023-07-05T16:08:23+00:00","dateModified":"2023-07-05T16:08:23+00:00","author":{"@id":"https:\/\/statorials.org\/id\/#\/schema\/person\/3d17a1160dd2d052b7c78e502cb9ec81"},"description":"Tutorial ini menjelaskan cara memeriksa apakah buku kerja Excel terbuka menggunakan VBA, dengan sebuah contoh.","breadcrumb":{"@id":"https:\/\/statorials.org\/id\/vba-memeriksa-apakah-buku-kerja-terbuka\/#breadcrumb"},"inLanguage":"id","potentialAction":[{"@type":"ReadAction","target":["https:\/\/statorials.org\/id\/vba-memeriksa-apakah-buku-kerja-terbuka\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/statorials.org\/id\/vba-memeriksa-apakah-buku-kerja-terbuka\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/statorials.org\/id\/"},{"@type":"ListItem","position":2,"name":"Vba: periksa apakah buku kerja terbuka (dengan contoh)"}]},{"@type":"WebSite","@id":"https:\/\/statorials.org\/id\/#website","url":"https:\/\/statorials.org\/id\/","name":"Statorials","description":"Panduan anda untuk kompetensi statistik!","potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/statorials.org\/id\/?s={search_term_string}"},"query-input":"required name=search_term_string"}],"inLanguage":"id"},{"@type":"Person","@id":"https:\/\/statorials.org\/id\/#\/schema\/person\/3d17a1160dd2d052b7c78e502cb9ec81","name":"Benjamin anderson","image":{"@type":"ImageObject","inLanguage":"id","@id":"https:\/\/statorials.org\/id\/#\/schema\/person\/image\/","url":"http:\/\/statorials.org\/id\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg","contentUrl":"http:\/\/statorials.org\/id\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg","caption":"Benjamin anderson"},"description":"Halo, saya Benjamin, pensiunan profesor statistika yang menjadi guru Statorial yang berdedikasi. Dengan pengalaman dan keahlian yang luas di bidang statistika, saya ingin berbagi ilmu untuk memberdayakan mahasiswa melalui Statorials. Baca selengkapnya","sameAs":["http:\/\/statorials.org\/id"]}]}},"yoast_meta":{"yoast_wpseo_title":"","yoast_wpseo_metadesc":"","yoast_wpseo_canonical":""},"_links":{"self":[{"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/posts\/4976"}],"collection":[{"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/comments?post=4976"}],"version-history":[{"count":0,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/posts\/4976\/revisions"}],"wp:attachment":[{"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/media?parent=4976"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/categories?post=4976"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/tags?post=4976"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}