userForm
28.03.2005 10:52:50
Bryan
ich möchte das beim öffnen meiner datei eine UF mit einer Checkbox (mit dem Text:"Später erinnern")erscheint.
die uf soll bei jedem öffnen der datei öffnen, es sei denn der anwender aktivierte bei einem früheren öffnen die Checkbox, dann soll die UF erst nach 14 Tagen wieder erscheinen und dann auch wieder bei jedem öffnen, bis wieder die Chekbox aktiviert wird.
Ich habe von K.Rola folgenden lösungsweg erhalten (wofür ich nochmal recht herzlich bedanke) aber der funkt nich so richtig.
Entweder die UF erscheint immer, oder gar nicht egal ob ich die Box aktiviere oder nicht, und wenn die box aktiviert wird erscheint die UF auch nicht mehr. ich habs mit verschiedenen Startdaten und Intervallen versucht aber leider ohne erfolg.
Ich hoffe es kann mir jemand weiterhelfen:
Hier der code und/oder die Datei:
Im Modul:
Option Explicit
Public Const NIX As String = "NomoreDisplay"
'Hier festlegen, nach wieviel Tagen die Meldung erneut erscheinen soll.
Public Const INTERVAL As Long = 1
In der Arbeitsmappe:
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not Me.Saved Then Me.Save
End Sub
Private Sub Workbook_Open()
'Hier dein Startdatum definieren.
Const STARTDATUM As String = "25.03.2005"
If (CLng(Date) - CLng(DateValue(STARTDATUM))) Mod INTERVAL = 0 Then
If Me.CustomDocumentProperties(NIX).Value = False Then
UserForm1.Show
End If
End If
End Sub
Die Datei:
https://www.herber.de/bbs/user/20123.xls
danke und gruss Bryan