ブックのログイン/ログアウト時間のトラッキング

Question

ログインしてログアウトしたときのユーザーと時間を追跡するワークブックを設定しました。ログアウトは、ボタンまたは単にブックを閉じるだけでトリガーされます。唯一の問題は、誰かがではなく、の仕事をブックに保存したいと思っているかもしれないが、私が監査ログにいつログインしてログアウトしたかを見たいと思うことです。だから私は本当の質問は、1つのシートにデータを保存するだけで、ワークブック全体を保存する方法はないと思いますか？もしそうなら、それはVBAのように見えますか？

Answer 1

監査ログが必要な場合は、それをテキストファイルで簡単に行うことができます。しかし、あなたは現在、あなたの "ログイン"を記録して、そのシートと別のExcelワークブックまたはテキストファイルに記録するように変更することができます。パスを編集して、任意のディレクトリに保存することができます。最初にLog.txt（または何でも）ファイルを作成してください。同様に、他の変数を追加することができます。既存のコードにすでにあると想定している場合は、他の変数を追加することができます。このコードのopen文は画面に反映されません。イベントビューアでタスクをポップアップして閉じます。

Sub LogIn() 
    Dim Path As String 
    Dim TxtLog As String 
    Dim i As Integer 

    i = FreeFile 
    Path = ThisWorkbook.Path & "\Log.txt" 
    Open Path For Input As i 
    TxtLog = Input(LOF(i), i) & vbCr & Now()'read entire log file into string and add new info 
    Close i 'close log.txt for reading to VBA 

    i = FreeFile 

    Open Path For Output As i 'open log.txt to write to it from VBA 
    Print #i, TxtLog 
    Close i 
End Sub