Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
datei schließen wenn computer nicht verbunden mit netzwerk
zurück: Liste Exportieren weiter: Selektierten Wert anzeigen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
freeman79
Gast


Verfasst am:
15. März 2011, 15:33
Rufname:

datei schließen wenn computer nicht verbunden mit netzwerk - datei schließen wenn computer nicht verbunden mit netzwerk

Nach oben
       Version: Office 2007

Hallo zusammen,
ich möchte ein Macro schreiben, das eine Exceldatei schließt sofern der computer nicht mit dem eigneen Firmennetzwerk verbunden ist?

Hat hier jemand eine Idee, wie man eine Servernummer, etc als Abgleich auslesen kann per Excel VBA Marco?

Das Ganze soll als Schutz dienen, damit die Exceldatei für Firmenexterne umbrauchbar ist. Ein Passwort kann ein Nutzer weiter reichen, allerdings nicht eine bestimmte Netzwerkkennung.

Grüße
Christoph
werni
Solala


Verfasst am:
15. März 2011, 17:01
Rufname: werni
Wohnort: Ennenda GL


AW: datei schließen wenn computer nicht verbunden mit netzwe - AW: datei schließen wenn computer nicht verbunden mit netzwe

Nach oben
       Version: Office 2007

Hallo Christoph

Versuch mal diese Code. Laufwerksbuchstaben musst noch anpassen.


