MSGBox, nur 1x für User einblenden

Hallo,
ich habe eine Excelvorlage (.xlt) für mehrere User erstellt. Es stellt sich immer wieder das Problem, wie ich den User über Neuerungen informiere. Dabei würde ich erstmals den Weg über ein popup gehen.
Speziell stelle ich mir vor, dass wenn der User die Datei erstmals aufruft, ein Fenster erscheint, in dem ich die Neuerungen beschreibe. Der User sollte danach 2 Möglichkeiten haben:
1. Mit OK die Meldung schließen, und zwar so, dass diese Meldung bei einem neuerlichen Aufrufen der Datei auch nicht mehr erscheint, für immer verschwindet
2. Mit WIEDERHOLEN die Meldung in diesem Fall schließen, jedoch bei einem neuerlichen Aufrufen der Datei die Meldung automatisch wieder anzeigen lassen
Die User speichern überwiegend die Vorlage nach dem erstmaligen Aufrufen als Exceldatei (.xls) ab.
Könnt Ihr mir helfen???
Gruß an alle
Holger

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Holger,
hier ein Code für deine Aufgabe.
Die Maus über den Excel-Button neben dem Menü "Datei" setzen und mit rechter Maustaste das PopUp-Menü aufrufen. Dort den letzten Punkt "Code anzeigen" anklicken.
Nun im erscheinenden Fenster folgende Code einfügen:


'hier die Änderungen eintragen; mit vbNewline steht jede Änderung in einer
'extra Zeile
Private Const MsgText = "1. Änderungsbeschreibung " & vbNewLine _
& "2. Änderungsbeschreibung" & vbNewLine & "3. Änderungsbeschreibung"
Private Sub Workbook_Open()
Dim showMsg     As Boolean
Dim ret         As Integer
'Die nächsten drei Zeilen löschen, wenn Meldung auch in der abgespeicherten
'Excel-Datei kommen soll. Ansonsten kommt Meldung nur bei Neuanlage einer Excel-
'Datei mit der Vorlage
If Right(ThisWorkbook.FullName, 4) = ".xls" Then
Exit Sub
End If
showMsg = GetSetting("HolgerExcel", "Vorlage", "ZeigeMeldung", True)
If showMsg Then
ret = MsgBox("Die Vorlage wurde in folgenden Punkten geändert: " & vbNewLine & _
MsgText & vbNewLine & vbNewLine & _
"Wollen sie die Änderungen bei nächster Neuanlage wieder anzeigen?", _
vbYesNo + vbInformation, "Änderungen")
If ret = vbNo Then
showMsg = False
Else
showMsg = True
End If
SaveSetting "HolgerExcel", "Vorlage", "ZeigeMeldung", showMsg
End If
End Sub

Nun kannst du deine Vorlage speichern und verteilen. Für jeden User wird die Meldung beim ersten Aufruf angezeigt, und wenn er will, auch bei weiteren Aufrufen der Vorlage. Im eigentlichen Excel-Datei wird die Meldung NIE angezeigt, nur beim Verwenden der Vorlage.

'hier die Änderungen eintragen; mit vbNewline steht jede Änderung in einer 'extra Zeile Private Const MsgText = "1. Änderungsbeschreibung " & vbNewLine _ & "2. Änderungsbeschreibung" & vbNewLine & "3. Änderungsbeschreibung" 'Diese Versionsnummer jedesmal um 1 erhöhen, wenn Vorlage an User versendet wird Private Const XLTVersion = 1 Private Sub Workbook_Open() Dim showMsg As Boolean Dim ret As Integer 'Die nächsten drei Zeilen löschen, wenn Meldung auch in der abgespeicherten 'Excel-Datei kommen soll. Ansonsten kommt Meldung nur bei Neuanlage einer Excel- 'Datei mit der Vorlage If Right(ThisWorkbook.FullName, 4) = ".xls" Then Exit Sub End If If GetSetting("HolgerExcel", "Vorlage", "Version", 0) < XLTVersion Then showMsg = True Else showMsg = GetSetting("HolgerExcel", "Vorlage", "ZeigeMeldung", True) End If If showMsg Then ret = MsgBox("Die Vorlage wurde in folgenden Punkten geändert: " & vbNewLine & _ MsgText & vbNewLine & vbNewLine & _ "Wollen sie die Änderungen bei nächster Neuanlage wieder anzeigen?", _ vbYesNo + vbInformation, "Änderungen") If ret = vbNo Then showMsg = False Else showMsg = True End If SaveSetting "HolgerExcel", "Vorlage", "ZeigeMeldung", showMsg End If SaveSetting "HolgerExcel", "Vorlage", "Version", XLTVersion End Sub

Beliebteste Forumthreads (12 Monate)

MSGBox, nur 1x für User einblenden

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread