硬件lockingExcel表格使用MAC ID外部

我目前有一个macros，将获取运行Excel一旦打开机器的主板系列号。

然后它会validation这个Seriel数是否存在于我的Sheet1中的VBA中，如果它存在，它将打开Excel，否则它将closures它。

以下是获取Seriel编号的代码。

Public Function MBSerialNumber() As String Dim objs As Object Dim obj As Object Dim WMI As Object Dim sAns As String Set WMI = GetObject("WinMgmts:") Set objs = WMI.InstancesOf("Win32_BaseBoard") For Each obj In objs sAns = sAns & obj.SerialNumber If sAns < objs.Count Then sAns = sAns & "," Next MBSerialNumber = sAns End Function 

以下是validation部分

 Private Sub Workbook_Open() Set RMBSN = Sheets(1).Range("C4") ' This is where you have already stored required MBSerialNumber If MBSerialNumber <> RMBSN Then ' Checking if current machine serial number is matching with required MsgBox ("Data Security failier, This workbook will close") ' In case it does not match workbook will be closed ActiveWorkbook.Save ActiveWorkbook.Close End If End Sub 

我现在想要做的是，将我的“允许的”系列号的允许值移到工作表外 – 也许是在线的地方，这样我就可以在线添加这些值，而不必在每一次我给有人访问。

这可能吗？ 有什么build议么？