Hatena::ブログ(Diary)

まりふのひと RSSフィード

訪問数:4384307直近記事一覧見かたPCRFAQ別紙ふせんSSKPro一覧)|麻里府発OneDriveiPS-BB掲示板2
月間予定表予定一覧MAPS-TAMAPS-TPiPS-77iPS-BB)(修了:iPSなかよしiPS遊々, iPSマクロ研WAWP)|よくある質問

 | 

2017.10.15 (日)

Wordで作る備忘録/パスワードを掛けて保存し再び開くと「実行時エラー」となる…回避策で対応

山口ばあばさんの 2017-10-07のブログ

備忘録にパスワードをかけて保存し、再びパスワードを入力して開くと下の画面がでます。

f:id:ogohnohito:20171015122305p:image

「デバッグ」をクリックすると下の画面になります。

f:id:ogohnohito:20171015122453p:image:w640


考察

 「実行時エラー」が出た時の処置としては最高‥‥ と喜んだ? が、VBAのコードをよく見ると、

≪下のVBAコードは説明上 箇条書きに変更してある≫
  1. Function その他のオプションの設定(argOpen As Boolean) As Boolean

  2.   If argOpen Then
  3.     Options.PrintHiddenText = True
  4.     ActiveWindow.View.ShowBookmarks = True
  5.     ActiveWindow.ActivePane.View.ShowAll = False
  6.   Else
  7.     Options.PrintHiddenText = False
  8.     ActiveWindow.View.ShowBookmarks = False
  9.   End If

  10.   その他のオプションの設定 = True

  11. End Function

==========

  • 7. のハイライトされているコードを実行しようとしてエラーになったもの。
  • このステップは
    1. Sub AutoClose(文書を閉じる時に自動実行する)にある
        BOOLAns = その他のオプションの設定(False)
      から飛んできたもの。
    2. 当該コードの Options.PrintHiddenText = False は、
      • [ファイル]⇒[オプション]
      • 表示の「印刷オプション」にある ☑隠し文字を印刷する のチェックを外す操作。



 山口ばあばさんは

  • 『パスワードを入力して開くと実行時エラーになる』と言っているが、
  • VBAのコードは「閉じる時」に実行されるもの。

そこで色々テストする‥‥‥‥‥‥ が、再現しないので悩んでいる...


結論

 未だ未解決であるが、一週間以上経ったので「未解決」という報告をしておくことにする 



気になる記事

 チョッと古いが...

自動マクロ実行される場合
AutoClose存在する場合は、ユーザーがマクロを含むテンプレートをベースとした既存の文書を閉じたときに実行されます (注: これはこの記事の後で説明する Document_Close イベントによって置き換えられたレガシー機能ですが、依然としてサポートされていて、今後もサポートされる予定です)。
Document_Close存在する場合は、ユーザーがこのプロシージャを含む文書を閉じたとき、またはこのプロシージャを含むテンプレートに添付された文書を閉じたときに実行されます (注: 文書に Document_Close プロシージャが含まれていて、その文書に添付されたテンプレートにも Document_Close プロシージャが含まれている場合、両方のプロシージャが 1 つずつ順番に実行されます。テンプレートに保存されているプロシージャが最初に実行され、その直後に文書に保存されているプロシージャが実行されます)。

追伸(2017.10.18)

 iPS-77時に再現してもらった。

  1. バージョン:Word2013(15.0.4971.1002)‥‥ Office Home and Business Premiun
  2. 備忘録を開き、パスワードを入力すると、「実行時エラー」が表示される。
    • [デバッグ]すると、Function その他のオプションの設定() で止まっており、引数は Ture(AutoOpenから飛んできたもの)であった。
  3. 実行時エラーが発生しない Excel2013のバージョンは 15.0.4963.1000 であった。(まりふのひとの自宅のPCと同じ)
     このPCを[今すぐ更新]したが、結果としてOffice2016に上がってしまったので、これ以上検証を進めることは出来なかった。
  4. 結論として
    1. Excel2013のバージョン 15.0.4971.1002のバグ‥‥ とKKDで整理し、
    2. AutoOpen、AutoClose を中止(具体的には、subの名前を変更した)
      Word Object/ThisDocuments の、Document_Open、Document_Close に置き換えた。
    3. 結果、実行時エラーは出なくなった。

 今後は、Office Premiumを再インストールし、Excel2016にする‥‥ を試す。

sinnjyounohitosinnjyounohito 2017/10/16 14:54  いつもお世話になっております。
10月18日パソコン学習会の時にみていただけないでしょうか。宜しくお願い致します。

ogohnohitoogohnohito 2017/10/16 16:47  iPS-77の予定が遅れていて申し訳ありません。
見させていただきます _(._.)_

ogohnohitoogohnohito 2017/10/16 18:40  「見させていただきます」は「診させていただきます」の間違いです。
山口ばあばさんだけ出て、他の人には出ない‥‥ のが、ポイントになりそうです。

sinnjyounohitosinnjyounohito 2017/10/16 19:11 すみません、お手数かけますが宜しくお願い致します。

sinnjyounohitosinnjyounohito 2017/10/18 21:14 今日はお世話になりました。お蔭様で「実行時エラー」の画面が出なくなりました。
有難うございました。

スパム対策のためのダミーです。もし見えても何も入力しないでください
ゲスト

コメントを書くには、なぞなぞ認証に回答する必要があります。

トラックバック - http://d.hatena.ne.jp/ogohnohito/20171015/p1
 | 
迷惑コメント(英文)で困っております
コメント入力方法は
こちら を参照してください。


お世話になります

カレンダー
<< 2017/10 >>
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31
おいでませ
4384308