AW: MsgBox
11.04.2005 12:32:02
Rene
Hi Uwe,
Leider nicht so richtig.Hier mal mein Code vielleicht verstehst du mich dann besser:
Option Explicit
Sub AnlegenUndHochzaehlen()
Dim var As String
Dim AppName As String, Section As String
Dim Key As String, Passwort As String
Dim ZählerRechner As String
Dim sAbfrage As String
var = GetSetting(AppName:="Micro", Section:="Settings", Key:="Zähler") 'prüft ob Regi-Schlüssel an für Zähler vorhanden ist
If var = "" Then
SaveSetting AppName:="Micro", Section:="Settings", Key:="Zähler", Setting:=1 'legt Reg Schlüssel für Start Zähler an
Sheets("Daten").Range("A2") = 1 'schreibt in die Tabelle
Else
SaveSetting AppName:="Micro", Section:="Settings", Key:="Zähler", Setting:=var + 1 ' zählt jeweils um eins höher
Sheets("Daten").Range("A2") = var + 1 'zählt auch in Tabelle höher
End If
'Abfrage wie lange noch
sAbfrage = GetSetting(AppName:="Micro", Section:="Settings", Key:="Zähler")
MsgBox "Diese Arbeitsmappe wurde das " & vbLf & _
sAbfrage & " mal geöffnet!"
End Sub
Sub Fristprüfen()
Dim Passwort As String
Dim pAbfrage As String
If GetSetting("Micro", "Settings", "Passwort") = "1234567890" Then
Exit Sub
ElseIf Sheets("Daten").Range("A2") > 1 Then ' einstellen wie lange Testversion ist
If Application.InputBox("Der Testzeitraum ist vorbei!" & vbLf _
& "Wenn Du nun das von Rene" & vbLf & "rene@mustermann.de" _
& vbLf & "erhaltene Passwort eingibst, dann kannst du die Tabelle weiter benutzen.", _
"Passwort") = "1234567890" Then
SaveSetting "Micro", "Settings", "Passwort", "1234567890" 'legt Reg Schlüssel für Passwort an
'zweite PW Abfrage
ElseIf Application.InputBox("Das Passwort ist falsch oder es wurde keins eingegeben" & vbLf _
& "Du hast noch 1 Versuch um das richtige Passwort einzugeben,sonst schließt die Tabelle", _
"Passwort") = "1234567890" Then
SaveSetting "Micro", "Settings", "Passwort", "1234567890" 'legt Reg Schlüssel für Passwort an
'ThisWorkbook.Close savechanges:=False
'ThisWorkbook.Saved = True
'If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End If
End If
End Sub
Nun müßte wenn das Passwort stimmt entweder nur die Zählmeldung oder der ganze Code vom hochzählen unterdrückt werden.
Hast du eine Ahnung wie man dieses erstellen müßte?
Gruß Rene