Info Box

Forumthread: Info Box

Info Box

24.10.2007 19:17:00

Baywatch

Hi
gibt es eine möglichkeit, daß wenn man die excelldatei öffnet für ein paar sekunden eine Infobox angezeigt bekommt wie das Programm heißt wer es geschreiben hat und welche Version es ist?
danke schon einmal
Gruß
Daniel

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Info Box

24.10.2007 19:24:13

mumpel
AW: Info Box

24.10.2007 19:31:56

Beverly
AW: Info Box - Korrektur

24.10.2007 20:09:46

Beverly
Ja, gibt es : per "MsgBox auf Zeit" (WSH)

24.10.2007 19:39:00

NoNet
Alternative

24.10.2007 19:47:00

mumpel
Korrektur

24.10.2007 19:57:09

mumpel

AW: Info Box

24.10.2007 19:24:13

mumpel

Hallo!
Schau mal hier: http://www.online-excel.de/fom/fo_read.php?f=1&bzh=5961&h=5956&ao=1#a123x
Oder im Archiv suchen. Stichwort: Splashscreen
Gruß, Rene

AW: Info Box

24.10.2007 19:31:56

Beverly

Hi Daniel,
versuche es hiermit


Private Sub Workbook_Open()
Dim loI
'   Code von Silvan und DieterB (Clever-Forum.de)
Dim WsShell
Set WsShell = CreateObject("WScript.Shell")
loI = WsShell.Popup("Diese Arbeitsmappe wurde entwickelt von" & vbCrLf _
& "Daniel, Oktober 2007", , "Hinweis")
End Sub

________________________________________

AW: Info Box - Korrektur

24.10.2007 20:09:46

Beverly

Hi Daniel,
sorry, der Code ist nicht ganz richtig. Da fehlt noch ein Wert für die Dauer der Anzeige


Private Sub Workbook_Open()
Dim loI
'   Code von Silvan und DieterB (Clever-Forum.de)
Dim WsShell
Set WsShell = CreateObject("WScript.Shell")
loI = WsShell.Popup("Diese Arbeitsmappe wurde entwickelt von" & vbCrLf _
& "Daniel, Oktober 2007", 3, "Hinweis")
End Sub

Bis später,
Karin

Ja, gibt es : per "MsgBox auf Zeit" (WSH)

24.10.2007 19:39:00

NoNet

Hallo Daniel,
kopiere dazu dieses Makro in das Klassenmodul "DieseArbeitsmappe" im VBA-Editor (Alt+F11) :

Private Sub Workbook_Open()
    'Diese Msgbox erscheint nur für eine vorgegebene Zeitspanne
    'und verschwindet dann wieder
    'erfordert vermutlich installierte WSH-Funktionalität
    'evtl. ist ein Verweis auf "Microsoft Scripting Runtime" erforderlich
    Const bytZeit As Byte = 5 '5 = 5 Sekunden
    Dim objWSH As Object, intMSG As Integer
    Set objWSH = CreateObject("WScript.Shell")
    intMSG = objWSH.Popup("Autor : " & ActiveWorkbook.BuiltinDocumentProperties("Author") & vbLf & _
        vbLf & "Version : " & ActiveWorkbook.CustomDocumentProperties("Version"), bytZeit, _
        ActiveWorkbook.BuiltinDocumentProperties("Title"))
    Set objWSH = Nothing
End Sub

Das Makro zeigt die Informationen an, die unter "Datei - Eigenschaften - Zusammenfassung" als "Titel" und "Autor" angegeben wurden.
Weiterhin zeigt es die benutzerdefinierte Info "Version" an, die es standardmässig nicht gibt, die man also zuvor per "Datei - Eigenschaften - Anpassen" selbst neu anlegen muss !
Die Versionsnummer ist ein fester Wert, d.h. er wird nicht automatisch hochgezählt, das muss man manuell ändern !
Hier eine kleine DEMO :
https://www.herber.de/bbs/user/47064.xls
Das Makro funktioniert natürlich nur, wenn man beim Öffnen die Makros akzeptiert und die Makro-Sicherheit nicht auf "hoch" konfiguriert ist (oder wenn das Makro zertifiziert wurde !).
Gruß, NoNet

Alternative

24.10.2007 19:47:00

mumpel

Als Alternative so etwas. https://www.herber.de/bbs/user/47065.zip

Forumthread: Info Box

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread