Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13311 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【5955】マクロを削除するには MIKI 03/6/11(水) 10:03 質問
【5960】Re:マクロを削除するには Jaka 03/6/11(水) 11:16 回答
【5962】Re:マクロを削除するには MIKI 03/6/11(水) 11:50 質問
【5963】Re:マクロを削除するには Jaka 03/6/11(水) 12:06 回答
【5982】Re:マクロを削除するには MIKI 03/6/11(水) 13:17 質問
【5992】Re:マクロを削除するには Jaka 03/6/11(水) 14:28 回答
【5998】度々有難うございます。でも・・・ MIKI 03/6/11(水) 15:06 質問
【6000】Re:度々有難うございます。でも・・・ Jaka 03/6/11(水) 15:50 回答
【6006】マクロを有効にできないんです。 MIKI 03/6/11(水) 17:01 質問
【6018】Re:マクロを有効にできないんです。 halhal 03/6/12(木) 10:08 質問
【6028】Re:マクロを有効にできないんです。 MIKI 03/6/12(木) 16:22 お礼
【6029】ｊａｋａさん昨日はありがとう MIKI 03/6/12(木) 16:36 お礼
【6030】Re:ｊａｋａさん昨日はありがとう Jaka 03/6/12(木) 16:59 発言
【6039】解決しました！ありがとう MIKI 03/6/13(金) 11:46 お礼
【5955】マクロを削除するには
質問  MIKI  - 03/6/11(水) 10:03 -
引用なし
パスワード
   全くの初心者です。
マクロを作ったのですが、削除の仕方がわかりません。
マクロが無効になってるみたいなのですが、
その為、セルに何かを入力してＥＮＴＥＲを押す度に、｢マクロは無効に設定されています」みたいなメッセージが毎回出て、すぐ下のセルに移動するのにＥＮＴＥＲを4回もおさなければなりません。
マクロ作成はあきらめましたが、この状態をなんとかしたいです。
同じｂｏｏｋの全てのｓｈｅｅｔがこの状態なんで、困っています。
どなたかアドバイスをして頂ければ幸いです。
よろしくお願いいたします。
【5960】Re:マクロを削除するには
回答  Jaka  - 03/6/11(水) 11:16 -
引用なし
パスワード
   こんにちは。
ＶＢＥを開いて、プロジェクトウィンドウのSheet1〜Sheet？とThisWorkBookをＷクリックして、開いたシートモジュールに何かコードが書いてあったらすべて消して、ブックを上書き保存して下さい。
たぶん、ThisWorkBookだけだろうと思うけど．．．。
【5962】Re:マクロを削除するには
質問  MIKI  - 03/6/11(水) 11:50 -
引用なし
パスワード
   Jaka さん 有難う御座いました。
さっそくやってみたのですが、うまくいきません。
thisWorkBookのWorksheetには
Private Sub Workbook_Open()
と書かれてあり、
その他のsheetのWorksheetには
Private Sub Worksheet_SelectionChange(ByVal Target As Range)End Sub
と書かれています。
deleteで消すと　General　に戻ってしまい、Worksheetに戻すと　消したはずのものが
消えてないんです。
どうしたらいいのでしょうか？
【5963】Re:マクロを削除するには
回答  Jaka  - 03/6/11(水) 12:06 -
引用なし
パスワード
   >General　に戻ってしまい
それで良いんです。

>Worksheetに戻すと　消したはずのものが
>消えてないんです。
Worksheetに戻さないでください。
戻すと勝手にコードが書き込まれてしまいます。
【5982】Re:マクロを削除するには
質問  MIKI  - 03/6/11(水) 13:17 -
引用なし
パスワード
   Jaka さん 度々ありがとうございます。
Worksheetに戻さずに、やってみたのですが、同じ状態です。
初心者なもんで、どうしたらいいか、さっぱりわかりません。
【5992】Re:マクロを削除するには
回答  Jaka  - 03/6/11(水) 14:28 -
引用なし
パスワード
   今一状況がつかめませんが、
>ＶＢＥを開いて、プロジェクトウィンドウのSheet1〜Sheet？とThisWorkBookをＷクリックして、開いたシートモジュールに何かコードが書いてあったらすべて消して、ブックを上書き保存して下さい。

すみません。
シートモジュールを開くだけで勝手にコードが書き込まれてしまいました。
１回だけ開いてコードを消したあと確認はしないで下さい。

