一、前言

工作环境中保存了许多包含密码的文件。管理是个问题。
需求：

  1. 需要记录路径与密码
  2. 点击密码的时候能自动复制到剪切板中

  3. 可以检测文件是否存在

    二、栏位设置

    image.png

    三、点击密码，复制至剪切板

  4. 将活动单元格的内容复制到剪切板

    1. ActiveCell.Copy

  5. 只有点击密码是才能复制到剪切板

要判断是否点击的是密码，可已通过列数来判断，即是否是第一列。

  1. Dim passwordCol As Integer
  2. passwordCol = 1
  4. Dim col As Integer
  5. col = ActiveCell.Column
  7. If col = passwordCol Then
  8.     ActiveCell.Copy
  9. End If

四、检测文件是否存在

方案1：通过专门的点击按钮来激活检测
方案2：开启工作簿是自动激活检测（会报警告，建议方案1）

  1. Public Function CheckFileState()
  2.     Dim oFSO As Object
  3.     Dim oTextStream As Object
  4.     Set oFSO = CreateObject("Scripting.FileSystemObject")
  6.     maxRow = Range("c65535").End(xlUp).Row
  8.     For Each c In Worksheets("Base").Range("c2:c" & maxRow).Cells
  9.         Cells(c.Row, 6) = oFSO.FileExists(c.Value)
  10.     Next
  11. End Function

参考

  1. VBA取某一列所使用的单元格数_xuming1209的博客-CSDN博客_vba获取单元格列数
  2. Looping Through a Range of Cells | Microsoft Docs
  3. 如何用VBA在打开EXCEL文件时自动运行宏_冯修聿的博客-CSDN博客_vba的自动运行宏
  4. 如何用vba判断一个文件是否存在？ - VBA - ExcelOffice【微信公众号：水星Excel】