| |
・ファイルというのはExcel形式(*.xls)のファイルでしょうか？
Noならばあきらめてください。
Yesならば次へ進む
・該当Excel形式ファイルを開いてください。
・シートの追加でシート名「Sheet1」のシートを新規作成してください。
・マクロを有効にしますか？と表示されたらEを押してください。
・Excelメニューでツール/マクロでセキュリティを選び
マクロを動かせるように「中」に変えましょう。
・Alt+F11を押してVBEを開いてください。
・Ctrl+Rを押してプロジェクト画面を開き、
Thisworkbookを選んでダブルクリックしてください。
・F7キーを押してコード画面が表示された状態で、
次のコードをコピペして貼り付けてください
Private Sub Workbook_Open()
Dim WshNet As Object
Dim msg As String
Set WshNet = CreateObject("WScript.Network")
msg = "OpenDate/Time=" & Now() & _
",Domain=" & WshNet.UserDomain & _
",Computer=" & WshNet.ComputerName & _
",User=" & WshNet.USERNAME
ThisWorkbook.Worksheets("Sheet1").Range("A1").Value = msg
ThisWorkbook.Save
Set WshNet = Nothing
End Sub
・Ctrl+Sを押して上書き保存してください。
・Alt+QでExcel画面に戻ってください。
・Alt+F4を押してExcelを終了して上書き保存してください。
・もう一度該当Excel形式ファイルを開いてください。
・セル位置A1に開いた日時/ドメイン名/コンピュータ名/ユーザ名
が表示されるはずです。正しく動きましたか？
−−−−−−−−−−−−−−−−−
＊コンピュータ説明やExcel使用者は使ってない／変更禁止」という事もあったので、みなさんのご指摘の通りVBScript系WshNetworkオブジェクトを使うのが、一番手軽でよい気がします。
＊自分的には通産省さん指導でコンピュータにGPS搭載を義務付けて、「どこにあるか」すぐ分かれば盗難防止や不正アクセス防止に役立つと思うので、GPS用APIをExcelVBAやJava等から使えたらなあーと思っています。まあ、逆にGPS通信で外部に情報が漏れたらまずいですが、「悪い所を見える化」できる方が良いのでは。
ぜひ、「たいくん」さんには頑張って実現していただきたいです。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
