mit der nachfolgenden, von mir etwas abgeänderten, Prozedur-Kombination aus dem Forum, sperre ich den Aufruf einer Excel-Datei von einem CD-Lw.
Declare Function GetDriveType L ib "Kernel32" _
Alias "GetDriveTypeA" ( _
ByVal nDrive As String) As Long
Range("A1").Value = GetDriveType("D:\")
If Range("A1").Value = Left(ThisWorkbook.Path, 1) Then
MsgBox _
"Die Datei kann nicht aus einem CD-Laufwerk gestartet werden.", _
vbOKOnly + vbExclamation, "Falsches Laufwerk"
ActiveWorkbook.Close SaveChanges:=False
End If
Wie sperre ich nun das Öffnen von einem USB-Stick aus?
Vorab vielen Dank für Eure Mühen!
Gruß Klaus