Passwortabfrage bevor Button Ausführen

Hallo liebe Excel-Experten,
ich würde gern einen Button schützen, den sozusagen nur jemand benutzen darf, der das Passwort bzw. die dadurch verbundene Berechtigung dazu hat.
Ich weis leider nicht wie ich eine Passwortabfrage in VBA einfliessen lassen kann, welche jedes mal abgefragt wird wenn der Button betätigt wird und diesen nur dann ausführt, wenn der jenige das richtige Passwort eingegeben hat. Könnte mir bitte einer von euch hier weiterhelfen?
Bemerkung: Beim Blattschutz werden die Buttons leider nicht gesperrt und allgemein wäre mir eine Passwortabfrage lieber. Des Weiteren soll dass Passwort auch nicht erkennbar sein wenn man VisualBasic(VBA) öffnet und in den Programmcode schaut. Alternativ könnte man das öffnen von VBA vielleicht mit Passwortabfrage schützen für dieses Problem. Dann müssen aber alle Buttons funktionieren die nicht mit Passwort versehen worden egal ob VBA per Passwort freigeschalten ist oder nicht und daher glaube ich, dass meine Alternativlösung nicht gut ist.
Bin über jede Hilfe froh ^^
Mfg,
Ronny

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Anmelden_Click() If txtPW.Text = "passwort" Then 'Ab hier Code fürs Importieren einbauen Dim DateiName As Variant Dim Quelldatei As String Dim Frage As String ' Quellort und Dateinamen angeben DateiName = "xxx" Frage = MsgBox("Wollen Sie wirklich alle Messwerte vom SRx für dieses Jahr importieren? Alle bestehenden Daten werden aktualisiert!", [vbYesNo]) If Frage = vbNo Then Unload Me Exit Sub Else Workbooks.Open DateiName Quelldatei = ActiveWorkbook.Name ' Ziel- und Quellzellen angeben im jeweiligen Tabellenblatt ' Tmw 1-126 ThisWorkbook.Worksheets("Tmw 1-126").Range("B1:IP371").Value = _ Workbooks(Quelldatei).Worksheets("Tmw 1-126").Range("B1:IP371").Value 'erst Ziel und dann Quelle Workbooks(Quelldatei).Close End If 'Pivottable aktuallisiern und alte Elemente löschen For Each ws In ActiveWorkbook.Worksheets For Each pt In ws.PivotTables pt.PivotCache.Refresh pt.PivotCache.MissingItemsLimit = xlMissingItemsNone Next pt Next ws 'Ab hier Code Importieren Ende Else MsgBox "Passwort ist falsch!", vbCritical, "Achtung" End If Unload Me End Sub

Du platzierst mehrere Schaltflächen auf der UF. Jeder Schaltfläche weist Du den benötigten Code zu. Die UF-aufrufenden Makros definierst Du nach meinem Beispiel so, das immer nur die gewünschte Schaltfläche zu sehen ist.
das kannst Du natürlich auch der Anmelden-Schaltfläche sagen, das die andere(n) Schaltflächen nur dann zu sehen sein sollen, wenn das Paßwort stimmt.
z.B.: Das makro zum aufrufen der UF hast Du ja schon.


Private Sub Anmelden_Click()
If txtPW.Text = "passwort" Then
CommandButton2.Visible True
Else
MsgBox "Das Paßwort ist falsch. Vorgang abgebrochen", vbExclamation + vbOkOnly, "Hinweis"
End If
End Sub


Private Sub CommandButton2_Click()
'Ab hier Code fürs Importieren einbauen
Dim DateiName As Variant
Dim Quelldatei As String
Dim Frage As String
' Quellort und Dateinamen angeben
DateiName = "xxx"
Frage = MsgBox("Wollen Sie wirklich alle Messwerte vom SRx für dieses Jahr importieren? Alle bestehenden Daten werden aktualisiert!", [vbYesNo])
If Frage = vbNo Then
Unload Me
Exit Sub
Else
Workbooks.Open DateiName
Quelldatei = ActiveWorkbook.Name
' Ziel- und Quellzellen angeben im jeweiligen Tabellenblatt
' Tmw 1-126
ThisWorkbook.Worksheets("Tmw 1-126").Range("B1:IP371").Value = _
Workbooks(Quelldatei).Worksheets("Tmw 1-126").Range("B1:IP371").Value 'erst Ziel und dann Quelle
Workbooks(Quelldatei).Close
End If
'Pivottable aktuallisiern und alte Elemente löschen
For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.PivotCache.Refresh
pt.PivotCache.MissingItemsLimit = xlMissingItemsNone
Next pt
Next ws
'Ab hier Code Importieren Ende
Else
MsgBox "Passwort ist falsch!", vbCritical, "Achtung"
End If
Unload Me
End Sub

Gruss Rene

Beliebteste Forumthreads (12 Monate)

Passwortabfrage bevor Button Ausführen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Passwortabfrage bevor Button Ausführen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread