BeforeDoubleClick vs freigegebene Mappe
26.09.2016 19:13:45
MB12
nachdem ich heute eine - mit eurer Unterstützung - neu erstellte Planungsdatei veröffentlicht und freigegeben habe (ca 15 Teamleiter werden die Datei bearbeiten), musste ich feststellen, dass diese Lösungen nicht mehr funktionieren:
'Detailzellen einfärben alle Einträge in der aktuellen Zeile
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 11 And Target.Row > 6 Then
Call zeileFaerben(Target.Row, 1100)
Cancel = True
End If
'Doppelklick auf "Maschine", Wechsel nach "Aufträge"
If Not Intersect(Target, Columns(5)) Is Nothing Then
Cancel = True
Application.GoTo ThisWorkbook.Worksheets("Aufträge") _
.Cells(Evaluate("=MATCH(" & Target.Address & ",Aufträge!A:A,0)"), 1), True
End If
End Sub
'Detailzellen entfärben
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 11 And Target.Row > 6 Then
Range("L" & Target.Row).Resize(, 1100).Interior.Color = xlNone
Cancel = True
End If
End Sub
Beim Googeln habe ich einen alten Lösungsvorschlag aus 2002 gefunden
https://www.herber.de/forum/archiv/196to200/196907_Makro_in_freigegebener_Arbeitsmappe.html
Sub Makro_mit_Freigabe_ausführen()
ActiveWorkbook.ExclusiveAccess
'Mein Makro
If Not ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, _
AccessMode:=xlShared
End If
End Sub
mit dem Vermerk von Herbert:
Das Ausführen von Makros in Freigegebenen Mappen,wo die Freigabe aufgehoben wird,während andere _
arbeiten,hat sicherlich seine Grenzen.
Bei einem schnellen Netzwerk und wenn niemand darin arbeitet
wird es sicher ganz gut funktionieren.
Datei hat ca. 1100 Datensätze und ca. 300 Spalten
Danke schön für Euer Gehirnschmalz
Gruß, Margarete