Ein Worksheet Change VBA in Personal. XLSB ausführen

Ich habe leider kein Sharepoint, daher kann ich das im Vorfeld nicht testen.
Wenn Du lokal auf Deinem Rechner eine XLSM Datei öffnest und dann zusätzlich die XLSX Datei auf dem Sharepoint öffnest, befinden sich dann beide Dateien in der gleichen Instanz?
Mach das bitte mal und kopiere den Code unten in ein reguläres Modul und lass ihn laufe. Welche MsgBox erscheint?
Andreas.
Sub Test()
Dim Wb As Workbook
Set Wb = OtherWorkbook
If Wb Is Nothing Then
MsgBox "Keine andere Datei"
Else
MsgBox Wb.Name
End If
End Sub

Private Function OtherWorkbook() As Workbook
'Return the other opened workbook
For Each OtherWorkbook In Workbooks
'Skip the personal workbook, this is usual hidden
If OtherWorkbook.Windows(1).Visible Then
'Skip our own workbook
If OtherWorkbook.Name <> ThisWorkbook.Name Then Exit Function
End If
Next
End Function

Hallo Andreas
Entschuldige das ich so spät Antworte.
Ich habe das Problem anderweitig gelöst.
Ich habe meinem Chef gesagt, das es nur geht wenn ich die Datei als XLSM abspeichere und nachdem es etwas Diskussion gab, ging es bis zur endgültigen Klärung (Temporär) doch.

Ich habe aber dein Makro trotzdem einmal probiert.
Er zeigt mir in der Box nur die Datei an, die ich von meinem Desktop geöffnet habe, nicht die, die ich vom Sharepoint geöffnet habe.
Ich werde es vielleicht zu einem späteren Zeitpunkt nochmal aufgreifen, aber nicht im Moment.
Danke

Das Problem war die PERSONAL.XLSB

Der Anwender hat es irgendwie geschafft eine PERSONAL(automatischgespeichert).XLSB zu erzeugen. War zusätzlich zur PERSONAL.XLSB vorhanden.

Habe diese PERSONAL(automatsichgespeichert).XLSB gelöscht - danach hat das Schließen funktioniert



danke für das AddIn hab's dennoch gespeichert, vielleicht brauch ich's mal



lG. Karin

a.) Was verstehst Du nicht?

b.) Klar geht das, probier mein Beispiel doch einfach aus.

c.) Wenn Du sagst "auszuführen", dann ist die Antwort Nein. Wenn Du meinst das ein Code in Mappe1 ausgeführt wird wenn ein Ereignis in Mappe2 eintritt, ist die Antwort Ja.



Um die Verwirrung komplett zu machen: Es ist durchaus möglich das es in beiden Mappen (oder noch weiteren Mappen / Add-In's) eine Behandlungsroutine für das gleiche Ereignis (z.B. SheetBeforeRightClick) gibt.

Wenn nun das Ereignis ausgelöst wird, werden auch beide / alle Routinen ausgeführt. Nur in welcher Reihenfolge kann ich so aus'm Kopf nicht sagen.



Auch innerhalb einer Mappe kann es ja mehrere Routinen für das gleiche Ereignis geben, schau Dir mal die möglichen Routinen in dem Codemodul einer Tabelle und im Codemodul "DieseArbeitsmappe" an:



Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)



Hier kommt zuerst das Worksheet_... und dann Workbook_...



Andreas.

Wenn du z. B. in BestimmteMappe.xls an die Referenz von BestimmteTabelle.xlsbzw. dessen Worksheets kommst, solltest du auch in BestimmteMappe.xls auf die Ereignisse von BestimmteTabelle.xls reagieren können.

Das ist möglich, aber es geht viel einfacher wenn man sich die Events der Application aneignet.

Den angehängten Code einfach mal in eine Datei in "DieseArbeitsmappe" schreiben, speichern, schließen und öffnen (oder Sub Workbook_Open direkt ausführen).

Solange nun diese Datei geöffnet ist geht nun in keiner Mappe mehr ein Rechtsklick.

Andreas.

Option Explicit

Dim WithEvents App As Application

Private Sub Workbook_Open()

Set App = Application

End Sub

Private Sub App_SheetBeforeRightClick( _

ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

MsgBox Sh.Parent.Name & " " & Sh.Name & " " & _

IIf(Target Is Nothing, "", Target.Address(0, 0))

Cancel = True

End Sub