用VBA进行加密

chqiang22

在网上找了一个用逻辑盘加密的方法，原来是将用户名放在同一个工作簿里面的，现在想把他们分开放，用需要加密的文件去读取放在同一个文件夹里面单独存放用户名的工作簿，请问一下应该怎么该代码？

chqiang22

我自己修改了两种代码，但是都不行
Sub Auto_Open()
Dim wb As Workbook, i As Variant, sh As Worksheet, fil As String
Dim s As String, arr, OK As Boolean
s = GetDiskVolume
Workbooks.Open Filename:=ThisWorkbook.Path & "\YH.xlsX", Password:="123"
Workbooks("YH").Activate
arr = Sheet1.[a1].CurrentRegion.Value
    For i = 2 To UBound(arr)
        If InStr(arr(i, 2), s) Then
            OK = True
            Exit For
        End If
    Next
    If OK = False Then
        MsgBox "非指定用户"

    End If
End Sub



Sub Auto_Open2()
Dim wb As Workbook, i As Variant, sh As Worksheet, fil As String
Dim s As String, arr, OK As Boolean
s = GetDiskVolume
Workbooks.Open Filename:=ThisWorkbook.Path & "\YH.xlsX", Password:="123"
fil = ThisWorkbook.Path & "\YH.xlsX"
Set sh = GetObject(fil).Sheet1

arr = sh.[a1].CurrentRegion.Value
    For i = 2 To UBound(arr)
        If InStr(arr(i, 2), s) Then
            OK = True
            Exit For
        End If
    Next
    If OK = False Then
        MsgBox "非指定用户"

    End If
End Sub

请老师帮忙修改一下