だれがファイルを開いているか知りたい【VBA】

目次

経緯

共有サーバーを使っていて、

例えば、森が先にファイルを開いていて、

次に林が開いて、編集作業をすると不具合があった。

なので、今回それの解決した方法をつづります。

設定

設定は、

「森がファイルを開いてます。(見てるだけ)

次に林がファイルを編集しようとして、開きます。

すると、林のファイルに”森が開いています。”とメッセージボックスでアナウンスされる

という設定です。

ユーザー名は”森”、”林”と二人いるとしてます。

コード

では、コードです。VBAのエディタの”ThisWorkbook”に以下のコードを貼り付けてください。

Private Sub Workbook_Open()
    Dim userName As String
    Dim cellContent As String

    ' Sheet1のA1セルの内容をチェック
    cellContent = Sheets("Sheet1").Range("A1").Value

    If cellContent = "" Then
        ' A1が空欄の場合、現在のユーザー名を記録
        userName = Environ("USERNAME")
        Sheets("Sheet1").Range("A1").Value = userName
    Else
        ' A1に内容がある場合、メッセージボックスを表示
        MsgBox cellContent & "が開いています。", vbExclamation, "ファイル使用中"
    End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim currentUser As String
    currentUser = Environ("USERNAME")  ' 現在のユーザー名を取得

    ' A1セルに記録されているユーザー名が現在のユーザー名と一致する場合のみ、内容を消去
    If Sheets("Sheet1").Range("A1").Value = currentUser Then
        Sheets("Sheet1").Range("A1").ClearContents
    End If
End Sub


ファイルを開いたら、Sheet1のA1に”ユーザー名”が記録されます。

ファイルを閉じると、Sheet1のA1に”ユーザー名”が消えます。

なので、途中からファイルを開いたら、A1にユーザー名が入っているということになっているので、If文のelse側に進みメッセージが出るという感じです。

そして、閉じるとき、ユーザー名がA1と同じなら、A1の文字が消えて、

ユーザー名がA1と違うなら、そのまま閉じます。

という感じです。

参考になれば、幸いです。

ここまで読んでいただきありがとうございました。

スクールの紹介

最後に宣伝をさせてください。

夢見るAIエンジニアへ、今こそ一歩を踏み出せ!

最近、AI技術やデータサイエンスに興味を持ち始めたあなた。将来、AIエンジニアやデータサイエンティストとして活躍したいと考えているかもしれません。また、AIを使って業務課題や研究課題を解決したい、あるいは教養としてAIの知識を深めたいと思っている方もいるでしょう。

しかし、学び始めるとなると「どこから手をつけて良いのか分からない」「専門的すぎて理解できない」といった悩みが生じることも。そんなあなたのために、この3ヶ月間集中してAIプログラミングを習得するオンラインコーチングサービスがオススメです!

なぜこのサービスが選ばれるのか?その理由はこちら

  1. 初心者から上級者まで
    完全なプログラミング初心者から研究者まで、幅広い方々に優良なコンテンツが提供されます。
  2. 徹底的な進捗管理
    受講者の進捗をしっかりとチェックし、つまずきやすいポイントでのフォローが万全です。
  3. 専属メンターによる徹底サポート
    AIの学び方から、実際の適用まで、専属のメンターが手厚くサポートします。
  4. 場所を選ばず学べるオンライン完結
    東京以外の地域からも、気軽に学び始めることができます。

信頼の実績多数!
・日本最大級のプログラミングスクール実績
・受講者総数700名以上
・SaaS型学習サービス会員65,000名以上
・企業導入実績120社以上
・グッドデザイン賞受賞
・著名な賞受賞歴や経団連加盟も実現

夢を叶えるための第一歩を、一緒に踏み出しませんか?今なら、あなたもその一員として学び始めることができます!

よかったらシェアしてね!
  • URLをコピーしました!
  • URLをコピーしました!

この記事を書いた人

私が勉強したこと、実践したこと、してることを書いているブログです。
主に資産運用について書いていたのですが、
最近はプログラミングに興味があるので、今はそればっかりです。

目次