_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ 【ソ フ ト名】ファイル監視ツール Log〜N(ろぐ〜ん) Ver 1.0 【概　　　要】誰がいつどのシートのどのセルを編集したかを記録するツール。 【登 録 名】Log〜N.xla 【著 作 権】れいぞー 【HOME PAGE】http://birdcgi.zero.ad.jp/~zap50064/ 【動作 確認】Windows 98 + Excel2000 Windows 2000 + Excel2000 【作　成 日】2002/4/5 【種 別】フリーウェア 【転載 条件】転載を希望される方は、必ず事前に私宛にメールをください。(いればですが・・) _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ １．はじめに 会社などでエクセルファイルを複数のユーザーがLAN上で使っていて 勝手に数値を変更されたりして数字の間違いなどを 自分になすりつけられたことはありませんか？ 私はかなりあります！(しょっちゅうです) で、頭に来て作ったのがこれ「ろぐ〜ん」です。 ２．動作・開発環境 ■動作環境 Windows版 Microsoft Excel2000 ■開発環境 Windows 2000 & Excel2000 SR-1 ３．インストール方法 ■ 解凍したファイルを開くだけです。 ４．アンストール方法 ■「Log〜N.xla」を削除するだけです。 ５．起動方法 ■「Log〜N.xla」を開くだけです。 ３〜５は無視してください・・・ ６．操作方法 まず、ログを取れるようにしたいエクセルのブックを開いておきます。 開いたらおもむろに「Log〜N.xla」を開きます。 そうすると、加工するブックの確認後 フォルダ選択ダイアログが現れるのでログ置き場を指定してください。 指定したその場所に「writlog.dat」が自動生成されます。 (すでに存在している場合は追記されます。) あとは指示に従ってひたすらOKを押していけば出来上がりです。 加工されたエクセルファイルを編集してみてください。(数字を入れたり消したり・・) 　　「writlog.dat」に左から 変更日時、変更者名、シート名、変更セル番地、入力された値の順でログに記録されます。 これさえあれば無意味に怒られずにすみます。(X部長おぼえてろー) さあ！１社に１個ろぐ〜んをいれて。 エクセルの使い方がわかっていないおじさんどもにログを見せて 「おまえが間違ったんだろー！たこー！」といってやりましょう！ /////////////////////////////////////////////////////////////////////////////// 注意：ThisWorkbook内の以下のイベントに記述されているものはすべて削除・上書きされます。 　　　Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 　Workbook_Open() /////////////////////////////////////////////////////////////////////////////// ７．特徴・注意 ■ 1つのブックに対して1つのログファイルを設定できます。 ■ 複数のブックから1つのログファイルに書き込むこともできます。 (その場合は同じ場所を指定して、追記されますよろしいですか⇒「はい」を押して下さい。) ■ アドイン形式のファイルですがアドインではありません。(参照設定はしないでください。多分ちゃんと動きません。) ■ Excel2000のワークシートを持ったブックに対応しています。 ■ 対象ブックのチェンジイベントをすべて記録します。 よってログが恐ろしく大きくなる恐れがあるので定期的にログを消去したほうがいいと思います。 ////////　　ログの見方　　 ///////////////////////////////////////////////////////////////////////////////////// 編集日時　　　　　　　編集したPC　 編集したユーザー 編集シート名　　　編集セル　　入力された値 　　2002/04/06 1:32:45 Jitaku_PC 　　　M_aihara　 Sheet1 　 　$E$18 　9989 //////////////////////////////////////////////////////////////////////////////////////////////////////////////// ■ Ctrl+Alt+[F12]を押下することによりログ取得のON・OFFの設定が可能です。 自分が編集したログは採る必要がないのでOFFにしとけばいいかなと・・ ■ Ctrl+Alt+[F11]を押下することによりそのブックのログを表示できます。 ■ "-"←の値はセルの値を消去したり編集状態にして何も入力しなかった場合に記録されます。 ■ 出来上がったエクセルファイルのプロジェクトのロックは管理者がしっかり行ってください。 (出来上がった状態ではロックはかかっていません。) ■ ツール⇒マクロ⇒セキュリティーのセキュリティーレベルが「中」または「高」になっている場合 　　出来上がったブックにデジタル署名をつけて実行すればマクロの確認ダイアログは出なくなります。 ■ ログファイルの場所やファイル名を変更したい場合はコード内の↓の部分を変更してください。 ///////////////////////////////////////////////////////////////////////////////////////// 　 HideFile = "H:\writlog.dat" 　　 '↑ここでログファイルの場所・名前を変更できます。 ///////////////////////////////////////////////////////////////////////////////////////// ■ ローカルドライブにログを作成すると開いたマシンのドライブにも新規にログが作成されるので できるだけネットワークドライブに作ったほうがよいでしょう。 例：ローカルドライブ「C\Log\writlog.dat」に設定した場合 ほかのマシンでこのファイルを開くとそのマシンの「C\Log\writlog.dat」にも ログファイルが作成されます。 ■ マクロなどでセルを一箇所変更するといろんなセルが連動して変わるような処理があるとすべて記録されて すぐログがいっぱいになることがあるのでそういったファイルは加工しないほうがいいかと・・ /////////////////////////////////////////////////////////////////////////////// 注意：ThisWorkbook内の以下のイベントに記述されているものはすべて削除・上書きされます。 　　　Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 　Workbook_Open() /////////////////////////////////////////////////////////////////////////////// ８．最後に １．ろぐ〜んについて 本ソフト(Log〜N(ろぐ〜ん) Ver 1.0 Log〜N.xla) はフリーウェアです。無料で使用 　　　　することが可能です。ただし、使用者は下記の内容について承諾の上、 　　　　ソフトウェアをインストールしていただくものとします。承諾いただけない 　　　　場合には、本ソフトウェアに関わるすべてを破棄して下さい。 ２．著作権 本ソフトウェアおよび付属するドキュメントの内容について著作権は 作者・れいぞー が有します。無断でソフトウェア及び付属する ファイルの内容の全てまたは一部を複製したり改編することはできません。 ３．免責 本ソフトウェアのインストールおよびインストール後の使用に際しては， 全て使用者の自己責任によってこれを行うものとします。本プログラム の使用が原因で損害を被ったことが明確であっても，その損害の大小に かかわらず作者は一切責任を負いません。 使用者は損害の全てもしくはその一部について，作者に対して弁償の請求 は一切できません。また作者は本ソフトウェアのインストールやインスト ール後の使用に際し，本ソフトウェア及び付属するファイルの内容および その不具合に対する修正の義務やサポートの義務は負いません。 ４．再配布・紹介の条件 雑誌・インターネットなどへの紹介、CD-ROMへの収録については、必ず事前 　　　　に作者から許可を得るようお願い致します。 ５．作者への連絡先 本ソフトは必要に迫られて急きょ作ったものなので 基本的にコードを公開するつもりはありません。 (自分でも分からないくらいめちゃめちゃ・・) ご要望(こうしたら良くなるなど)はどしどしお寄せください。 使い勝手が良くなるようなアイディアは、こちらからお願いしたいくらいなので・・ ご感想，不具合についての情報がありましたら，メールやホームページの掲示板まで・・ /////////////////////////////////////////////////////////////////////////////// 注意：ThisWorkbook内の以下のイベントに記述されているものはすべて削除・上書きされます。 　　　Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 　Workbook_Open() /////////////////////////////////////////////////////////////////////////////// ■■■ Excel Factory ■■■■■■■■■■■■■■■■■ URL　 :　　http://birdcgi.zero.ad.jp/~zap50064 Mail　 :　　excelfactory@bird.zero.ad.jp 管理人 :　　相原雅紀（れいぞー） ■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 履歴 新作なので、なし