Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
452to456
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Meldung beim Speichern

Meldung beim Speichern
09.07.2004 21:13:15
Gerald
Guten Abend,
ich suche eine optische Meldung, dass eine Datei gespeichert wird.
In der Statusleiste ist das zu mickrig und wird gern übersehen.
Ich hab auch eine Lösung in der Recherche gefunden, die aber nur
in einem ungeschützten Blatt funktioniert. Aufheben und setzen kann
ich den Schutz aber nicht, weil ich dann wieder gefragt werde, ob die
Änderung gespeichert werden soll. Ich weiß, dass ein echter Fortschritt
der Speicherung kaum möglich ist und darum gehts mir auch nicht.
Ich hoffe, ich hab mich verständlich ausgedrückt und hoffe auf euch.
mfg Gerald

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Meldung beim Speichern
09.07.2004 21:27:22
K.Rola
Hallo,
gut formuliert, versuch mal dies, falls du nicht klarkommst, was ich bei
VBA gut aber nicht glaube, nochmal melden:
''Dieser Code muss ins Modul von "DieseArbeitsmappe
''===========================================================================
Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call make_CB
DoEvents
End Sub

''===========================================================================
''Dieser Code muss in ein Standardmodul
''===========================================================================
Option Explicit
Declare Function Beep Lib "kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long
Sub make_CB()
Const MNAME As String = "Bitte warten, Datei wird gespeichert..."
Dim cb As Object, cbb As Object, z As Long
Set cb = CommandBars.Add(MNAME)
cb.Position = 4
cb.Left = Application.Width / 2 - 120
cb.Top = Application.Height / 2
cb.Visible = True
For z = 1 To 20
Set cbb = cb.Controls.Add(1)
cbb.FaceId = 394
DoEvents
If z = 5 Then Beep 200, 100
If z = 10 Then Beep 250, 150
If z = 15 Then Beep 300, 150
If z = 20 Then Beep 400, 200
Next
On Error Resume Next
CommandBars(MNAME).Delete
End Sub
Gruß K.Rola
Anzeige
AW: Meldung beim Speichern
09.07.2004 21:38:04
Gerald
Hallo Karola,
das ist spitzenmäßig und nun wirklich nicht zu übersehen.
Danke dir und schönen Abend noch.
mfg Gerald
AW: Meldung beim Speichern
09.07.2004 21:37:34
Matthias G
Hallo Gerald,
Erstelle ein Userform mit ShowModal = False, welches eine Speichermeldung enthält.
Dann in DieseArbeitsmappe:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error GoTo err
If Not SaveAsUI Then
Cancel = True
UserForm1.Show
DoEvents
Application.EnableEvents = False
ThisWorkbook.Save
Application.EnableEvents = True
UserForm1.Hide
End If
Exit Sub
err:
Application.EnableEvents = True
End Sub

Gruß Matthias
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige