Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1072to1076
1072to1076
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Arbeitsmappe sollte nur auf diesen PC laufen

Forumthread: Arbeitsmappe sollte nur auf diesen PC laufen

Arbeitsmappe sollte nur auf diesen PC laufen
17.05.2009 01:16:39
Heinz
Hallo Leute
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
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsmappe sollte nur auf diesen PC laufen
17.05.2009 01:37:40
Jens
Hallo Heinz
1. Man könnte die Seriennummer der Festplatte auslesen und diese beim Öffnen mit einer vorgegebenen Nummer vergleichen.
2. Man könnte der Benutzer abgleichen.
3. Glaube ich wäre nur sinnvoll mit einer statischen IP
Allerdings ist nichts sicher in Excel, so viel ist sicher ;o)
Gruß aus dem Sauerland
Jens
Anzeige
AW: Arbeitsmappe sollte nur auf diesen PC laufen
17.05.2009 02:54:38
Heinz
Hallo Jens
Das mit der Seriennummer der Festplatte würde schon genügen.
Hättest du eventuell eine Idee oder Beispiel dafür ?
Danke & Gruß
Heinz
AW: Arbeitsmappe sollte nur auf diesen PC laufen
17.05.2009 03:03:09
Heinz
Hallo
Den Code zum auslesen der Seriennummer von der Festplatte
Habe Code von NoNet - DANKE
VBA-Code: 

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

Anzeige
AW: Arbeitsmappe sollte nur auf diesen PC laufen
17.05.2009 09:31:27
Hajo_Zi
Hallo Heinz,
und was ist jetzt offen? Die ausgelesene Serien Nr. kannst Du ja mit Deiner Vorgabe vergleichen. Du mußt nur beachten falls jemand ein Festplatte klont habe die alle die gleiche Serien Nr.

AW: Arbeitsmappe sollte nur auf diesen PC laufen
17.05.2009 09:40:07
Nepumuk
Hallo Heinz,
du könntest die Datei auch verschlüsseln. Rechtsklick im Explorer - Eigenschaften - Allgemein - Erweitert - Häkchen bei "Inhalt verschlüsseln, um Daten zu schützen". Aber, würde der Rechner neu aufgesetzt, könntest auch du die Datei nicht mehr öffnen. Andere Möglichkeit, eine verschlüsselte ZIP- oder RAR - Datei. Am einfachsten, ein Lese- Schreibschutzkennwort vergeben und in den Excel-Optionen - Sicherheit - Erweitert eine stärkere Verschlüsselung (z.B. RSA mit 128 Bit) auswählen. Die alte 40 Bit Verschlüsselung ist nicht sehr sicher.
Gruß
Nepumuk
Anzeige
AW: Arbeitsmappe sollte nur auf diesen PC laufen
17.05.2009 10:41:44
Heinz
Hallo Leute
Erstmals Danke für euer Feedback !!
Frage: Gibt es eventuell einen Code, bei Workbook_open, der nur die Seriennummer zB. 123456 der Festplatte zulässt.
Danke & Gruß
Heinz
AW: Arbeitsmappe sollte nur auf diesen PC laufen
17.05.2009 10:45:38
Hajo_Zi
Hallo 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


Gruß Hajo

Anzeige
AW: jetzt richtiger Code
17.05.2009 10:47:11
Hajo_Zi
Hallo Heinz,

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


Gruß Hajo

Anzeige
AW: jetzt richtiger Code
17.05.2009 10:48:23
Heinz
Hallo Hajo
Super - DANKE !!
Noch einen schönen Sonntag
Gruß
Heinz
;

Forumthreads zu verwandten Themen

Die Arbeitsmappe kann nicht geschlossen werden!
Andreas

Die Arbeitsmappe kann nicht geschlossen werden, da sie von einer anderen
Arbeitsmappe verwendet wird!"
Diese Meldung bekomme ich in Excel 2007, wenn ich in meinem VBA- Code
"workbooks.close" verwende.
Es sind aber keine weiteren Mappen geöffnet, kann mir da jemand weiterhelfen?<...
13.08.2008 20:56:05
Thread-ID: 1001659
2 Beiträge
Spalten Ausblenden in freigegebener Arbeitsmappe
Marco

Hallo,
ich möchte gerne in einer freigegeben Arbeitsmappe bestimmte Spalten per Klick auf ein Symbol aus- und wieder einblenden können.
Mein Problem ist der Blattschutz in der freigegebenen Arbeitsmappe. Aufgrund meiner bescheidenen VBA-Kenntnisse, weiß ich nicht, an welcher Stelle des...
17.08.2008 22:56:20
Thread-ID: 1002488
3 Beiträge
daten aus Arbeitsmappe einlesen
Peter

