Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2231 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【69234】イベントプロシージャについて don 11/6/11(土) 19:38 質問[未読]
【69235】Re:イベントプロシージャについて UO3 11/6/11(土) 19:55 発言[未読]
【69236】Re:イベントプロシージャについて ichinose 11/6/12(日) 13:02 発言[未読]
【69245】Re:イベントプロシージャについて でれすけ 11/6/13(月) 19:39 発言[未読]
【69248】Re:イベントプロシージャについて don 11/6/14(火) 0:43 お礼[未読]
【69234】イベントプロシージャについて
質問  don  - 11/6/11(土) 19:38 -
引用なし
パスワード
   素朴な質問です。

Dim book1 As Workbook

Set book1 = Workbooks("ブック１.xls")
book1.SaveAs Filename:="D:\ブック２.xls"

例えば、上記のように別の名前をつけてブックを保存する際に、

Private sub Worksheet_change(ByVal Target As Range)
・・・・・・
・・・・・・
End Sub

保存先のブックに対して、上記のようなイベントプロシージャ
（新たなもの）をマクロで設定して保存するといったことは
できるのでしょうか？

やはり、保存したブックを開いて手動で書くしかないでしょうか？
【69235】Re:イベントプロシージャについて
発言  UO3  - 11/6/11(土) 19:55 -
引用なし
パスワード
   ▼don さん：

こんにちは

この種を質問がときおり（というか頻繁に）目にします・。
でも、この動きは、ウィルスに似ていますね。
知らないうちに、自分のマクロブックに見たことのないプロシジャが
仕組まれている。しかもイベントプロシジャ。もし、これがWorkbook_Openなら
開いたとたんに自分の知らない処理は走ってしまう！！

もちろんdonさんは、これを認識して対処するわけですが、じゃぁ、こんなコードでという
回答がアップされたとして、「悪い人」が、それを悪用するかもしれませんね。

ですから、この話題は、公式の掲示板にはふさわしくないですね。
もし、おやりになるなら自助努力で。
【69236】Re:イベントプロシージャについて
発言  ichinose  - 11/6/12(日) 13:02 -
引用なし
パスワード
   こんにちは。
私は、Vbproject操作掲載、絶対反対という立場ではありません。
仕様によります。

ただ、これをするにはセキュリティを下げなければなりません。
セキュリティを下げても良いのか悪いのかの判断は、必要だと思います。


>
>保存先のブックに対して、上記のようなイベントプロシージャ
>（新たなもの）をマクロで設定して保存するといったことは
>できるのでしょうか？
>
>やはり、保存したブックを開いて手動で書くしかないでしょうか？
他のブック(アドインにするのが良いと思いますが）に
Applicationクラスのイベントを記述し、
そのイベントを使用する方法もあります。

Private WithEvents app As Application
Private Sub app_SheetChange(ByVal Sh As Object, ByVal Target As Range)
　　ｘｘｘｘ
　　ｘｘｘｘｘ
End Sub

この方法だと、対象ブックにコードは要らないことになります。


これでもよければ　検討してください
【69245】Re:イベントプロシージャについて
発言  でれすけ  - 11/6/13(月) 19:39 -
引用なし
パスワード
   こんばんは。

　データの入っているブックにマクロを挿入するのではなくて、
　マクロの入っているブックにデータをコピーすればいいのでは？

でわ。
【69248】Re:イベントプロシージャについて
お礼  don  - 11/6/14(火) 0:43 -
引用なし
パスワード
   みなさん

ご意見ありがとうございました。
もういちど考えてみます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2231 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free