{"id":1696,"date":"2017-01-25T15:33:08","date_gmt":"2017-01-25T07:33:08","guid":{"rendered":"https:\/\/cowmanchiang.me\/wp\/?p=1696"},"modified":"2023-10-31T15:42:48","modified_gmt":"2023-10-31T07:42:48","slug":"protect-data-validation-to-fail-while-copy-and-paste-data","status":"publish","type":"post","link":"https:\/\/cowmanchiang.me\/wp\/?p=1696","title":{"rendered":"protect data validation to fail while copy and paste data"},"content":{"rendered":"<pre class=\"EnlighterJSRAW\" data-enlighter-language=\"default\" data-enlighter-title=\"protect data validation to fail while copy and paste data\">Private Sub Worksheet_Change(ByVal Target As Range)\n    &#039;Does the validation range still have validation?\n    Set range1 = Range(&quot;B2:B6500&quot;)\n    If HasValidation(range1) Then\n        Exit Sub\n    Else\n        Application.Undo\n        MsgBox &quot;\u60a8\u7684\u64cd\u4f5c\u5c07\u6703\u88ab\u53d6\u6d88, &quot; &amp; vbCrLf &amp; &quot;\u8acb\u4f7f\u7528\u4e0b\u62c9\u9078\u55ae\u9032\u884c\u9078\u64c7&quot;, vbCritical\n    End If\nEnd Sub\n\nPrivate Function HasValidation(r) As Boolean\n&#039;   Returns True if every cell in Range r uses Data Validation\n    On Error Resume Next\n    x = r.Validation.Type\n    If Err.Number = 0 Then HasValidation = True Else HasValidation = False\nEnd Function\n<\/pre>\n<p><a href=\"https:\/\/cowmanchiang.me:443\/wp\/wp-content\/uploads\/2017\/01\/\u87a2\u5e55\u5feb\u7167-2017-01-25-\u4e0b\u53483.26.47.png\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/cowmanchiang.me:443\/wp\/wp-content\/uploads\/2017\/01\/\u87a2\u5e55\u5feb\u7167-2017-01-25-\u4e0b\u53483.26.47-300x102.png\" alt=\"\" width=\"300\" height=\"102\" class=\"aligncenter size-medium wp-image-1698\" srcset=\"https:\/\/cowmanchiang.me\/wp\/wp-content\/uploads\/2017\/01\/\u87a2\u5e55\u5feb\u7167-2017-01-25-\u4e0b\u53483.26.47-300x102.png 300w, https:\/\/cowmanchiang.me\/wp\/wp-content\/uploads\/2017\/01\/\u87a2\u5e55\u5feb\u7167-2017-01-25-\u4e0b\u53483.26.47.png 455w\" sizes=\"auto, (max-width: 300px) 100vw, 300px\" \/><\/a><\/p>\n<p>source: <a href=\"http:\/\/spreadsheetpage.com\/index.php\/tip\/ensuring_that_data_validation_is_not_deleted\/\">Ensuring That Data Validation Is Not Deleted<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Private Sub Worksheet_Change(ByVal Target As Range) &#039;Does the validation range still have validation? Set range1 = Range(&quot;B2:B6500&quot;) If HasValidation(range1) Then Exit Sub Else Application.Undo MsgBox &quot;\u60a8\u7684\u64cd\u4f5c\u5c07\u6703\u88ab\u53d6\u6d88, &quot; &amp; vbCrLf &amp; &quot;\u8acb\u4f7f\u7528\u4e0b\u62c9\u9078\u55ae\u9032\u884c\u9078\u64c7&quot;, vbCritical End If End Sub Private Function HasValidation(r) As &hellip; <a href=\"https:\/\/cowmanchiang.me\/wp\/?p=1696\">Continue reading <span class=\"meta-nav\">&rarr;<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[94],"tags":[],"class_list":["post-1696","post","type-post","status-publish","format-standard","hentry","category-excel"],"_links":{"self":[{"href":"https:\/\/cowmanchiang.me\/wp\/index.php?rest_route=\/wp\/v2\/posts\/1696","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/cowmanchiang.me\/wp\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/cowmanchiang.me\/wp\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/cowmanchiang.me\/wp\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/cowmanchiang.me\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1696"}],"version-history":[{"count":2,"href":"https:\/\/cowmanchiang.me\/wp\/index.php?rest_route=\/wp\/v2\/posts\/1696\/revisions"}],"predecessor-version":[{"id":1868,"href":"https:\/\/cowmanchiang.me\/wp\/index.php?rest_route=\/wp\/v2\/posts\/1696\/revisions\/1868"}],"wp:attachment":[{"href":"https:\/\/cowmanchiang.me\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1696"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/cowmanchiang.me\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1696"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/cowmanchiang.me\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1696"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}