Zugriff auf Arbeitsmappe zählen

[Obelix45]

Hallo Wissende,

ich vermute mal das dies mit Excel ( 2013 ) nicht möglich ist, möchte aber trotzdem die Frage stellen.

Ich habe mehrere Arbeitsblätter die in unserer Firma von mehreren benutzt werden, teilweise schreibgeschützt.

Die Daten müssen natürlich von mir gepflegt werden. Ich würde gerne wissen wie intensiv so eine Arbeitsmappe genutzt wird.
Ich möchte also wissen wie oft eine Arbeitsmappe geöffnet wird.
So eine Art Protokoll der Nutzung. Da die Arbeitsmappe nicht von jedem gespeichert werden kann dürfte das problematisch werden.
Aber vielleicht hat ja jemand eine Idee.

Robert

[WillWissen]

Hi Obelix,

da der Kumpel Asterix bekanntlich als schlaues Kerlchen gilt, hätte er dir bestimmt mit diesem Hinweis geholfen   :

   

[Obelix45]

Hi Günter,

danke für den Tip. Ich habe leider ganz andere Suchergebnisse wie Du. Auch auf Office-loesung.de finde ich nicht das richtige.
Könntest Du mir bitte mal einen Link schicken ?

Danke
Robert

( Obelix war mal mein Skip im CB-Funk vor 40 Jahren )

[schauan]

Hallöchen,

rein technisch gesehen stimme ich Dir bedingt zu. Du solltest nur darauf achten, dass hier kein Personenbezug entstehen kann. Einer reinen Zählung spricht da m.E. nichts entgegen.

Da die Arbeitsmappe nicht von jedem gespeichert werden kann dürfte das problematisch werden.


In unserem Überwachungsstaat ist es technisch möglich, systemseitig Dateizugriffe zu loggen …

Alles andere wäre zumindest unvollständig. Das Speicherproblem könnte man vermeiden, wenn man ein Makro ausführt welches in einer gesonderten Datei einen Zähler hoch setzt. Die Makroausführung kann man aber auch wieder verhindern … Dem kann man nun wiederum vorbauen, wenn man (fast) alle Blätter ausblendet und beim Öffnen per Makro einblendet. Wenn nun jemand die Makroausführung verhindert oder selbige Systemseitig verboten / deaktiviert ist, kann man natürlich nicht mit der Datei arbeiten. usw.

[WillWissen]

Hi Robert,

mal die ersten 4 Links. Schau dich darin mal um; vllt. wirst du fündig.

https://www.google.com/url?sa=t&rct=j&q=&esrc=s&source=web&cd=1&cad=rja&uact=8&ved=2ahUKEwjmu9fi6pHeAhWOzaQKHQLDBJAQFjAAegQICRAB&url=http%3A%2F%2Fwww.office-loesung.de%2Fftopic155723_0_0_asc.php&usg=AOvVaw1R7GvI5fFtCEeYI2SD4MYE

https://www.google.com/url?sa=t&rct=j&q=&esrc=s&source=web&cd=2&cad=rja&uact=8&ved=2ahUKEwjmu9fi6pHeAhWOzaQKHQLDBJAQFjABegQICBAB&url=http%3A%2F%2Fwww.herber.de%2Fforum%2Farchiv%2F688to692%2F691885_Dateioeffnung_zaehlen.html&usg=AOvVaw30n3iSq__nJGZVTa6l_P_5

https://www.google.com/url?sa=t&rct=j&q=&esrc=s&source=web&cd=3&cad=rja&uact=8&ved=2ahUKEwjmu9fi6pHeAhWOzaQKHQLDBJAQFjACegQIBxAB&url=http%3A%2F%2Fwww.pctipp.ch%2Ftipps-tricks%2Fkummerkasten%2Foffice%2Fartikel%2Fexcel-oeffnungsstatistik-einer-bestimmten-datei-62632%2F%3Fforcedesktop%3D1%26cHash%3D009819069af9e18621f75a137f53381b&usg=AOvVaw3LVICjmDa25i0f7yyunRaf

https://www.google.com/url?sa=t&rct=j&q=&esrc=s&source=web&cd=4&cad=rja&uact=8&ved=2ahUKEwjmu9fi6pHeAhWOzaQKHQLDBJAQFjADegQIBhAB&url=https%3A%2F%2Fmicrosoft.public.de.excel.narkive.com%2FajTy4Xmn%2Fzahler-wie-oft-datei-geoffnet-wird&usg=AOvVaw0B16vtFTKLTzUKIU2ofd4H

