{"id":1884,"date":"2013-12-06T15:05:45","date_gmt":"2013-12-06T06:05:45","guid":{"rendered":"http:\/\/www23.atpages.jp\/~inoni\/?p=1884"},"modified":"2017-10-20T17:29:04","modified_gmt":"2017-10-20T08:29:04","slug":"excelvba%e8%a6%9a%e6%9b%b8-%e3%83%ad%e3%83%83%e3%82%af%e3%81%a8%e3%82%aa%e3%83%bc%e3%83%88%e3%83%95%e3%82%a3%e3%83%ab%e3%82%bf%e2%80%95%e3%80%81%e6%95%b0%e5%bc%8f%e3%82%bb%e3%83%ab%e5%88%a4%e6%96%ad","status":"publish","type":"post","link":"http:\/\/anada.cloudfree.jp\/?p=1884","title":{"rendered":"ExcelVBA\u899a\u66f8 \u30ed\u30c3\u30af\u95a2\u9023\u3068\u6570\u5f0f\u30bb\u30eb\u5224\u65ad"},"content":{"rendered":"

\u306a\u3093\u3060\u304b\u3093\u3060\u3067\u3001Zoo Keeper\u5bfe\u6226\u4e2d\u3002
\n\u6587\u53e5\u8a00\u3063\u3066\u3066\u3082\u3001\u7d50\u5c40\u3059\u304d\u306a\u3093\u3060\u308d\u3049\uff5e\u30fb\u30fb\u30fb\u3048\u3047\u597d\u304d\u3067\u3059\uff08\u30dd\u30c3\uff09\u3001\u3068\u4e0b\u3089\u3093\u4e00\u4eba\u829d\u5c45\u3092\u3057\u305f\u3068\u3053\u308d\u3067\u3001\u30e1\u30e2\u3002<\/p>\n

‘———————————————————<\/p>\n

\u307e\u305a\u306f\u3001Excel\u30de\u30af\u30ed\u306e\u30ed\u30c3\u30af\u3042\u308c\u3053\u308c\u3002<\/p>\n

\nConst LOCK_PW as String = "pw"\nDim wb as Workbook\nDim ws as Worksheet\nDim rng as Range\n<\/pre>\n
\u3068\u4eee\u8a2d\u5b9a\u3057\u3066\u30fb\u30fb\u30fb<\/p>\n
‘\u30d6\u30c3\u30af\u306e\u30ed\u30c3\u30af\/\u30ed\u30c3\u30af\u89e3\u9664<\/p>\n
\nwb.Protect LOCK_PW     '\u30ed\u30c3\u30af\nwb.UnProtect LOCK_PW   '\u89e3\u9664\n<\/pre>\n
‘\u30b7\u30fc\u30c8\u306e\u30ed\u30c3\u30af\/\u30ed\u30c3\u30af\u89e3\u9664<\/p>\n
\nIf Not ws.ProtectContents Then ws.Protect LOCK_PW , AllowFiltering:=True    '\u30ed\u30c3\u30af\nIf ws.ProtectContents Then ws.UnProtect LOCK_PW   '\u89e3\u9664\n<\/pre>\n
\uff08\u30ed\u30c3\u30af\u3057\u3066\u3082\u30aa\u30fc\u30c8\u30d5\u30a3\u30eb\u30bf\u30fc\u306f\u4f7f\u3048\u308b\u3088\u3046\u306b\u3057\u3068\u3044\u305f\u307b\u3046\u304c\u7121\u96e3\uff09<\/p>\n
‘\u30bb\u30eb\u306e\u30ed\u30c3\u30af\/\u30ed\u30c3\u30af\u89e3\u9664<\/p>\n
\nrng.Locked = True     '\u30ed\u30c3\u30af\nrng.Locked = False    '\u89e3\u9664\n<\/pre>\n
\u30b7\u30fc\u30c8\u306f\u30ed\u30c3\u30af\u3055\u308c\u3066\u3044\u308b\u304b\u3069\u3046\u304b\u78ba\u8a8d\u3059\u308b\u30d7\u30ed\u30d1\u30c6\u30a3\u304c\u3042\u308b\u306e\u3067\u3001\u30ed\u30c3\u30af\u304c\u304b\u304b\u3063\u3066\u3044\u306a\u3051\u308c\u3070\u30ed\u30c3\u30af\u3092\u304b\u3051\u308b\u3088\u3046\u306b\u3057\u306a\u3044\u3068\u3001Excel2013\u3067\u306f\u30ed\u30c3\u30af\u30fb\u30ed\u30c3\u30af\u89e3\u9664\u306b\u6642\u9593\u304c\u304b\u304b\u308b\u306e\u3067\u3001\u7121\u99c4\u306b\u6642\u9593\u3092\u98df\u3046\u30ed\u30b8\u30c3\u30af\u306b\u306a\u3063\u3066\u3057\u307e\u3046\u3002
\n\u30bb\u30eb\u30ed\u30c3\u30af\u306f\u30bb\u30eb\u306e\u30ed\u30c3\u30af\u3092\u304b\u3051\u3066\u3082\u30b7\u30fc\u30c8\u30ed\u30c3\u30af\u304b\u3051\u3066\u306a\u3044\u3068\u6709\u52b9\u306b\u306f\u306a\u3089\u306a\u3044\u306e\u3067\u6ce8\u610f\u3002<\/p>\n
‘———————————————————<\/p>\n
‘\u30bb\u30eb\u304c\u6570\u5f0f\u306a\u306e\u304b\u3069\u3046\u304b<\/p>\n
\nIf rng.HasFormula Then\n    '\u6570\u5f0f\u3067\u3059\uff01\nElse\n    '\u6570\u5f0f\u3058\u3083\u3042\u308a\u307e\u305b\u3093\uff01\nEnd If\n<\/pre>\n","protected":false},"excerpt":{"rendered":"
\u306a\u3093\u3060\u304b\u3093\u3060\u3067\u3001Zoo Keeper\u5bfe\u6226\u4e2d\u3002 \u6587\u53e5\u8a00\u3063\u3066\u3066\u3082\u3001\u7d50\u5c40\u3059\u304d\u306a\u3093\u3060\u308d\u3049\uff5e\u30fb\u30fb\u30fb\u3048\u3047\u597d\u304d\u3067\u3059\uff08\u30dd\u30c3\uff09\u3001\u3068\u4e0b\u3089\u3093\u4e00\u4eba\u829d\u5c45\u3092\u3057\u305f\u3068\u3053\u308d\u3067\u3001\u30e1\u30e2\u3002 ‘———— […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[5],"tags":[43,74],"class_list":["post-1884","post","type-post","status-publish","format-standard","hentry","category-excelvba","tag-excel","tag-vba"],"_links":{"self":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/1884","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1884"}],"version-history":[{"count":1,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/1884\/revisions"}],"predecessor-version":[{"id":2693,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/1884\/revisions\/2693"}],"wp:attachment":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1884"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1884"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1884"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}