これでもダメなら、
[#5192]のコードを標準モジュールに貼りつけて、

With Workbooks("別名で保存book名.xls").VBProject
　↓
With ThisWorkbook.VBProject

上のようにコードを直して、実行すれば全てのマクロを削除してくれます。
（OfficeXPじゃなければ.....。XPだと消せないらしので。）
【5998】度々有難うございます。でも・・・
質問  MIKI  - 03/6/11(水) 15:06 -
引用なし
パスワード
   ありがとうございます。
指示通りにコードを直して、マクロの実行でＥＮＴＥＲを押した時点で、｢このマクロは有効でない・・・｣メッセージがでます。
他のｓｈｅｅｔだけでなく、他のｂｏｏｋも全部同じ状態になってるみたいです。
手順を一から教えてもらわないと、ダメかなぁ？
本当の初心者なもんで・・・ごめんなさい。
【6000】Re:度々有難うございます。でも・・・
回答  Jaka  - 03/6/11(水) 15:50 -
引用なし
パスワード
   ▼MIKI さん：
>ありがとうございます。
>指示通りにコードを直して、マクロの実行でＥＮＴＥＲを押した時点で、｢このマクロは有効でない・・・｣メッセージがでます。
>他のｓｈｅｅｔだけでなく、他のｂｏｏｋも全部同じ状態になってるみたいです。
>手順を一から教えてもらわないと、ダメかなぁ？
>本当の初心者なもんで・・・ごめんなさい。

あのっ、事情が良くわかりませんが、もしかしてマクロを無効にして開いているんですか？
マクロを無効にして開いたブックに、新しくコードを書いてもマクロは動きませんよ。
マクロを有効にして開いてください。

それと
>マクロの実行でＥＮＴＥＲを押した時点
どうゆう事なんでしょうか？

>他のｓｈｅｅｔだけでなく、他のｂｏｏｋも全部同じ状態になってるみたいです。
今回の場合、シート上のコードをシートモジュール上から直接実行しないで下さい。
【6006】マクロを有効にできないんです。
質問  MIKI  - 03/6/11(水) 17:01 -
引用なし
パスワード
   お手数をおかけして申し訳ありません。

>もしかしてマクロを無効にして開いているんですか？
>マクロを無効にして開いたブックに、新しくコードを書いてもマクロは動きませんよ。
>マクロを有効にして開いてください。

【このプロジェクトのマクロは無効に設定されています。マクロを有効にする方法についてはオンラインヘルプまたはホストアプリケーションを参照して下さい。】
と言うメッセージが出るんです。（セルに入力してＥＮＴＥＲを押すたびに）

>それと
>>マクロの実行でＥＮＴＥＲを押した時点
>どうゆう事なんでしょうか？

新しくコードを書いた後、マクロを実行するのでは？　全然違ってる？

>今回の場合、シート上のコードをシートモジュール上から直接実行しないで下さい。

？？？　やり方がわからないです。

本当にごめんなさい。わからなくて・・・

また明日がんばります。　
【6018】Re:マクロを有効にできないんです。
質問  halhal  - 03/6/12(木) 10:08 -
引用なし
パスワード
   こんにちは。
横から失礼します。

私もVBA初心者です。ちょっと気になったので
出てきました。
マクロの入っているxlsファイルのメニューバー、
ツール→マクロ→セキュリティを見て
セキュリティレベルはどうなっていますか？
それが高に設定されているとマクロを有効に
出来ないと思います。私の場合は中で開いて
いますが、中にしていると、ファイルを開く時に
マクロを有効にするか否か確認してきます。

こんなこと確認済みだったらごめんなさい。
【6028】Re:マクロを有効にできないんです。
お礼  MIKI  - 03/6/12(木) 16:22 -
引用なし
パスワード
   halhal さん　こんにちは！
アドバイスありがとうございます。
返事が遅くなって申し訳ありません。（今日は仕事が忙しかったので・・・）
セキュリティーは｢低｣にしてあるのですが、それでもダメです。
どういう状況なのか、実際に見てもらわないとダメかも？
【6029】ｊａｋａさん昨日はありがとう
お礼  MIKI  - 03/6/12(木) 16:36 -
引用なし
パスワード
   Jaka さん
昨日は　ありがとうございました
まだ問題は解決しておりませんが、質問ばかりして、お礼が遅くなってごめんなさい。
改めて、ありがとうございました。
【6030】Re:ｊａｋａさん昨日はありがとう
発言  Jaka  - 03/6/12(木) 16:59 -
引用なし
パスワード
   こんにちは。

なんか馬鹿にしたような感じになっちゃいますが、確認させてください。
新規ブックのSheet1タブを右クリック　→　コードの表示　で、開いたエディタに下記コードを全てコピペして見て下さい。
（すでにあるPrivate Sub Worksheet_S・・・を消して。）

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
　　MsgBox "12345"
End Sub

コピペ後、VBエディタを閉じてSheet1のどこでも良いですから、クリックして見て下さい。
メッセージが現れませんでしたか？
【6039】解決しました！ありがとう
お礼  MIKI  - 03/6/13(金) 11:46 -
引用なし
パスワード
   Jaka さん　halhalさん　こんにちは
何度もアドバイス頂き　ありがとうございました。
パソコンに詳しい人が周りに居ないんで、本当に助かりました。
（お友達になりた〜い！　でもそういうサイトじゃないネ！　ゴメンナサイ）
また、わからない事があったら、ご指導のほど　よろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13311 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free