( Obelix war mal mein Skip im CB-Funk vor 40 Jahren )

Ja, ja, die gute(?) alte Zeit. Äußerst komfortabel die "Glatteis"-Warnungen. :05:

[Fennek]

Hallo,

nach einem ersten Blick mit "cmd:> help" käme sowohl CACLS als auch das neuere "ICACLS" infrage.

Allerdings "habe ich Interesse", aber damit noch nie gearbeiten und auch wenig Lust alle Schalter auszuprobieren.

Hat hier jemand Erfahrungen CACLS mit VBA auszulesen?

mfg

(IMHO scheidet VBA aus, da es zu leicht abgeschaltet werden kann)

[Obelix45]

Ich konnte das soweit mit diesem Code erledigen.
Habe das mit 3 Arbeitsmappen getestet. Jede schreibt in eine eigene csv den Zählwert.
Ich habe mir eine eigene Tabelle gemacht und hier die Werte der 3 anderen verknüpft.
Soweit so gut. Doch wenn ich meine Arbeitsmappe öffne meckert er die Verknüpfungen an und sagt mir ich muss erst die
Tabellen öffnen um die Werte zu aktualisieren. Das ist noch nicht so optimal.

Code:

Private Sub Workbook_Open()
Const Ext = ".csv" 'gewünschte File-Extension angeben
Dim fn As String, ff As Integer, Anzahl As Long
On Error GoTo errhandler
fn = WorksheetFunction.Substitute(ThisWorkbook.FullName, ".xls", Ext)
ff = FreeFile()
If Dir(fn) <> "" Then
    Open fn For Input As #ff
    Input #ff, Anzahl
    Close #ff
    Anzahl = Anzahl + 1
Else
    Anzahl = 1
End If
Open fn For Output As #ff
Print #ff, Anzahl
Close #ff
Exit Sub

errhandler:
MsgBox "Fehler beim Auslesen/Erhöhen das Zählers!"
End Sub

Robert

[Käpt'n Blaubär]

Hallo,

Doch wenn ich meine Arbeitsmappe öffne meckert er die Verknüpfungen an und sagt mir ich muss erst die
Tabellen öffnen um die Werte zu aktualisieren. Das ist noch nicht so optimal.

Du bekommst doch beim Öffnen die Meldung über zu aktualisierende Verknüpfungen.
Unter anderen Möglichkeiten wird dort auch die Frage gestellt, ob die Verknüpfungen
bearbeitet werden sollen. Nach Klicken auf diesen Button geht das Verknüpfungsfenster
auf. Im unteren Drittel dieses Fensters findest Du die Möglichkeit,
Automatische Verknüpfungen Aktivieren oder so ähnlich. Wenn Du das aktivierst,
ist Ruhe.

[Obelix45]

Hi, so habe ich das auch eingestellt. Bekomme trotzdem diese Meldung:

[
Bild bitte so als Datei hochladen: Klick mich!
]
Dann gehe ich auf Verknüpfungen bearbeiten. Kann dann aber nur eine Quelle öffnen. Die Excel mir dann auch aktualisiert.
Aber nicht die anderen beiden.

[
Bild bitte so als Datei hochladen: Klick mich!
]

Robert

[Käpt'n Blaubär]

Hallo,

Dann gehe ich auf Verknüpfungen bearbeiten. Kann dann aber nur eine Quelle öffnen. Die Excel mir dann auch aktualisiert. Aber nicht die anderen beiden.

... und doch funktioniert das so.
Wenn Du Verknüpfungen bearbeiten willst, dann mußt Du diese allerdings eine nach der anderen
anwählen und einzeln bearbeiten.

Ein bischen eigene Überlegungen einzubringen sollte nicht schaden.
Spiele halt mal mit den zur Verfügung stehenden Möglichkeiten rum.
Ansonsten zeige uns Deine Datei.

Übrigens: bei mir läuft das so seit Jahrzehnten anstandslos und ohne jedes Problem und sogar
Excelgenerationenübergreifend durch.

Noch was: Es gibt auch den Button Verknüpfungen Aktualisieren.
Hier gibt's weitere Fehlermeldungen.