Excel, Makro: Speichern und Schließen der Datei bei Inaktivität für 10 (tps zu sehen)

Out of category
1

Hallo Freunde

Ich weiß, dass es Foren gibt, die Excel gewidmet sind, aber ich versuche mein Glück auf Lynkoa, weil ich sehe, dass es Kenner gibt und außerdem weiß ich nicht viel über Makros.

Der Zweck dieses Makros besteht darin, dass es beim Öffnen der Datei gestartet wird und dass es nach einer bestimmten Zeit der Inaktivität der Datei gespeichert und geschlossen wird. Es gibt mehrere von uns, die diese Datei auf verschiedenen Websites verwenden, und außerdem verlassen wir regelmäßig unsere Arbeitsplätze, so dass es die anderen ärgert, wenn einer von uns vergisst, sie zu verlassen.

VIELEN DANK IM VORAUS FÜR IHRE ANTWORTEN ^_^

2

Hallo

Für das Starten eines Makros beim Öffnen von Excel gibt es einige Leads auf http://www.commentcamarche.net/forum/affich-1903604-vba-executer-une-macro-a-l-ouverture-de-excel

und um es auf https://www.developpez.net/forums/d24813/logiciels/microsoft-office/excel/macros-vba-excel/timer-feuille-excel/ zu timen

Herzliche Grüße

1 „Gefällt mir“
3

Danke d.roger, ich werde sehen, ob ich es schaffe und ob ich etwas verstehe. 

4

Hier ist eine Datei, die sich nach 30 Sekunden schließen sollte, ohne sie zu berühren (zumindest funktioniert es bei mir).

Ich habe in ThisWorkbook verwendet:

Unternummer Workbook_open()
    Zähler = 0
    Blatt 1.Tempo
Ende Sub

Und in Feuil1:

Dim-Zähler als Ganzzahl

Unter-Tempo()
    Application.OnTime Now + TimeValue("00:00:01"), "Sheet1.myMacro"
Ende Sub

Sub myMacro()
    Zähler = Zähler + 1
    Wenn Zähler = 30, dann
        Arbeitsmappen ("Test.xlsm-Arbeitsmappe"). Retten
        ActiveWorkbook.Close
        Sub beenden
    Ende, wenn
    
    Blatt 1.Tempo
Ende Sub

Sub Worksheet_Change (ByVal Ziel als Bereich)
    Wenn Target.Count = 0, dann
        Zähler = 0
        Blatt 1.Tempo
    Ende, wenn
Ende Sub

Natürlich ist es nur ein Test, um zu überprüfen, zu verbessern, etc

Herzliche Grüße

 


classeur_test.xlsm
5

Einige Änderungen nach verschiedenen Tests:

Ich habe in ThisWorkbook verwendet:

Unternummer Workbook_open()
    Zähler = 0
    Blatt 1.Tempo
Ende Sub

Und in Feuil1:

Dim-Zähler als Ganzzahl

Unter-Tempo()
    Application.OnTime Now + TimeValue("00:01:00"), "Sheet1.myMacro"
Ende Sub

Sub myMacro()
    Zähler = Zähler + 1
    Wenn Zähler = 10, dann
        Arbeitsmappen ("Test.xlsm-Arbeitsmappe"). Retten
        ActiveWorkbook.Close
        Sub beenden
    Ende, wenn
    Blatt 1.Tempo
Ende Sub

Sub Worksheet_Change (ByVal Ziel als Bereich)
    Wenn Target.Count <> 0 ist, dann
        Zähler = 0
    Ende, wenn
Ende Sub

Die wichtigsten Änderungen betreffen die Funktion Worksheet_Change, wobei If Target.Count = 0 zu If Target.Count <> 0 wird, sowie die Entfernung der Zeile Sheet1.Tempo.

Herzliche Grüße


classeur_test.xlsm
6

Ich verstehe es nicht, ich kann es nicht... Wenn ich Ihre Excel-Datei öffne, kommt es zu Fehlern...


enregistrement_et_fermeture_du_fichier_en_cas_dinactivite_pendant_10.jpg
7

Dann sagte er mir: Der Hinweis gehört nicht zur Auswahl


lindice_nappartient_pas_a_le_selection.png
8

Meldung, die ich während meiner Tests nie erhalten habe, ich bin auf Excel 2010. Ich weiß nicht, ob es einen Einfluss haben kann.

9

Endgültiger Code:

Ich habe in ThisWorkbook verwendet:

Unternummer Workbook_open()
    Zähler = 0
    Blatt 1.Tempo
Ende Sub

Und in Feuil1:

Dim-Zähler als Ganzzahl

Unter-Tempo()
    Application.OnTime Now + TimeValue("00:01:00"), "Sheet1.myMacro"
Ende Sub

Sub myMacro()
    Zähler = Zähler + 1
    Wenn Zähler = 10, dann
        Arbeitsmappen(ThisWorkbook.Name). Retten
        ActiveWorkbook.Close
        Sub beenden
    Ende, wenn
    
    Blatt 1.Tempo
Ende Sub

Sub Worksheet_Change (ByVal Ziel als Bereich)
    Wenn Target.Count <> 0 ist, dann
        Zähler = 0
    Ende, wenn
Ende Sub


classeur_test.xlsm
2 „Gefällt mir“