如何保存在线工作簿中单元格中的值以用作VBA中的变量

Question

我正在扩展我去年的想法：  How do I get the Cell value in Excel using an environmental variable for a VBA If statement

我想在线使用许可证文件中的数据以及本地输入电子表格中的数据，以验证许可证是否有效和最新

我可以将所需数据从在线文件复制到本地电子表格中，而不会出现任何问题，并可以使用常规公式进行检查，但我想避免这样做

如果可能的话，我想将数据保存在变量中，而不是用于验证，以便使有人更难以规避保护

Sub Check_Key_Online()
Dim KeyFormula As String

On Error GoTo error

KeyFormula = "='" & "SomeWebsiteURL/[" & Reg1.Range("D9").Value & "]Lic'!$B$6"
With Reg1.Range("G9")
.Formula = KeyFormula
.Value = .Value
End With

MsgBox Reg1.Range("G9").Value = Reg1.Range("D9").Value

GoTo exit1

error:
MsgBox (IsError(KeyFormula))

exit1:
End Sub

用户将输入信息，包括密钥，然后将使用他们的密钥来检查要在线验证的文件，一旦选择并发现存在该文件，我希望将数据保存在变量中检查有效性

PS。忽略错误处理代码，如果找不到许可证，我仍然必须处理如何处理事情：P