Arbeitsmappe soll sich bei bestimmter Bedingung nicht öffnen lassen.

18/04/2013 - 16:08 von Jürgen Stadermann | Report spam
Hallo!
Ich habe im Internet einen Code gefunden, der es mir ermöglicht, die
Seriennummer der HDD auszulesen.
Gebe ich dies alles in Workbook bevor open ein, klappt das nicht.D.h.
die Arbeitsmappe öffnet sich trotzdem (sie soll das aber nicht, wenn die
Seriennummer nicht stimmt.).
Die Codeausführung mit If Abfragen etc. ist kein Problem.Eine
verschachtelte If-Abfrage.
Wenn ungleich Seriennummer, dann if, wenn gleich meine Seriennummer etc,
so schwebt mir das vor.
Also in - bevor open - ist nicht richtig.
Wo muss was hineingeschrieben werden?.

Danke
Jürgen
 

Lesen sie die antworten

#1 Claus Busch
18/04/2013 - 16:38 | Warnen spam
Hallo Jürgen,

Am Thu, 18 Apr 2013 16:08:00 +0200 schrieb Jürgen Stadermann:

Ich habe im Internet einen Code gefunden, der es mir ermöglicht, die
Seriennummer der HDD auszulesen.
Gebe ich dies alles in Workbook bevor open ein, klappt das nicht.D.h.
die Arbeitsmappe öffnet sich trotzdem (sie soll das aber nicht, wenn die
Seriennummer nicht stimmt.).



probiere es in Workbook_Open so:

On Error Resume Next
For Each Laufwerk In fs.drives
If Laufwerk.serialnumber = DeineNummer Then Exit Sub
Next
ThisWorkbook.Close False


Mit freundlichen Grüßen
Claus Busch
Win XP Prof SP3 / Vista Ultimate SP2
Office 2003 SP3 /2007 Ultimate SP3

Ähnliche fragen