Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
188to192
188to192
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Laufwerk

Forumthread: Laufwerk

Laufwerk
04.12.2002 08:32:25
tom
Hallo,
benötige leider wiedereinmal Profihilfe.
Ist es möglich (über VBA ?) eine Arbeitsmappe so einzurichten, dass sie nur auf einem bestimmten Laufwerk funktioniert.

Beispiel: Arbeitsmappe" Estimate" soll nur auf Laufwerk "U" laufen. Wenn Kopiert auf Laufwerk "Z" dann keine Funktion.
Danke für die Hilfe!
tom

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Laufwerk
04.12.2002 09:29:40
Dan
Hallo Tom,
konnte es vielleicht so aussehen ?

Option Explicit

Private Sub Workbook_Open()
Dim myPath As String
Dim myLaufwerk As String

myPath = Me.Path
myLaufwerk = Left(myPath, 1)
If myLaufwerk <> "U" Then
MsgBox "kann nur auf Laufwerk 'U', ende :-)"
Me.Close
End If
End Sub

Anzeige
Re: Laufwerk
04.12.2002 09:30:11
Andreas Schindler
Hi Tom.
Frag den aktuellen Pfadnamen der Datei ab. Linkes Ziechen müßte dann ein "U" sein. Aber nur, wenn das Laufwerk auf allen REchnern wirklic hso gemappt ist. Kannst Du das überall gewährleisten? Ansonsten lieber die "Servernotation" verwenden.

Gruß
Andreas

Re: Laufwerk
04.12.2002 12:12:07
An Dan
Hallo Dan,
danke für die Hilfe.
Funktioniert auch soweit.Habe nur ein Problem, wenn ich die Datei auf dem nicht zugriffsberechtigten Laufwerk öffne, erscheint die MSG Box die ich dann anklicke.
Dann fragt der Assistent ob ich die Datei speichern möchte.
Wenn ich ja bzw. nein anklicke schließt die Datei. Wenn ich jedoch abbrechen anklicke ist die Datei offen.
Gibt es dafür noch eine Lösung?

Danke nochmals
tom

Anzeige
Re: Laufwerk
04.12.2002 13:37:55
Dan
Es ware moglich dass die MessageBox "Save" nich erscheint. Etwa so :

Option Explicit

Private Sub Workbook_Open()
Dim myPath As String
Dim myLaufwerk As String

'keine Messages werden angezeigt
Application.DisplayAlerts = False

myPath = Me.Path
myLaufwerk = Left(myPath, 1)
If myLaufwerk <> "U" Then
MsgBox "kann nur auf Laufwerk 'U', ende :-)"
Me.Close
End If

'und zuruckstellen
Application.DisplayAlerts = True

End Sub

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige