【Excel でログイン管理】複数ID・パスワード登録とログイン履歴でセキュリティ強化｜Excelトラブル110番 #03

'【ID・パスワード登録】
Sub IDPassT()
  Dim IDT As Variant
  Dim PassT As Variant
  Dim AllRow As Long
  Dim LastRow As Long
  Dim WSlog As Object
  
  Set WSlog = Worksheets("ログイン情報")
  
'IDを入力
  IDT = InputBox("IDを登録してください。")
'パスワードを入力
  PassT = InputBox("パスワードを登録してください。")
'ID・パスワード一覧の最下段を探す
  AllRow = ActiveSheet.Rows.Count
  LastRow = WSlog.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row + 1
'IDが入力された時
  If IDT <> "" Then
'シートの保護を解除
    WSlog.Unprotect Password:="12345"
'ログイン情報のシートへID・パスワードを入力
    WSlog.Cells(LastRow, 1) = IDT
    WSlog.Cells(LastRow, 2) = PassT
'シートの保護を設定
    WSlog.Protect Password:="12345"
'一番先頭のシートを選択
    Worksheets(1).Select
    Range("A1").Select
'Excelファイルの保存
    ThisWorkbook.Save
'登録完了メッセージ
    MsgBox "ID・パスワードを登録しました。"
'IDが入力されなかった時
  Else
    MsgBox "登録できませんでした。"
  End If
End Sub

Private Sub Workbook_Open()

  Worksheets(1).Activate
  
  Dim wsInfo As Worksheet
  Dim wsLog As Worksheet
  Set wsInfo = Worksheets("ログイン情報")
  Set wsLog = Worksheets("ログイン履歴")
  
  Dim ID As String
  Dim Pass As String
  
  '--- 入力 ---
  ID = InputBox("IDを入力してください")
  Pass = InputBox("パスワードを入力してください")
  
  If Pass = "" Then
    MsgBox "パスワードが確認できません。"
    Application.DisplayAlerts = False
    ThisWorkbook.Close
    Application.DisplayAlerts = True
    Exit Sub
  End If
  
  '--- 認証ロジック ---
  ' C列には「ID & パスワード」を連結した値が登録されている
  Dim key As String
  Dim matchCount As Long
  
  key = ID & Pass
  
  ' COUNTIF で key を C列からカウント
  matchCount = Application.WorksheetFunction.CountIf(wsInfo.Range("C:C"), key)
  
  If matchCount = 1 Then
    '--- ログイン成功 ---
    ' 必要にあわせて【ログイン履歴】コードを貼り付け


    
    Worksheets(1).Activate
    MsgBox "ログイン成功しました。"
  
  Else
    '--- ログイン失敗 ---
    MsgBox "IDまたはパスワードが違います。"
    Application.DisplayAlerts = False
    ThisWorkbook.Close
    Application.DisplayAlerts = True
  End If
  
  End Sub

    Dim lastRow As Long
    lastRow = wsLog.Cells(wsLog.Rows.Count, 1).End(xlUp).Row + 1
    
    wsLog.Unprotect Password:="12345"
    
    wsLog.Cells(lastRow, 1).Value = lastRow - 1
    wsLog.Cells(lastRow, 2).Value = Format(Now, "yyyy/mm/dd")
    wsLog.Cells(lastRow, 3).Value = Format(Now, "hh:nn:ss")
    wsLog.Cells(lastRow, 4).Value = ID
   
    wsLog.Protect Password:="12345"