読者です 読者をやめる 読者になる 読者になる

共有サーバーのEXCELファイルを開いた時と閉じた時にPC名とIPアドレスを保存するVBAマクロ

共有サーバーのEXCELファイルを開いたまま帰った人がいて困ったことがあったので作ってみた。
EXCELの標準モジュールにそのまま張り付ければ使えると思う。

Option Explicit
'*****************************************************************************
' EXCELファイルを誰が開いているか記録するマクロ
' 
' 【機能】EXCELファイルと同じフォルダにファイル名の拡張子を「.log」にしたファイル
'     にEXCELファイルを開いた時と閉じた時の日時、IPアドレス、PC名、読込専用かを
'        記録する
'
' 日付       Ver   氏名 コメント
' 2017/05/23 1.00       新規リリース
' 
'*****************************************************************************
Sub Auto_Open()

    Dim f As Integer
    
    f = FreeFile
    Open ActiveWorkbook.Path & "\" & getLogFilename For Append As #f
        Print #1, Date & "," & Time & ",[OPEN" & checkReadOnly & "]," & GetIPAddress & "," & Environ("COMPUTERNAME")
    Close #f

End Sub

Function checkReadOnly() As String

    Dim mode As String
    
    If ThisWorkbook.ReadOnly = True Then
        mode = "(読み取り専用)"
    Else
        mode = ""
    End If

    checkReadOnly = mode

End Function

Sub auto_Close()

    Dim f As Integer
    
    f = FreeFile

    Open ActiveWorkbook.Path & "\" & getLogFilename For Append As #f
        Print #1, Date & "," & Time & ",[CLOSE" & checkReadOnly & "]," & GetIPAddress & "," & Environ("COMPUTERNAME")
    Close #f

End Sub

Function getLogFilename() As String

    Dim FSO As Object
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    getLogFilename = FSO.GetBaseName(ThisWorkbook.Name) & ".log"
    Set FSO = Nothing

End Function


'*****************************************************************************
' IP アドレス取得
'   WMI を用いて IP アドレスを取得する。
'*****************************************************************************
Function GetIPAddress() As String

    Dim NetAdapters, objNic, strIPAddress
    Set NetAdapters = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") _
                           .ExecQuery("Select * from Win32_NetworkAdapterConfiguration " & _
                           "Where (IPEnabled = TRUE)")

    For Each objNic In NetAdapters 'ネットワークアダプターは、複数ある場合がある
        For Each strIPAddress In objNic.IPAddress 'IPは、複数割り当てられている場合がある
            GetIPAddress = strIPAddress
            Exit For        ' 1回のみ
        Next
        Exit For        ' 1回のみ
    Next

End Function

大人のADHD 今日からコンサータ

昨日病院に行って2.5ヵ月飲んだストラテラ 80mgからコンサータ18mgに変わった。 まだ飲んだばかりなので効果は分からない。 自立支援も始めた。

大人のADHDで処方されたストラテラ2ヵ月目

今朝からストラテラの朝飲む量が40mgから80mg(40mg錠2個)になった。 40mgを飲んで2ヶ月経つが、効果として 1.人の話を聞きやすくなった 2.人に話しやすくなった。 3.数字を少し覚えれるようになった。 がある。

これまで、人と話していても「〇〇については前提条件を確認しないとどちらか回答できないし」など言いたいことがあるのだが、まとめきれず回答できなかったのが、相手のいうことが理解できるし、それぞれの条件について質問・回答できるようになった。 脳内のワークメモリが増えた感じがする。 数字についてもこれまでは意識が別のことに移るとまるっきり記憶から消えていたのが、少し残るようになった。そのため簡単なミスが減ったように思う。

初日は副作用(動悸、冷や汗、吐き気)があったが、そのうち出なくなった。大体7:30に飲んで、10時くらいに副作用が出てきていた。 飛行機に乗った時に酔ったことがあったが、その後乗っても大丈夫になった。 今日から分量が80mgと2倍になったが、ちょっと冷や汗が気になるくらい。効果があるかどうかはまだわからない。

興味のないことで集中力が落ちたり、やりたくないことを先延ばしするのは相変わらずだ。これにはコンサータが聞くのかも知れない。医師の話では別な薬(たぶんコンサータ)もあるが、できるだけ最初はストラテラで効果がでるかやってみますとのことだった。

自分を表す字

土曜日にコミュニケーションセミナーを受けた。

自分を表す字「敬・情・創・学・優」 他人が選んだ字「敬・謙・志・望・率・結」

この中から5つ選ぶ 「敬・志・率・創・結」

ストラテラ飲んで4日目

昨日から続けて下痢になった。副作用かな。

大人のADHDで処方されたストラテラ3日目

http://blog.hatena.ne.jp/garyo/garyo.hatenablog.jp/edit?editinplace=1&entry=10328749687212945744#副作用は体がポカポカするくらいで食欲の減衰などは感じない。良く喋る気がする。話につられて笑うことが増えた。他人のしてることが少し気になる気がする。これまでは他の人が何をしていても気にならなかった。今日会うお客さんに遠くから来られるから大変だろうなとか、資料準備を頼む時に、急に頼んで悪いなと思うようになった。これまでは気にならなかった(自分のことで手一杯だった)

大人のADHDで処方されたストラテラ2日目

7時半に飲んで、9時半くらいとやはり飲んで2時間後くらいからちょっと副作用が出てくる。昨日よりあまり感じない。座ってると平気だけど歩くとふらふらドキドキする。単調作業をしていると、すぐ他のことをしたくなっていたけど、少し単調作業になえられるようになったかも知れない。