Hallo,
kurze Fragestellung an die Experten. Habe mir einen Code zusammengebastelt, der in einer geöffneten Arbeitsmappe, bestimmte Daten aus einer anderen noch "unbestimmten" Arbeitsmappe importieren soll. Funktioniert auch, jedoch kommt mir der Code zu unübersichtlich und auch "unsauber" v...
19.08.2008 13:25:00
Thread-ID: 1002916
3 Beiträge
Freigegebene Arbeitsmappe - Datenmanipulation
Meier

Hallo NG,
ich habe eine Excel-Tabellemit einem UserForm, zur Dateneingabe und Änderung in einem Tabellenblatt.
Der User öffnet die Tabelle, das Blatt ist geschützt. Dann hat er in der CommandBar einen Button zum Aufruf eines UserForms. Damit lassen sich die Daten ändern, neue Daten hinz...
02.09.2008 15:06:00
Thread-ID: 1006814
6 Beiträge
Tabellenblätter in neue Arbeitsmappe kopieren
Christian

Hallo!
ich möchte gerne per makro aus einer datei mit ca. 70 tabellenblättern 11 Blätter auswählen und in eine neue Mappe kopieren, am besten sollten auch gleich noch die verküpfungen (in der neuen mappe) gelöscht werden.
Die zu kopierenden Blätter sind nicht hintereinander, also quer ü...
10.09.2008 16:37:00
Thread-ID: 1008845
6 Beiträge
Arbeitsblaetter aus Datei in Arbeitsmappe kopieren
Benjamin

Hallo erstmal,
normalerweise lese ich immer nur und finde alle loesungen, diesmal hab ich einfach nichts gefunden.
Ich wuerde gerne als sehr vielen Dateien immer das komplette dritte Arbeitsbaltt kopieren und in einer neuen Arbeitsmappe untereinander einfuegen. Hab auch schon einen ansa...
16.09.2008 06:03:00
Thread-ID: 1009929
2 Beiträge
Daten aus Zellbereich in eine neue Arbeitsmappe
André

Für eine "Tägliche Auswertung" suche ich ein Makro.
Meine erste Idee war es, hier im Forum zu suchen, ob es da nicht schon was gibt. Leider erfolglos. Ich hab zwar Makros gefunden, die ein neues Wks erstellen mit genau den Vorgaben, die ich brauche und ein Makro zum Zellenbereich kopieren,...
26.09.2008 10:23:00
Thread-ID: 1012532
3 Beiträge
Arbeitsmappe drucken - Reihenfolge der Seiten
Peter

Hallo zusammen,
noch ein seltsames Problem: ich habe einen CommandButton mit einem Code hinterlegt, der mir bestimmte Tabellenblätter ausdrucken soll.
Ich habe auf meinem ersten Tabellenblatt Auswahlknöpfe. Je nachdem, welcher Button aktiv ist, sollen andere Blätter gedruckt werden. Bei...
02.10.2008 11:57:00
Thread-ID: 1013841
8 Beiträge
Neue Arbeitsmappe aus AddIn erstellen
wernernico

Hallo,
ich hab da mal wieder ein kleines Problem...
Ich habe ein AddIn, das neben Code auch mehrere Tabellenobjekte enthält. Nun möchte ich ein neues WorkBook erstellen, das die Tabellen aus dem AddIn enthält. Ich habe es bisher auf folgende Weise probiert:
Set Tempbook = DieseArbei...
06.10.2008 09:55:00
Thread-ID: 1014338
3 Beiträge
Zuerst Makro ausführen, dann Arbeitsmappe anzeigen
fga

Hallo
Ich habe ein ziemlich umfangreiches Makro das beim Öffnen der Arbeitsmappe ausgeführt wird.
Das Makro muss in verschiedenen Tabellenblättern Bereiche selektieren und Berechnungen durchführen und die Ergebnisse wieder eintragen.
So habe ich unter anderem folgender Code für vers...
21.10.2008 12:15:11
Thread-ID: 1017932
3 Beiträge
Zuerst Makro ausführen, dann Arbeitsmappe anzeigen
fga

Hallo
Ich habe ein ziemlich umfangreiches Makro das beim Öffnen der Arbeitsmappe ausgeführt wird.
Das Makro muss in verschiedenen Tabellenblättern Bereiche selektieren und Berechnungen durchführen und die Ergebnisse wieder eintragen.
So habe ich unter anderem folgender Code für vers...
21.10.2008 12:51:00
Thread-ID: 1017941
5 Beiträge
Code per VBA in "Diese Arbeitsmappe"
Timo

Hallo,
mir ist bekannt, wie ich per VBA ein neues Modul anlegen und eine Sub erzeugen kann.
Ich möchte nun aber per VBA eine sub in "Diese Arbeitsmappe" erzeugen und mit einer zweiten Prozedur wieder löschen.
Geht das?
Ich habe im Archiv nichts relevantes hierzu gefunden.
V...
29.10.2008 11:37:00
Thread-ID: 1020207
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige