Besondere Listbox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm Label ListBox InputBox MsgBox
Bild

Betrifft: Besondere Listbox von: Herbert
Geschrieben am: 09.04.2005 19:18:26

Hallo zusammen,

nachdem mir vorhin durch Nepumuk so toll geholfen wurde gleich noch eine Frage.
Ich habe in einer Userform eine besondere Listbox, heißt Listview1.
Wie das funktioniert habe ich im web gefunden. Nun hätte ich gern, dass die
Sortierfunktion nur durch mich benutzt werden kann. Kann man die irgendwie
mit einem Passwort oder einem geheimen Schalter freischalten?

Danke für Hilfe

Grüße Herbert(HH)

Bild


Betrifft: AW: Besondere Listbox von: paula
Geschrieben am: 09.04.2005 22:29:44

hallo herbert
Baue diese Zeilen im Ereignis-Makro deiner Listbox


Private Sub ListBox1_Click()
Dim Zugriff_Name
Dim wert
Zugriff_Name = "Herbert"
'
Do
wert = InputBox("Zugriffname eingeben !", "Zugriff")
If wert <> Zugriff_Name Then
    wert = ""
    MsgBox "Nicht berechtigt!"
Else
    ' hier dein Code
End If
Loop Until (wert <> "")
End Sub



Bild


Betrifft: AW: Besondere Listbox von: Herbert
Geschrieben am: 10.04.2005 00:28:14

Hallo,

danke für deinen Vorschlag, aber das ist keinen normale Listbox sondern
ein Listview1.

Grüße Herbert


Bild


Betrifft: AW: Besondere Listbox offen von: Herbert
Geschrieben am: 10.04.2005 00:29:11

H(HH)


Bild


Betrifft: AW: Besondere Listbox offen von: K.Rola
Geschrieben am: 10.04.2005 15:10:11

Hallo,

setzt beim Start des userforms die Eigenschaft sorted auf false.
ListView1.Sorted = False
Beim Mousedown auf ein kleines transparentes Label, dessen Position nur dir bekannt ist,
sorted auf True setzen.
Wenn du Mousedown noch mit einer Tastenkombination versiehst, z.B. alt + umsch + rechte Mausetaste, wird kaum jemand dahintersteigen.

Gruß K.Rola


Bild


Betrifft: AW: Besondere Listbox , danke oT von: Herbert
Geschrieben am: 10.04.2005 15:50:15

oT


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Besondere Listbox"