Ist es möglich eine Arbeitsmappe nur auf einen bestimmten PC zu öffnen?
Zum Beispiel mit zugewiesener IP Adresse oder Host Name oder User Name?
Danke & Gruß
Heinz
Public Sub SerNummer()
Dim fs As Object
Dim objLaufwerk As Object, strSN As String, strAlleSN As String
Set fs = CreateObject("Scripting.filesystemobject")
On Error Resume Next
For Each objLaufwerk In fs.drives
'Seriennr. zuvor löschen, da ansonsten SN des vorherigen Laufwerks drinsteht
strSN = ""
strSN = objLaufwerk.SerialNumber
strAlleSN = strAlleSN & objLaufwerk & " " & strSN & vbLf
Next
MsgBox strAlleSN
End Sub
Gruß
Heinz
Option Explicit
' Code von Sisto
Public Function LwSerieNr(Drive) As Variant
' Funktion zur Ermittlung der Serien Nummer
Dim FS As Object
Set FS = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
LwSerieNr = FS.GetDrive(Drive).SerialNumber
If Err > 0 Then LwSerieNr = Drive & " nicht verfügbar"
End Function
Sub Start()
MsgBox LwSerieNr("C:\")
End Sub
Option Explicit
Private Sub Workbook_Open()
If LwSerieNr("C:\") = 12345 Then
MsgBox "ok"
Else
MsgBox "nicht ok"
End If
End Sub
' Code von Sisto
Public Function LwSerieNr(Drive) As Variant
' Funktion zur Ermittlung der Serien Nummer
Dim FS As Object
Set FS = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
LwSerieNr = FS.GetDrive(Drive).SerialNumber
If Err > 0 Then LwSerieNr = Drive & " nicht verfügbar"
End Function