Private Sub Workbook_Open()
On Error GoTo AUSAMEN
ChDrive ("T:\")
Exit Sub
AUSAMEN:
ActiveWorkbook.Close
End Sub


Gruss werni

_________________
"Die Summe aller Intelligenz auf Erden ist konstant, aber die Anzahl Individuen steigt."
. EINSTEIN
Gast



Verfasst am:
15. März 2011, 17:48
Rufname:

AW: datei schließen wenn computer nicht verbunden mit netzwe - AW: datei schließen wenn computer nicht verbunden mit netzwe

Nach oben
       Version: Office 2007

Hallo Werni,

vielen Dank für das Modul. Es funktioniert sehr gut, allerdings nicht bei von alleine nach dem öffnen der Datei.
Wie kann ich Einstellen, dass das Marco automatisch nach dem Öffnen der Datei den Check fährt?

Viele Grüße
Christoph
werni
Solala


Verfasst am:
15. März 2011, 17:55
Rufname: werni
Wohnort: Ennenda GL

AW: datei schließen wenn computer nicht verbunden mit netzwe - AW: datei schließen wenn computer nicht verbunden mit netzwe

Nach oben
       Version: Office 2007

Hallo Christoph

Hast du denn diesen Code nicht ins klassische Modul DieseArbeitsmappe gelegt?

Private Sub Workbook_Open() gehört dorthin.

Natürlich funktioniert das nur bei aktivierten Makros. Ich nehme an, dass das bei Office 2007 immer noch so ist.

Gruss werni

_________________
"Die Summe aller Intelligenz auf Erden ist konstant, aber die Anzahl Individuen steigt."
. EINSTEIN
Gast



Verfasst am:
15. März 2011, 18:15
Rufname:

AW: datei schließen wenn computer nicht verbunden mit netzwe - AW: datei schließen wenn computer nicht verbunden mit netzwe

Nach oben
       Version: Office 2007

Hallo Werni,
richtig, jetzt funktionierst. Die Marcos waren nur auf der zweitniedrigsten Stufe eingestellt.
Mh, dass heißt allerdings, dass bei Rechnern die die Macros disabled haben, dieser Schutz nicht funktioniert.
D.h. ich bräuchte eine Lösung in workbook_open welche direkt die macronutzung erlaubt.
Gibts das?
Viele Grüße und vielen Dank
Christoph
werni
Solala


Verfasst am:
15. März 2011, 18:30
Rufname: werni
Wohnort: Ennenda GL

AW: datei schließen wenn computer nicht verbunden mit netzwe - AW: datei schließen wenn computer nicht verbunden mit netzwe

Nach oben
       Version: Office 2007

Hallo Christoph

Erstelle ein leeres Blatt in deiner Arbeitsmappe

Dieser Code gehört ans selbe Ort wie Private Sub Workbook_Open()
Tabellen1 etc. noch anpassen.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Tabelle1.Visible = xlVeryHidden
Tabelle3.Visible = xlVeryHidden
Tabelle4.Visible = xlVeryHidden
End Sub


Musst natürlich bei Workbook Open diese wieder auf True stellen.

Private Sub Workbook_Open()
On Error GoTo AUSAMEN
ChDrive ("T:\")
Tabelle1.Visible = True
Tabelle3.Visible = True
Tabelle4.Visible = True

Exit Sub
AUSAMEN:
ActiveWorkbook.Close
End Sub


Alle auf xlVeryHidden setzen bis auf das leere Blatt.

So ist, wenn die Makros nicht aktiviert sind nur das leere Blatt sichtbar. Und die ander konnen auch vom Menü her nicht Sichtbar gemacht werden.

Gruss werni

_________________
"Die Summe aller Intelligenz auf Erden ist konstant, aber die Anzahl Individuen steigt."
. EINSTEIN
Gast



Verfasst am:
15. März 2011, 18:47
Rufname:


AW: datei schließen wenn computer nicht verbunden mit netzwe - AW: datei schließen wenn computer nicht verbunden mit netzwe

Nach oben
       Version: Office 2007

Fantastisch! Herzlichen Dank!
Viele Grüße
Christoph
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Tabellenwert aus einem anderen Register/Datei auslesen 7 rekrut 4303 24. Apr 2014, 13:01
steve1da Tabellenwert aus einem anderen Register/Datei auslesen
Keine neuen Beiträge Excel Formeln: Auf andere xls Datei zugreifen. 6 Musnik 1243 09. Aug 2007, 17:21
Musnik Auf andere xls Datei zugreifen.
Keine neuen Beiträge Excel Formeln: Verknüpfungen aktualisieren sich nicht - Datei langsam 9 hasenstall 2285 23. Jul 2007, 21:22
hasenstall Verknüpfungen aktualisieren sich nicht - Datei langsam
Keine neuen Beiträge Excel Formeln: SVERWEIS - Problem bei Verknüpfung in andere Excel Datei 0 kuchlerm 1749 02. Apr 2007, 12:11
kuchlerm SVERWEIS - Problem bei Verknüpfung in andere Excel Datei
Keine neuen Beiträge Excel Formeln: Excel Datei nach bestimmten Kriterien splitten 3 Primelchen 941 21. März 2007, 11:45
Primelchen Excel Datei nach bestimmten Kriterien splitten
Keine neuen Beiträge Excel Formeln: Mehrere Tabellen in eine Datei kopieren 2 kloss 631 13. Feb 2007, 12:40
Gast Mehrere Tabellen in eine Datei kopieren
Keine neuen Beiträge Excel Formeln: Mehrere Benutzer an einer Excel Datei arbeiten 3 der neue 3614 12. Jan 2007, 09:52
Gast Mehrere Benutzer an einer Excel Datei arbeiten
Keine neuen Beiträge Excel Formeln: Bezug zu einer externen Datei auch ohne die externe Datei 0 YankeeZoulou 848 11. Jan 2007, 12:11
YankeeZoulou Bezug zu einer externen Datei auch ohne die externe Datei
Keine neuen Beiträge Excel Formeln: dropdown inhalte aus anderer Datei? 3 Gast 1259 30. Sep 2006, 18:33
Reto_m dropdown inhalte aus anderer Datei?
Keine neuen Beiträge Excel Formeln: Datei aktualisiert viel zu langsam mit SVerweis und Indirekt 8 Gast 6397 21. Sep 2006, 13:05
AndiHN Datei aktualisiert viel zu langsam mit SVerweis und Indirekt
Keine neuen Beiträge Excel Formeln: SUMMEWENN Bezug auf andere Datei BITTE HILFE! 1 Maaadin 1141 07. Jul 2006, 11:56
tom_r SUMMEWENN Bezug auf andere Datei      BITTE HILFE!
Keine neuen Beiträge Excel Formeln: Wenn Abfrage mit Summe aus andere Datei 9 No1Name 938 19. Apr 2006, 17:53
No1Name Wenn Abfrage mit Summe aus andere Datei
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP Forum