Excel VBA質問箱 IV

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

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


27329 / 76738 ←次へ | 前へ→

【54732】Re:コンピューターの説明
質問  ひらめくん  - 08/3/27(木) 22:18 -

引用なし
パスワード
   ・ファイルというのは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通信で外部に情報が漏れたらまずいですが、「悪い所を見える化」できる方が良いのでは。
ぜひ、「たいくん」さんには頑張って実現していただきたいです。
1 hits

【54624】コンピューターの説明 たいくん 08/3/24(月) 22:44 質問
【54626】Re:コンピューターの説明 n 08/3/24(月) 23:48 発言
【54642】Re:コンピューターの説明 n 08/3/25(火) 11:28 回答
【54680】Re:コンピューターの説明 たいくん 08/3/26(水) 1:11 お礼
【54681】Re:コンピューターの説明 n 08/3/26(水) 1:33 発言
【54687】Re:コンピューターの説明 n 08/3/26(水) 11:26 発言
【54732】Re:コンピューターの説明 ひらめくん 08/3/27(木) 22:18 質問
【54734】Re:コンピューターの説明 ひらめくん 08/3/28(金) 0:41 発言
【54634】Re:コンピューターの説明 VBWASURETA 08/3/25(火) 10:20 発言
【54679】Re:コンピューターの説明 たいくん 08/3/26(水) 0:50 お礼

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