Hallo,
ich möchte eine Excel so per Macro schützen, dass sie nur auf Cumptern verwendbar ist, die an unserem Server angeschlossen sind.
Hat hier jemand eine Idee, wie ich die if bedingung auf den serveranschluss formulieren kann?
Grüße
Freeman79
Hi,
ich möchte eine Excel so per Macro schützen, dass sie nur auf
Cumptern verwendbar ist, die an unserem Server angeschlossen
sind.
Hat hier jemand eine Idee, wie ich die if bedingung auf den
serveranschluss formulieren kann?
ist das eine Domäne?
Dann kann man die prüfen.
Set WshNetwork = WScript.CreateObject("WScript.Network")
Domain = WshNetwork.UserDomain
Sonst würde ich prüfen, obe ein Pfad zum Server gefunden wird.
Gruß Rainer
Hallo Rainer,
vielen Dank für deine Nachricht.
Letzteres möchte ich prüfen. Wenn die Exceldatei auf dem c: Laufwerk gespeichert ist, dann wäre zu prüfen ob der Rechner mit dem F: oder S: Laufwerk verbunden ist.
Allerdings fällt mir gerade auf das auch andere Firmen ein F: oder S: Laufwerk haben.
Kann man eine Prüfung mit der IP eines internen Servers erstellen, zB die IP des Servers auf dem das F: drive liegt?
Viele Grüße
Christoph
Hi Christoph,
Du musst den Server doch nicht über einen Laufwerksbuchstaben ansprechen.
Der Pfad lautet: \Servername\
Fremde Server werden vermutlich nicht so heißen wie Deiner.
Gruß Rainer
Hallo Rainer,
das ist genau dass was ich brauche.
wie lese ich denn den Serverpfad in eine Variable aus um sie mit dem gewünschten Servernamen zu vergleichen?
Viele Grüße und vielen Dank,
Christoph
Hi,
wie lese ich denn den Serverpfad in eine Variable aus um sie
mit dem gewünschten Servernamen zu vergleichen?
in VB6 kann das so aussehen:
Option Explicit
Private Declare Function PathFileExists Lib "shlwapi.dll" \_
Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Private Sub Form\_Load()
If PathFileExists("\\testserver") Then
MsgBox "Server gefunden"
Else
MsgBox "nicht gefunden"
End If
End Sub
In VBA sieht der Prozedurkopf anders aus, der Code kann in VBA genauso aussehen.
Gruß Rainer
Fantastisch! Das funktioniert prima.
Werde es gleich mal ähnlich einbauen!
Vielen, vielen Dank und einen schönen Feierabend,
Christoph