フェオームコントロールとActiveXコントロール

質問

VBAについての質問です。
Excel2013を使っています。次のような場合に不具合があります。
sheet１上にフェオームコントロールのボタンを配置し、ユーザーフォームを呼び出します。
ユーザーフォームにはコマンドボタンを配置し、コードは　Worksheets("Sheet2").Select　です。
実行すると、Sheet2に画面は変わりますが、セルに何かを入力すると、入力したはずのものがすぐ
消えて、しまいます。スクロールもできません。
実際には　Sheet１　に入力されています。
sheet１上のボタンをActiveXコントロールのコマンドボタンを使用して、同じユーザーフォームを呼び出し実行すると、正常に作動します。
この現象は、2010以前のバージョンだと、どちらも同じ動作をすると思います。すべてを調べたわけではありませんが。
12月10日（水）の更新後、Excel2013ではActiveXコントロールのコマンドボタンが使用できなくなったと思いますが、VBAに詳しい方で、何か解決策をご存じの方、アドバイスをお願いします。

回答No.2

DreamyCat · ベストアンサー

>12月10日（水）の更新後、Excel2013ではActiveXコントロールのコマンドボタンが使用できなくなったと思いますが <
これは当方は対処済みなので、ほぼ普通に使えているつもりです。

セルに入力できるということは
UserForm1.Show vbModeless
になっているわけですね。
doeventsを入れてみたらどうでしょう。
それともまだ対処していない状態での話なのですか。

セキュリティ面のことで使用できなくされたらしいのですが
私の場合は
C:\Users\○○\AppData\Local\Temp　の中を削除したら普通に使えるようになりました。
セキュリティ面は・・・・・・気になりますが使えないのも困るので・・・。

お礼

早速の回答ありがとうございます。試してみたいと思います。

回答No.1

ap_2

ボタンに登録した関数側で、フォーム呼び出し後にシート選択の処理を入れます。

UserForm1.Show
ActiveSheet.Select '←フォーム内シート切替の問題対策

"フォームコントロールのボタン"から表示した"モーダルなフォーム"内でのシート切替処理で、選択セルがおかしくなるようです。"フォーム外"で状態を上書きすることで対処できます。
仕様と割り切れば、この2行セットで覚えてもよい気が。。
一応、フォームを「モーダレス」にして回避することもできます。

> 12月10日（水）の更新後
らしいですね。僕は使えるんですが・・・もう直ってたりしませんか？

お礼

早速の回答ありがとうございました。
ActiveSheet.Select
をためしてみたら、解決しました。
ありがとうございました。