Excel VBA質問箱 IV

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

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


2232 / 13646 ツリー ←次へ | 前へ→

【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("ブック1.xls")
book1.SaveAs Filename:="D:\ブック2.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)
  xxxx
  xxxxx
End Sub

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


これでもよければ 検討してください

【69245】Re:イベントプロシージャについて
発言  でれすけ  - 11/6/13(月) 19:39 -

引用なし
パスワード
   こんばんは。

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

でわ。

【69248】Re:イベントプロシージャについて
お礼  don  - 11/6/14(火) 0:43 -

引用なし
パスワード
   みなさん

ご意見ありがとうございました。
もういちど考えてみます。

2232 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free