• ベストアンサー

VBAマクロについて教えてください

続けての質問で恐縮です。 次の意味がわかりません。VBAのヘルプでもでてきません。 どなたか教えてください。ちょっとほかの部分を手直しするのに、これはどうしたら良いものか判断がつきません。 userinterfaceonly:=False よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • nishi6
  • ベストアンサー率67% (869/1280)
回答No.3

ProtectメソッドのUserInterfaceOnlyでしょうか。解説には、 『 UserInterfaceOnly 省略可能です。バリアント型 (Variant) の値を指定します。True を指定すると、画面上からの変更は保護されますが、マクロからの変更は保護されません。この引数を省略すると、マクロからも、画面上も変更することができなくなります。 引数 UserInterfaceOnly に True を設定した Protect メソッドをブックのワークシートに適用した場合、保存して閉じた後でもう一度開いたブックに対しては、画面上からもマクロからも変更ができなくなります。マクロからの変更を可能にするためには、引数 UserInterfaceOnly に True を設定した Protect メソッドを再び適用する必要があります。 』とあります。 VBE画面で、表示→オブジェクトブラウザで『protect』を検索して出てきます。

maamaa
質問者

お礼

nishi6さん、詳しく説明していただきましてありがとうございました。 おかげさまでちょっと前にやっと完成しました。 もうくたくたです。VBAはいまだによく理解できてないので説明不足の点もあったかと思います。お許しください。 教えていただいたことは印刷して大切に保存します。

maamaa
質問者

補足

nishi6さんありがとうございました。 これから仕事ですので明日また改めてお礼申し上げます。

その他の回答 (3)

  • maruru01
  • ベストアンサー率51% (1179/2272)
回答No.4

再び、maruru01です。 おそらく、No.3の人の方が正しいのでそちらを信用して下さい。 どちらにしろ、Microsoftのホームページで検索出来ます。 では。

  • maruru01
  • ベストアンサー率51% (1179/2272)
回答No.2

こんにちは。maruru01です。 とりあえず、何のVBAか書きましょう。それと、前後の詳細も。いきなりこの1行ではわからないです。 (続けての質問ということでも、毎回書くのが常識です。) 確かにヘルプにはなかったので、Microsoftのホームページで「userinterfaceonly」で検索したらいくつかヒットしました。 そのなかで今回の件に関することは、おそらく次の内容でしょう。 シート保護のメソッドProtectの5番目の引数で、サポートされていません。 サポートされていない引数にはFalseを代入するか、省略しないとエラーになるようです。 したがってこのままにしておくか、引数自体を削除すればいいと思います。 MicrosoftのURLを載せておきますので、ご自分で検索して見てください。 では。

参考URL:
http://www.microsoft.com/japan/ms.htm
maamaa
質問者

お礼

maruru01さんどうもお世話になりました。 検索で見つかりました。それにしても、検索画面の最初で こんなことまで見つかってしまうのには驚きました。 おかげさまでたった今basicプログラムをエクセルで作り直し できました。昨日からずーとやっていたので、物が二重に見えます。 どうもありがとうございました。 これからは答えていただく方のことも考えて質問するようにします(反省)

maamaa
質問者

補足

maruru01さん、ありがとうございます。確かに一行だけ書かれても 困りますね。失礼しました。 これから仕事なので明日また改めて御礼します。 今晩仕事に使うマクロなのでひと安心しました。

  • bin-chan
  • ベストアンサー率33% (1403/4213)
回答No.1

:=が使用されてるので、元のコマンドが何かありますよね? 前後の部分についても教えてください。

maamaa
質問者

補足

説明不足がありました。教えてもらう立場にありながら配慮が 足りず失礼しました。次のようになっています。 どうぞよろしくお願いします。 Sheets("abc").Activate With ActiveSheet .Range("C4").Select .Protect contents:=True, userinterfaceonly:=False .EnableSelection = xlUnlockedCells End With

関連するQ&A