{"id":16964,"date":"2022-10-22T16:56:36","date_gmt":"2022-10-22T11:26:36","guid":{"rendered":"https:\/\/jassweb.com\/solved\/solved-how-to-locked-excel-by-cpuid-in-vba-closed\/"},"modified":"2022-10-22T16:56:36","modified_gmt":"2022-10-22T11:26:36","slug":"solved-how-to-locked-excel-by-cpuid-in-vba-closed","status":"publish","type":"post","link":"https:\/\/jassweb.com\/solved\/solved-how-to-locked-excel-by-cpuid-in-vba-closed\/","title":{"rendered":"[Solved] how to locked excel by cpuid in vba [closed]"},"content":{"rendered":"<p> [ad_1]<br \/>\n<\/p>\n<div id=\"answer-64287801\" class=\"answer js-answer accepted-answer js-accepted-answer\" data-answerid=\"64287801\" data-parentid=\"64287594\" data-score=\"1\" data-position-on-page=\"1\" data-highest-scored=\"1\" data-question-has-accepted-highest-score=\"1\" itemprop=\"acceptedAnswer\" itemscope itemtype=\"https:\/\/schema.org\/Answer\">\n<div class=\"post-layout\">\n<div class=\"votecell post-layout--left\"><\/div>\n<div class=\"answercell post-layout--right\">\n<div class=\"s-prose js-post-body\" itemprop=\"text\">\n<p>Declare the items as Object.<br \/>\nYou also have your For Each loop out of order.<\/p>\n<pre><code>Function GetCPUID() As String\n\n  Dim cimv2 As Object\n  Dim PInfo As Object\n  Dim PItem As Object \n  Dim PubStrComputer As String\n\n  PubStrComputer = \".\"\n  Set cimv2 = GetObject(\"winmgmts:\\\\\" &amp; PubStrComputer &amp; \"\\root\\cimv2\")\n  Set PInfo = cimv2.ExecQuery(\"Select * From Win32_Processor\")\n\n  For Each PItem In PInfo\n     GetCPUID = PItem.ProcessorID\n  Next PItem\n\nEnd Function\n<\/code><\/pre>\n<p>BTW, you do know that identical CPUs will return the same ID? Not the same as a serial number. For example:<\/p>\n<pre><code>Item                    Value                                                  \n------                  -----                                                  \nProcessor Name          Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz                \n  Code Name             Kaby Lake                                              \n  Info                  Intel64 Family 6 Model 158 Stepping 9                  \n  Maker                 GenuineIntel                                           \n  ID                    BFEBFBFF000906E9                                       \n  Max CPU Speed         3.6 GHz                                                \n  Physical CPUs         1                                                      \n  Physical Cores        4                                                      \n  Logical  Cores        8                                                      \n  Address Width         64                                                     \n  HyperThreading        Enabled                                                \n  VM Firmware           Disabled                                               \n  Socket                U3E1                                                   \n<\/code><\/pre>\n<p>Update: Using Powershell I looked at the properties for the CPU_Object. It includes a Serial number but when checked on my PC I got this:<\/p>\n<pre><code>PS&gt; $CPU_Object.serialnumber\nTo Be Filled By O.E.M.\n<\/code><\/pre>\n<p>HTH<\/p>\n<\/p><\/div>\n<div class=\"mt24\"><\/div>\n<\/div>\n<p>            <span class=\"d-none\" itemprop=\"commentCount\">0<\/span> <\/p><\/div>\n<\/div>\n<p>[ad_2]<\/p>\n<p>solved how to locked excel by cpuid in vba [closed] <\/p>\n","protected":false},"excerpt":{"rendered":"<p>[ad_1] Declare the items as Object. You also have your For Each loop out of order. Function GetCPUID() As String Dim cimv2 As Object Dim PInfo As Object Dim PItem As Object Dim PubStrComputer As String PubStrComputer = &#8220;.&#8221; Set cimv2 = GetObject(&#8220;winmgmts:\\\\&#8221; &amp; PubStrComputer &amp; &#8220;\\root\\cimv2&#8221;) Set PInfo = cimv2.ExecQuery(&#8220;Select * From Win32_Processor&#8221;) For &#8230; <a title=\"[Solved] how to locked excel by cpuid in vba [closed]\" class=\"read-more\" href=\"https:\/\/jassweb.com\/solved\/solved-how-to-locked-excel-by-cpuid-in-vba-closed\/\" aria-label=\"More on [Solved] how to locked excel by cpuid in vba [closed]\">Read more<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[320],"tags":[400,401],"class_list":["post-16964","post","type-post","status-publish","format-standard","hentry","category-solved","tag-excel","tag-vba"],"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v26.5 - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<title>[Solved] how to locked excel by cpuid in vba [closed] - JassWeb<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/jassweb.com\/solved\/solved-how-to-locked-excel-by-cpuid-in-vba-closed\/\" \/>\n<meta property=\"og:locale\" content=\"en_US\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"[Solved] how to locked excel by cpuid in vba [closed] - JassWeb\" \/>\n<meta property=\"og:description\" content=\"[ad_1] Declare the items as Object. You also have your For Each loop out of order. Function GetCPUID() As String Dim cimv2 As Object Dim PInfo As Object Dim PItem As Object Dim PubStrComputer As String PubStrComputer = &quot;.&quot; Set cimv2 = GetObject(&quot;winmgmts:\\&quot; &amp; PubStrComputer &amp; &quot;rootcimv2&quot;) Set PInfo = cimv2.ExecQuery(&quot;Select * From Win32_Processor&quot;) For ... Read more\" \/>\n<meta property=\"og:url\" content=\"https:\/\/jassweb.com\/solved\/solved-how-to-locked-excel-by-cpuid-in-vba-closed\/\" \/>\n<meta property=\"og:site_name\" content=\"JassWeb\" \/>\n<meta property=\"article:published_time\" content=\"2022-10-22T11:26:36+00:00\" \/>\n<meta name=\"author\" content=\"Kirat\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Written by\" \/>\n\t<meta name=\"twitter:data1\" content=\"Kirat\" \/>\n\t<meta name=\"twitter:label2\" content=\"Est. reading time\" \/>\n\t<meta name=\"twitter:data2\" content=\"1 minute\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\/\/jassweb.com\/solved\/solved-how-to-locked-excel-by-cpuid-in-vba-closed\/#article\",\"isPartOf\":{\"@id\":\"https:\/\/jassweb.com\/solved\/solved-how-to-locked-excel-by-cpuid-in-vba-closed\/\"},\"author\":{\"name\":\"Kirat\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31\"},\"headline\":\"[Solved] how to locked excel by cpuid in vba [closed]\",\"datePublished\":\"2022-10-22T11:26:36+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\/\/jassweb.com\/solved\/solved-how-to-locked-excel-by-cpuid-in-vba-closed\/\"},\"wordCount\":85,\"publisher\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#organization\"},\"keywords\":[\"excel\",\"vba\"],\"articleSection\":[\"Solved\"],\"inLanguage\":\"en-US\"},{\"@type\":\"WebPage\",\"@id\":\"https:\/\/jassweb.com\/solved\/solved-how-to-locked-excel-by-cpuid-in-vba-closed\/\",\"url\":\"https:\/\/jassweb.com\/solved\/solved-how-to-locked-excel-by-cpuid-in-vba-closed\/\",\"name\":\"[Solved] how to locked excel by cpuid in vba [closed] - JassWeb\",\"isPartOf\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#website\"},\"datePublished\":\"2022-10-22T11:26:36+00:00\",\"breadcrumb\":{\"@id\":\"https:\/\/jassweb.com\/solved\/solved-how-to-locked-excel-by-cpuid-in-vba-closed\/#breadcrumb\"},\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/jassweb.com\/solved\/solved-how-to-locked-excel-by-cpuid-in-vba-closed\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/jassweb.com\/solved\/solved-how-to-locked-excel-by-cpuid-in-vba-closed\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\/\/jassweb.com\/solved\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"[Solved] how to locked excel by cpuid in vba [closed]\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/jassweb.com\/solved\/#website\",\"url\":\"https:\/\/jassweb.com\/solved\/\",\"name\":\"JassWeb\",\"description\":\"Build High-quality Websites\",\"publisher\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/jassweb.com\/solved\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"en-US\"},{\"@type\":\"Organization\",\"@id\":\"https:\/\/jassweb.com\/solved\/#organization\",\"name\":\"Jass Web\",\"url\":\"https:\/\/jassweb.com\/solved\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/\",\"url\":\"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png\",\"contentUrl\":\"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png\",\"width\":693,\"height\":132,\"caption\":\"Jass Web\"},\"image\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31\",\"name\":\"Kirat\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/person\/image\/\",\"url\":\"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1776403586\",\"contentUrl\":\"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1776403586\",\"caption\":\"Kirat\"},\"sameAs\":[\"http:\/\/jassweb.com\"],\"url\":\"https:\/\/jassweb.com\/solved\/author\/jaspritsinghghumangmail-com\/\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"[Solved] how to locked excel by cpuid in vba [closed] - JassWeb","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:\/\/jassweb.com\/solved\/solved-how-to-locked-excel-by-cpuid-in-vba-closed\/","og_locale":"en_US","og_type":"article","og_title":"[Solved] how to locked excel by cpuid in vba [closed] - JassWeb","og_description":"[ad_1] Declare the items as Object. You also have your For Each loop out of order. Function GetCPUID() As String Dim cimv2 As Object Dim PInfo As Object Dim PItem As Object Dim PubStrComputer As String PubStrComputer = \".\" Set cimv2 = GetObject(\"winmgmts:\\\" &amp; PubStrComputer &amp; \"rootcimv2\") Set PInfo = cimv2.ExecQuery(\"Select * From Win32_Processor\") For ... Read more","og_url":"https:\/\/jassweb.com\/solved\/solved-how-to-locked-excel-by-cpuid-in-vba-closed\/","og_site_name":"JassWeb","article_published_time":"2022-10-22T11:26:36+00:00","author":"Kirat","twitter_card":"summary_large_image","twitter_misc":{"Written by":"Kirat","Est. reading time":"1 minute"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/jassweb.com\/solved\/solved-how-to-locked-excel-by-cpuid-in-vba-closed\/#article","isPartOf":{"@id":"https:\/\/jassweb.com\/solved\/solved-how-to-locked-excel-by-cpuid-in-vba-closed\/"},"author":{"name":"Kirat","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31"},"headline":"[Solved] how to locked excel by cpuid in vba [closed]","datePublished":"2022-10-22T11:26:36+00:00","mainEntityOfPage":{"@id":"https:\/\/jassweb.com\/solved\/solved-how-to-locked-excel-by-cpuid-in-vba-closed\/"},"wordCount":85,"publisher":{"@id":"https:\/\/jassweb.com\/solved\/#organization"},"keywords":["excel","vba"],"articleSection":["Solved"],"inLanguage":"en-US"},{"@type":"WebPage","@id":"https:\/\/jassweb.com\/solved\/solved-how-to-locked-excel-by-cpuid-in-vba-closed\/","url":"https:\/\/jassweb.com\/solved\/solved-how-to-locked-excel-by-cpuid-in-vba-closed\/","name":"[Solved] how to locked excel by cpuid in vba [closed] - JassWeb","isPartOf":{"@id":"https:\/\/jassweb.com\/solved\/#website"},"datePublished":"2022-10-22T11:26:36+00:00","breadcrumb":{"@id":"https:\/\/jassweb.com\/solved\/solved-how-to-locked-excel-by-cpuid-in-vba-closed\/#breadcrumb"},"inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["https:\/\/jassweb.com\/solved\/solved-how-to-locked-excel-by-cpuid-in-vba-closed\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/jassweb.com\/solved\/solved-how-to-locked-excel-by-cpuid-in-vba-closed\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/jassweb.com\/solved\/"},{"@type":"ListItem","position":2,"name":"[Solved] how to locked excel by cpuid in vba [closed]"}]},{"@type":"WebSite","@id":"https:\/\/jassweb.com\/solved\/#website","url":"https:\/\/jassweb.com\/solved\/","name":"JassWeb","description":"Build High-quality Websites","publisher":{"@id":"https:\/\/jassweb.com\/solved\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/jassweb.com\/solved\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"en-US"},{"@type":"Organization","@id":"https:\/\/jassweb.com\/solved\/#organization","name":"Jass Web","url":"https:\/\/jassweb.com\/solved\/","logo":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/","url":"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png","contentUrl":"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png","width":693,"height":132,"caption":"Jass Web"},"image":{"@id":"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31","name":"Kirat","image":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/person\/image\/","url":"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1776403586","contentUrl":"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1776403586","caption":"Kirat"},"sameAs":["http:\/\/jassweb.com"],"url":"https:\/\/jassweb.com\/solved\/author\/jaspritsinghghumangmail-com\/"}]}},"_links":{"self":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/posts\/16964","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/comments?post=16964"}],"version-history":[{"count":0,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/posts\/16964\/revisions"}],"wp:attachment":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/media?parent=16964"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/categories?post=16964"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/tags?post=16964"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}