Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zugriff für mehrere Nutzer auf dem Server

Zugriff für mehrere Nutzer auf dem Server
28.07.2003 00:01:52
Bernd Wies
Guten Morgen,

ich habe eine Arbeitsmappe und möchte diese auf dem Server für 2 Benutzer freigeben lassen. Reicht es aus, die Arbeitsmappe freizugeben? oder muß der/das Serverprogramm eingestellt werden?

Ich bin nicht der Admin.
Server ist AIX gesteuert.

gruß und dank für Antworten

Bernd

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zugriff für mehrere Nutzer auf dem Server
28.07.2003 08:13:34
Ivan
HI,Bernd
du kannst die Mappe nur freigeben, indem du die SaveAs methode benutzt:


Workbooks("Mappe1.xls").SaveAs "C:\Mappe1.xls", AccessMode:=xlShared

Gruß
ivan


AW: Noch ein Zusatz 2 macros
28.07.2003 08:27:00
Ivan



Hallo Bernd,
Mit diesen Makros kannst Du eine Arbeitsmappe "Freigeben" und die Freigabe wieder aufheben.
Gruß Ivan


Sub Freigabe_aufheben()
Application.DisplayAlerts = False
ActiveWorkbook.ExclusiveAccess
Application.DisplayAlerts = True
End Sub

Sub Freigabe_aktivieren()
Application.DisplayAlerts = False
If Not ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, _
AccessMode:=xlShared
End If
Application.DisplayAlerts = True
End Sub


     Code eingefügt mit Syntaxhighlighter 2.2



Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige