Office: VBA Code Schliesen nach Zeit X funktioniert nicht

Hallo Leute ,
habe ein Problem in meiner Excel Datei wo ich nicht weiter komme. Versuche es so verständlich wie möglich zu beschreiben.
ich habe ein Code von jemanden bekommen (leider komme ich an diese Person nicht ran) das Folgendes machen soll. Es läuft eine Zeit x (in meinem fall 360 Sek.) ab nach dem ich die Datei öffne. Wenn ich in dieser Datei irgendeine Eingabe mache fängt die Zeit jedes mal neu an. Sobald keine Aktivität statt findet soll die Datei nach 360 Sek. gespeichert und geschlossen werden. Sobald ich die Datei öffne fängt auch die Zeit an zu laufen. Jedes mal wenn ich etwas eingäbe fängt Sie auch neu an. Doch folgende Probleme träten auf.

- Wenn ich die Datei öffne Sind die Diagramme und oben links "Disketten Symbol (Speichern) grau hinterlegt. Erst wenn ich Button betätige der Die Mappe als PDF speichern soll erscheinen Sie.
- Sobald ich in irgendein Zelle etwas eingebe erscheint folgende Fehlermeldung " Sub oder Funktion nicht def."
- Wenn ich die Datei Manuell (Oben rechts mit x ) schließe wird nicht gefragt ob ich Speichern möchte.

Vielleicht könnt ihr mir anhand der der Hochgeladenen Datei mir helfen. Ich muss das ganze bis Montag fertig haben und bin am verzweifeln :-( :-(

 

Ich kann nur einen Tipp geben wer die Datei öffnen will sollte vorher alle Exceldateien schließen und man sollte wissenm wie man doie obere Symbolleiste wieder einblenden kann.

 

Hallo Hajo_Zi
Danke für dein Tipp. Bei allem Respekt aber das bringt mich nicht weiter. :-(
Kannst du mir sagen warum das ganze nicht funktioniert ????

Gruß Polat

 

NEIN, ich werde das auch nicht weiter verfolgen, da ich Excel über den Taskmanager benden musste, noch offnen Deiner Datei.
Ich wollte nur andere Antworter auf diesen Zusand hinweisen.

Gruß Hajo

 

Das ist der Code . Vielleicht siehst du ja den fehler.Wäre dir sehr dankbar

Public p_intStart

Private Sub Test_Pause()
Dim Pausenlänge, Start, Ende, Gesamtdauer
Pausenlänge = 360 ' Dauer festlegen.
Start = Timer ' Anfangszeit setzen.
Do While Timer < Start + Pausenlänge
DoEvents ' Steuerung an andere Prozesse
' abgeben.
Loop
Ende = Timer ' Ende festlegen.
Gesamtdauer = Ende - Start ' Gesamtdauer berechnen.
ActiveWorkbook.Close (True)


End Sub


Public Sub Workbook_Open()
' Funktion zum schliesen der Arbeitsmappe nach 6 Minunten
' Erstellt von Uwe Zweigle (2007)
On Error Resume Next
Dim Pausenlänge, Ende, Gesamtdauer, rest, anzeige, begin
Dim i As Integer
Dim dauer As Integer

dauer = 360
'Dauer bis zum schliesen der Arbeitsmappe
Pausenlänge = dauer ' Dauer festlegen.
p_intStart = Timer ' Anfangszeit setzen.
'Schleifedurchlaufen bis ende erreicht ist
Do While Timer < p_intStart + Pausenlänge
rest = p_intStart + pausenzeit
zeit = Int(dauer - (Timer - rest))
'Anzeige der Restdauer in der Statusleiste

DoEvents ' Steuerung an andere Prozesse abgeben.
For begin = dauer To 0 Step -1
If begin = zeit Then

Application.Caption = "Achtung Arbeitsmappe wird in " & zeit & " sek geschlossen....."
End If
Next begin
Loop
'Rücksetzten der Statusbar
Application.Caption = ""
'Schließen der Arbeitsmappe
ActiveWorkbook.Close (True)




End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
p_intStart = Timer
End Sub