herber.de/forum/archiv/1124to1128/t1126

Hallo liebe Leute,
ich bin durch eine Google Suche nach einer Excel Getränkeverwaltung auf dieses Forum aufmerksam geworden. Sehr Interessant. Die Getränkeverwaltung in dem Beitrag von 2010 ist genau das was ich für unseren Dartverein gesucht habe.
https://www.herber.de/forum/archiv/1124to1128/t1126652.htm
https://www.herber.de/bbs/user/67049.xls
Ich weis nicht ob die Helfer von Rosi noch im Forum aktiv sind oder ob mir jemand anderes helfen kann.
Es geht um den Button "jetzt buchen" und "neues Getränk verrechnen", wie erstellt man solche Buttons und kann man diese einzeln Passwortmäßig schützen?
Die Getränkeeingabe macht unser jeweilige Tresendienst, aber Geldbeträge buchen darf nur unser Kassenwart. Ich habe jetzt 2 Tage herumgetüftelt es aber leider nicht hinbekommen. Bin absoluter Neuling in Excel. Leider.
Vielleicht kann mir ja jemand helfen.
Vielen Dank, Gruß Jörg

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
Einfach in Tabelle1 den Code austauschen und das PW etwas sicherer festlegen
Also "0000" durch ein längeres Passwort und auch mit Sonderzeichen definieren.
Als Bsp.
statt: "0000" eben "Fg)%#*+9-"

Private Sub CommandButton2_Click()
Dim rng As Range
If InputBox("Bitte PW eingeben") = "0000" Then
   Application.ScreenUpdating = False
   ActiveSheet.Unprotect
   If Range("Mitglied")  "" Then
    For Each rng In Range("Liste")
        If rng.Value = Range("G18").Value Then
           MsgBox "Neue Zubuchung bei: " & Range("Mitglied").Value & vbLf & Format(Range("H19"). _
Value, "0.00 ") & " werden zugebucht"
           rng.Offset(, 1) = rng.Offset(, 1) + Range("Zubuchung")
           rng.Offset(, 2) = rng.Offset(, 2) + Range("Zubuchung")
           Range("Mitglied") = ""
           Range("Getränk") = ""
           Exit For
        End If
    Next
   End If
   ActiveSheet.Protect
   Application.ScreenUpdating = True
Else
  MsgBox "Falsches Passwort"
End If
End Sub

Wie bereits gesagt ist das ja alles nicht Sicher
Das Blatt muss geschützt werden, das VBA-Projekt muss geschützt sein.
Und trotzdem ist da nichts sicher!
Dann musst Du wissen, das wenn jemand hinter Dir steht er Live das PW aus der Inputbox ablesen "könnte"
Könnte man mit UserForm und Textbox lösen die eine Eigenschaft besitzt alle Eingaben als Sternchen zu zeigen.
Kann man einen Mitgliedernamen mit einem ihm zugeordneten Code verbinden so das dieser den Kauf seines Getränks bestätigen muss?

Ja auch das ist machbar, nur ob sich der Aufwand lohnt, ich weiß es nicht.
Mein Fazit war auch schon damals, es gibt nur einen der Zugriff auf die Datei hat
Somit wären schon im Vorfeld alle Unklarheiten beseitigt.
Gruß Matthias

Beliebteste Forumthreads (12 Monate)

herber.de/forum/archiv/1124to1128/t1126

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

herber.de/forum/archiv/1124to1128/t1126

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread