Makro kann nur von einem bestimmten USB-Stick aus gestartet werden

[maninweb]

Hallo,

Winfried, lade Dir die Beispieldatei aus dem Artikel herunter. Öffne Deine Datei und die Beispieldatei. Wechsele zum VBA Editor und lasse Dir
dort den Projektbaum anzeigen - VBA-Editor Menü / Anzeigen / Projekt-Explorer. Jetzt hast Du zwei Projekte, die Du siehst. Einmal für Deine
Datei und einmal für die Beispieldatei. Klappe den Eintrag Module für die Beispieldatei auf und Du siehst das Modul modCode. Packe das
mit der Maus an und ziehe es auf den Projektbaum Deiner Datei. Damit wird das rüberkopiert und Du hast in Deiner Datei nun auch das
Modul. Alternativ, kannst Du es manuell anlegen und den Code von A nach B kopieren. Beispieldatei kannste zumachen.

Nun im Modul die Seriennummer anpassen. Danach einmal auf Microsoft Excel Objekte / DieseArbeitsmappe doppelklicken und Du
erhälst ein Fenster mit dessen Codemodul. Folgendes dort einfügen ...

Code:

Private Sub Workbook_Open()  
  USB_ID_auslesen  
End Sub

Fehlt noch, was passieren soll, wenn die Seriennummer nicht stimmt. Du kannst z.B. zurück in das Modul modCode wechseln
und unterhalb Set objFSO = Nothing ergänzen, dass die Mappe geschlossen werden soll. Beispielhaft:

Code:

'** Programmende
ende:
  Set objFSO = Nothing
 
' Hier was passieren soll, wenn die SNR nicht stimmt.
 
  ThisWorkbook.Close False
 
End Sub

Gruß