Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
876to880
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
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mappe Freigeben mittels Makro

Mappe Freigeben mittels Makro
08.06.2007 10:52:00
Pia
Guten Tag
Kann mir jemand weiterhlefen? Wie lautet der Visual Basic Befehl um eine Excel-Mappe mittels Makro freizugeben?
mfg
Pia

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

Betreff
Datum
Anwender
Anzeige
AW: Mappe Freigeben mittels Makro
08.06.2007 11:45:49
Mike
Ich denkemal ganz einfach: ActiveWorkbook.Unprotect
Falls ich irre, bitte mitteilen.

AW: Mappe Freigeben mittels Makro
08.06.2007 15:30:00
Horst
Hi,
sieh dir die ProtectSharing-Methode an.
mfg Horst

AW: Mappe Freigeben mittels Makro
09.06.2007 14:59:47
Lorenz
Hallo Pia!
Probiers mal so:

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



Sub Freigabe ausschalten()
With Application
.ScreenUpdating = False
.DisplayAlerts = False
With ActiveWorkbook
.ExclusiveAccess
.KeepChangeHistory = False
End With
.DisplayAlerts = True
End With
End Sub


Grüsse aus Österreich
Lorenz

Anzeige
AW: Mappe Freigeben mittels Makro
09.06.2007 15:02:29
Lorenz
Hallo Pia!
probiersmal so:

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



Sub Freigabe ausschalten()
With Application
.ScreenUpdating = False
.DisplayAlerts = False
With ActiveWorkbook
.ExclusiveAccess
.KeepChangeHistory = False
End With
.DisplayAlerts = True
End With
End Sub


Grüsse Lorenz

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige