VBAでセルに変更があったらユーザアカウントを取得

質問

こんにちは。VBA初心者です。

イベントプロシージャを使って、セルに変更があったら、その右隣のセルにWindowsのユーザアカウント名と変更時刻を取得したいと思い、以下のようなコードを書いたのですが、書き込まれたユーザアカウントも「変更」とみなされて無限ループに陥ってしまいます。

どうしたら、この問題が解決できるでしょうか。

あるいは、イベントプロシージャを使用せずに同じことが実現できるでしょうか。

どうか皆さんのお知恵をお貸しください。
よろしくお願いします。

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Target.Offset(0, 1).Value = Application.UserName
Target.Offset(0, 2).Value = Now

End Sub

回答No.1

okormazd · ベストアンサー

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents=False
Target.Offset(0, 1).Value = Application.UserName
Target.Offset(0, 2).Value = Now
Application.EnableEvents=True
End Sub
Eventを受けた時、続くEventを無効にします。1つのEvent処理をしたら、Event処理を有効にします。

お礼

お礼が遅くなり申し訳ありません。
教えていただいた方法でできました。

いくつかVBAの参考書を持っているのですが、意外とこういう基本的な事が書いてないんですね。
VBEのヘルプも、「Application.EnableEvents」から検索すればヒットしますけど、そもそも、そういうものがあることを知らないとなかなか探せないです。

非常に助かりました。

回答No.2

nicotinism

たまに見かけますね。無限ループもどきに陥る回答をされて
解決しましたぁ！・・・ての。

回避策は＃１さんので十分かと思いますが
Application.UserName だとインストール時の名前が返ってくるだけなのでは？
環境が違うと変わるかもしれません。確認してください。
Windowsのユーザアカウント名なら
environ("username")
が良さそうににも思えますけど？

お礼

なるほど、確かにユーザアカウントを取得するなら environ("username") の方がよさそうです。

・ユーザアカウントの取得⇒environ("username")
・複数のユーザアカウント持っていて誰だか判らなくなって困る場合⇒Application.UserName

で、使い分けようかと思います。ありがとうございました。