No video

Login Form mit Benutzername und Passwort erstellen | Excel VBA

  Рет қаралды 38,429

Kai Weissmann

Kai Weissmann

Күн бұрын

Damit unterschiedliche Benutzer Zugriff auf unterschiedliche Dinge in unserer Arbeitsmappe bekommen, erstellen wir ein Benutzer Login bzw. eine Benutzerverwaltung. Das bedeutet, dass der Benutzer sich mit Benutzername und Passwort anmelden muss (Passwortabfrage), bevor er Zugriff auf unsere Anwendung bekommt.
Mithilfe einer Zugriffsrechtetabelle überprüfen wir, welcher Benutzergruppe der Benutzer zugeordnet ist. Und je nach Benutzergruppe bekommt der Benutzer Zugriff auf alle Tabellen in der Arbeitsmappe, wenn er bspw. Admin ist, oder nur auf Teile der Arbeitsmappe.
Download der Lagerverwaltung: vbatrainer.de/...
Kostenloser VBA-Einstiegskurs: vbatrainer.myk...
VBA-Coaching: www.vbatrainer...
Zum Blogbeitrag: vbatrainer.de/...
________
LINKS zu den Videos
► Lagerverwaltung: • Lagerverwaltungs-Anwen...
► If Anweisung: • Die IF THEN ELSE Anwei...
► Tabellenblätter einblenden: • Alle Tabellenblätter m...
________
Timestamps
0:00 Ziel des Videos
1:18 Login UserForm mit Benutzername+Passwort erstellen
13:58 Zugriffsrechte vergeben
17:55 Code ausführen beim Öffnen
18:30 Tabellenblätter ausblenden
21:17 Schließen über X verhindern
23:14 Benutzername suchen
26:29 Passwort überprüfen
28:43 Zugriff auf ausgeblendete Tabellenblätter

Пікірлер: 138
@junjor
@junjor Жыл бұрын
Vielen Dank für das Aufarbeiten dieses sehr nützlichen Themas! Absolut klasse erklärt - wie immer :)
@KaiWeissmann
@KaiWeissmann Жыл бұрын
sehr gerne!
@jannes_otti_12otto36
@jannes_otti_12otto36 8 ай бұрын
Hallo Kai. Ein großes Lob und Dankeschön für deine gute Videosammlung. Alle Schritte werden genau Erklärt und nicht nur durchgeführt und vorallem immer wieder behandelt. Was mich noch interessieren würde, ob man, weil jeder hat denn Benutzernamen = Mailadresse und als Passwort ein Startpasswort (z.B. 2023) und diesem beim ersten mal in ein persönliches Passwort ändern kann. Ein schönes Weihnachtsfest und einen guten Rutsch ins neue Jahr. Mach weiter so, da es mit Abstand die besten Excel-Erklärvideos sind
@KaiWeissmann
@KaiWeissmann 8 ай бұрын
Das sollte grundsätzlich möglich sein. Z.B. If Passwort = 2023 then Passwort neu setzen mit eigener UserForm. Hoffe das hilft dir weiter.
@jannes_otti_12otto36
@jannes_otti_12otto36 8 ай бұрын
Danke. Hört sich einfach an, aber wird sicherlich nicht einfach.
@kaih.7613
@kaih.7613 Жыл бұрын
Juhu auf das hab ich schon gewartet..Danke.
@marcogartner3308
@marcogartner3308 Жыл бұрын
Einfach nur der Wahnsinn...bin wie immer total begeistert. Irgendwie habe ich das Gefühl, man wird nie fertig mit seinem Projekt, da Du immer wieder was nützliches erklärst und man es direkt in seine Anwendung einbauen möchte 🙂 LG Marco
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Danke für das Lob! Viel Erfolg bei deinen Projekten.
@johnmayer4936
@johnmayer4936 Жыл бұрын
Hallo Kai, ich staune immer wieder über dein umfangreiches Background-Wisen, was man sich bestimmt nicht in ein paar Tagen anliest. Kannst du auch mal ein Video erstellen, welches doppelte Werte schon im Eingabeformular moniert und den User darauf hinweist, bevor er die Daten in die Datenbank zurückschreibt? Ich wünsche dir alles Gute und vor allem Gesundheit im neuen Jahr!
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Danke für dein nettes Kommentar. Den Videovorschlag nehme ich gerne in die Ideensammlung mit auf. Dir auch einen guten Rutsch ins neue Jahr.
@skyte61
@skyte61 Жыл бұрын
Sehr gute Arbeit, alles ist ausführlich erklärt und wird auch nicht langweilig. 👍
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Danke für das Lob!
@skyte61
@skyte61 Жыл бұрын
@@KaiWeissmann Als Quereinsteiger und ohne Englischkenntnisse ist diese Art der Wissensvermittlung für mich von Vorteil, weil Grundlagen, die mir zum Teil fehlen, hier mit erläutert werden. Danke nochmals und weiter genau so...😉
@paulrulck8967
@paulrulck8967 Жыл бұрын
Einfach super wie du das alles erklärst in deinen Videos. Verständlich und nachvollziehbar das ganze. Weiter so . Alles Gute fürs neue Jahr
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Vielen Dank für dein nettes Kommentar. Dir auch alles Gute für 2023.
@aixot_3073
@aixot_3073 Жыл бұрын
Hallo Kai, zwei Ergänzungen: Ich würde das Blatt mit den Zugriffsrechten noch umbenennen und außerdem nur für den Admin einblenden - ansosten könnte ja der Testnutzer auch die Zugriffsrechte ändern. Danke für Deine Videos - problem- und lösungsorientiert und sauber programmiert. Gefällt mir!
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Danke für deine Ergänzungen. Mir geht es in meinen Videos hauptsächlich um den "Lösungsweg" oder eben Möglichkeiten aufzuzeigen. Die Ausblendung des entsprechenden Tabellenblatts als Benutzer ist natürlich absolutes Muss!
@nospambroker
@nospambroker Жыл бұрын
Kai, das war - wie immer - ein mega gutes Video. Vielen lieben Dank, das werde ich bestimmt demnächst mal umsetzen. *Klugscheißermodus an* Das Tabellenblatt mit den Zugriffsrechten hätte man natürlich statt 'Produkte(2)' auch noch anders benennen können und vor allem beim Testbenutzer auch ausblenden müssen, damit er sich nicht die Kennungen und Passwörter anschauen kann. Aber diese Transferleistung wird wohl hoffentlich jeder erbringen, der Deinen Code nachbaut. Wie gesagt .... mega !!!!
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Danke für dein nettes Kommentar. Ja, das Tabellenblatt hätte natürlich ausgeblendet werden müssen beim "Benutzer-Login". Danke für den Hinweis.
@thorstenbaatz3273
@thorstenbaatz3273 Жыл бұрын
Hallo Kai einen guten Rutsch ins neue Jahr mit viel viel Gesundheit und Tatendrang der Kommune weiterhin mit so tollen Videos zu versorgen. Einen kleinen bzw. dem Thema nach ist kein kleiner Wunsch.....gerne würde ich von dir im kommenden Jahr etwas über Klassen lernen...ansonsten wie immer von Dir eine sehr schöne Erklärung und so vielseitig anwendbar...also dir alles Gute und Danke für deine Mühe...
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Danke für deinen netten Kommentar. Ich nehme das gerne in die Ideensammlung mit auf. Dir auch einen guten Start ins neue Jahr.
@baboom6551
@baboom6551 Жыл бұрын
Sehr gut erklärt. Top arbeit kai!
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Vielen Dank!
@mglauser
@mglauser Жыл бұрын
Hi Kai. Kooles Video wie meistens. Ich sehe nur ein Problem daran. Man Sollte Passwörter nie im Klartext speichern. Gibt es eine Verschlüsselungs Methode in excel welche das Verschlüsselte Passwort in die Nutzerdaten schreibt? Beispiel MD5 oder so?
@jozeh2176
@jozeh2176 6 күн бұрын
@kai wie verhält sich der VBA Code, wenn man mit mehreren gleichzeitig auf einer Excel arbeitet? Werden dann auch bei den anderen die entsprechenden Tabellenblätter ausgeblendet, während sie damit arbeiten?
@KaiWeissmann
@KaiWeissmann 5 күн бұрын
Hallo, es ist etwas komplizierter Excel Dateien mit Makros mit mehreren Personen gleichzeitig zu nutzen. Ich würde empfehlen dafür lokale Kopien der Excel-Datei zu erstellen, die jeder einzeln nutzt. Die Daten werden dann in eine Datenbank ausgelagert. Da das Thema wie gesagt etwas komplexer ist, behandle ich das auch in meinem ausführlichen Onlinekurs: vbatrainer.de/onlinekurs/ LG Kai
@holgergollnitz4275
@holgergollnitz4275 2 ай бұрын
echt Klasse, vielen Dank
@KaiWeissmann
@KaiWeissmann 2 ай бұрын
Danke für das Lob!
@farmerandy568
@farmerandy568 Жыл бұрын
Hallo Kai. Wieder einmal ein lehrreiches Video von Dir. Eine Frage habe ich aber zur Vergabe der Passwörter. Ist es auch möglich, das der entsprechende User das Passwort selber über die Userform eingibt und ändern kann? Als Admin müsste es ja dann auch möglich sein auf der Benutzerseite diese einsehen zu können.
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Ja, das ist natürlich möglich. Sauberer würde es aussehen, wenn dafür eine eigene UserForm angelegt ist. Per Klick auf "Passwort ändern" wird diese angezeigt und bei Eingabe des korrekten Passwortes muss dann z.B. 2 mal das neue Passwort eingefügt werden. Wenn diese beiden neuen gleich sind, dann wird das neue Passwort eben in die "Benutzer-Tabelle" eingetragen. Hoffe das hilft dir weiter. Lg, Kai
@farmerandy568
@farmerandy568 Жыл бұрын
@@KaiWeissmann Ja, Das hilft mir weiter. Werde mich dann mal daran setzen, ob ich es schaffe, steht auf einem anderen Blatt ;-)
@UmformerKG
@UmformerKG Жыл бұрын
Hallo Kai. Ich habe Mal was ähnliches gebastelt. Habe da aber beim Start der Datei den Benutzer ausgelesen und in die Datei geschrieben. Von dort aus habe ich dem Benutzer dann die entsprechenden Rechte vergeben. Das erspart mir die Verteilung von Passwörtern.
@gerdmuster4541
@gerdmuster4541 Жыл бұрын
Vielen Dank, einfach tolles Video!
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Sehr gerne!
@hanspeter870
@hanspeter870 Жыл бұрын
Hi Kai, bin vor Kurzem auf dich gestoßen, da ich mich zur Zeit etwas mit VBA beschäftige und bin ein großer Fan!! Dein Video zum Kopieren von Daten aus einer geschlossenen Datei hat mir extrem geholfen:) Eine Frage dazu: Ist es möglich das Ganze einen Schritt weiter zu führen? Dass man Inhalte eines Ordners (mit zB drei verschiedene Dateien) in eine Datei kopiert? Und zwar auch so, dass die Dateien innerhalb des Ordners ausgetauscht werden können, also dass bspw neue Dateien hinzukommen, andere den Ordner verlassen, aber durch den VBA Befehl stets die aktuell im Ordner gelagerten Dateien in eine neue Datei kopiert werden können? Wäre klasse, wenn du mir da helfen könntest!! Mach weiter so, viele Grüße und erstmal nen frohes Neues:)
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Danke für dein Kommentar! Vielleicht hilft dir mein Video zum Thema Dateien aus Ordner und Unterordner auslesen wetier: kzfaq.info/get/bejne/n9WFgpqArpi0cZc.html Alles Gute für deine Projekte.
@Jirayaa
@Jirayaa Жыл бұрын
mega guuut erklärt 👍👍👍👍
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Danke für das Lob!
@TubeWatcher935
@TubeWatcher935 Жыл бұрын
Eine simple Benutzerverwaltung! Interessante Lösung. Verschlüsselte Passwörter wären gut. Das ginge wohl nur, wenn man die Verwaltung der Benutzer auch über VBA löst... Bei den Meldungen beim Login sollte man einem Unbefugten so wenig Hinweise geben, wie möglich. Wenn dieser schon einen Hinweis erhält, dass nur das Passwort falsch ist, weiß er, dass der Benutzername richtig ist.
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Danke fürs Feedback!
@flightdeckwithniklas
@flightdeckwithniklas 4 күн бұрын
Was ein top Video, vielen Dank dir!😊 Eine Frage habe ich: wie Stelle ich sicher, wenn ich die Datei z.b. verschicke, dass der gleiche Nutzer nicht von verschiedenen Personen auf der Welt verwendet wird? Ein Ablaufdatum habe ich schon mit in die Benutzertabelle eingebaut, aber prüfen, dass niemand sonst außer der entsprechende Nutzer den Login verwendet, klingt schwierig. Vielen Dank!
@KaiWeissmann
@KaiWeissmann 2 күн бұрын
Hallo, eine erste Idee wäre, dass du den aktuell in Microsoft angemeldeten Benutzer ausliest und dieser mit dem Benutzernamen übereinstimmen muss. Eine weitere Idee wäre eine Datenbank im Internet, die prüft, wo und wann sich Leute anmelden. Wenn sich mehrere Personen mit dem selben Benutzernamen anmelden, kannst du das so nachverfolgen und entsprechende Maßnahmen (Anmeldung verweigern) durchführen. Letztere Möglichkeit ist sicherer, aber auch komplexer. LG Kai
@flightdeckwithniklas
@flightdeckwithniklas 2 күн бұрын
@@KaiWeissmann hallo Kai, vielen Dank für die schnelle Antwort. Ich habe es jetzt tatsächlich ganz einfach gelöst, in dem ich (über eine weitere Spalte in der Benutzertabelle) die Seriennummer der Festplatte des PCs abfrage, sprich jeder Nutzer kann auch nur ein Gerät haben bzw. sich nur auf einem Gerät anmelden. Für meinen Zweck zum limitierten verteilen der Datei genau richtig.
@KaiWeissmann
@KaiWeissmann Күн бұрын
Super, freut mich, dass du es so lösen konntest! LG Kai
@ninijusan2906
@ninijusan2906 Жыл бұрын
Hallo Kai, Ein frohes und gesundes neues Jahr dir erstmal. Vielen Dank für die super Erklärung. Echt schönes Video. Werde ich mir für meine Arbeitsmappe auch mal (nach)bauen. Mit der arbeite ich zwar alleine, aber einfach nur, weil man es kann. 😀 Eine Frage nur: Warum das Bild als Button und nicht einfach ein (Command-)Button?
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Das Bild als Button, um einmal etwas Abwechslung zu haben und um freiere Gestaltungsmöglichkeiten aufzuzeigen.
@steffenendress3444
@steffenendress3444 Жыл бұрын
Hi, erstmal vielen Dank für die tollen Videos! Aber könntest du deine Videos sortieren? Bzw kategorisieren? Leider ist es immer sehr verwirrend das passende Video zu finden… Bitte mach weiter finde deine Erklärungen sehr gut☺️
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Ich mache mir zum Videos sortieren gerne mal Gedanken. Lg, Kai
@user-jz1yh5bi6g
@user-jz1yh5bi6g 7 ай бұрын
Hallo Kai, Dein Beitrag hat mir so gut gefallen, dass ich diese Lösung sofortadaptieren und in meine aktuelle Lösung einbauen wollte. Kann es sein, dass diese Lösung nur mit Office 2016 oder höher einsetzbar ist. Ich habe es in Excel 2013 versucht und bekomme diverse Fehlermeldungen. Hast du die Lösung auch schon einmal unter Excel 2013 laufen lassen?
@canalegrande3525
@canalegrande3525 Жыл бұрын
Mal wieder ein top Video. So macht lernen Spaß. Eine Frage nur: Wie bekommst Du die Userforms so schön abgerundet in der Darstellung hin? Chat GPT hat mir dafür nur nen komplizierten API Zugriff über Windows API präsentiert. Geht das auch einfacher?
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Das kommt mit Windows 11 automatisch.
@kolavithonduraski5031
@kolavithonduraski5031 Жыл бұрын
was gibt es für Möglichkeiten, dass so eine Tabelle von mehreren Benutzern gleichzeitig genutzt wird?🤔 (vielleicht ein Thema für ein neues Video?) In Unternehmensumgebungen ist z.B. nicht immer Onedrive freigeschaltet😕
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Ganz so Allgemein kann ich das nicht beantworten, da das stark von deinen Bedürfnissen und Ideen mit der Anwendung abhängt. Größere Anwendungen entwickle ich meist mit Excel als Front-End und einer Access Datenbank als Backend, in der die Daten gespeichert werden.
@kolavithonduraski5031
@kolavithonduraski5031 Жыл бұрын
@@KaiWeissmann danke für die Antwort! Ich habe auch daran gedacht, aber dafür kenne ich mich zu wenig in SQL und Access aus. Dann habe ich auch an eine mysql Datenbank gedacht, aber SQL wieder... Ich werde das irgendwie durch Importierung und Exportierung von daten in Excel lösen müssen. (es ist eine grosse Tabelle mit Zeilen die Projekte widerspiegeln und Spalten bzw. Zellen die verschiedene Projektdaten beinhalten. Also auch per se nix für eine relationelle Datenbank) Aber besten Dank für den Tipp und einen guten Start ins neue Jahr !
@dersteffen835
@dersteffen835 Жыл бұрын
Man kann Exceltabellen für mehrere Nutzer freigeben. Dann können mehrere Nutzer darin arbeiten. Das ist leider nicht ganz so einfach, wie es klingt. Nutzt ein User die Tabelle nicht wie erwartet, kann es passieren, dass Änderungen anderer Nutzer weg sind, zum Beispiel bei Speichern unter statt Speichern oder Konflikte wegen unterschiedlicher Eingabe in die selbe Zelle falsch gelöst. Es geht also, ist aber nicht ideal. Access ist für solche Fälle meist die bessere Wahl. Zudem werden Änderungen Anderer erst beim Speichern sichtbar, nicht sofort wie bei Onenote!
@kolavithonduraski5031
@kolavithonduraski5031 Жыл бұрын
@@dersteffen835 besten Dank für die Infos 😊👍 Ja... es ist alles suboptimal, deswegen werde ich wahrscheinlich eine Excel-Tabelle irgendwo im "backend" ablegen. Diese wird dann befüllt von verschiedenen Seiten. Es gibt glaube ich auch eine Möglichkeit die Tabelle in geschlossener Form zu bearbeiten. Man muss also nicht unbedingt eine Excel-Mappe öffnen und schliessen.... mal schauen ob das klappt 😂🤦‍♂️
@martinlammers6264
@martinlammers6264 Жыл бұрын
Passt vielleicht hier gerade zum Thema. Ich entwickle gerade ein Kalkulationsformular mit Excel und VBA. Wie löst ihr das Bereitstellen im Unternehmensnetzwerk bzgl. der Makros? Die Datei liegt später auf einem Fileserver und der Benutzer greift über ein Nezwerklaufwerk zu. Bzw. wie würde man eine Excel-Datei mit Makros über One-Drive nutzen?
@ArneBuettner
@ArneBuettner Жыл бұрын
Klasse gemacht! 🙂
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Vielen Dank!
@MDRR1960
@MDRR1960 7 ай бұрын
Hallo Kai, ich habe die Login-Eingabe 1:1 abgetippt. Im Prinzip funktioniert das auch so. Ich habe vier Einträge von denen leider nur zwei funktionieren. Bei den anderen zwei bekomme ich die MSG-Box, dass das Passwort nicht korrekt ist. Woran kann das liegen? Für eine kurze Antwort wäre ich schon sehr dankbar. LG Manfred
@user-bz2fc4zs9g
@user-bz2fc4zs9g 8 ай бұрын
Hallo Kai - mal wieder ein sehr wertvolles Video. Bin echt beeindruckt. Hättest du einen Tipp, wie man jetzt den Benutzer Login mit dem Beitrag "Hamburger Menü" kombiniert. Dazu müsste ja das Hamburger Menü dynamisch, entsprechend der Benutzerfreigabe nur diese Tabellenblätter anzeigen. Oder alternativ eine msgBox anzeigen, wenn man versucht ein gesperrtes Tabellenblatt über die Menüleiste zu öffnen. LG Ralf
@KaiWeissmann
@KaiWeissmann 8 ай бұрын
Vielen Dank für deinen Kommentar. Aufgrund vieler Anfragen, kann ich diese momentan leider nicht beantworten. Vielleicht hilft dir mein Video "KI beantwortet Fragen": kzfaq.info/get/bejne/gdJpqcZzmMvOl58.html Ich wünsche dir für deine Projekte alles Gute.
@shorebreak
@shorebreak Жыл бұрын
Hallo Kai! Einfach super dein Video und bringt mich auf weitere/neue Ideen. Besteht die Möglichkeit, dass das Login auch ein Filter im Tabellenblatt ist? Zum Beispiel habe ich 10 Mitarbeiter und jeder soll nur seine Statistik/Zahlen sehen. Wenn das Login MA1 ist so soll es nur die Daten im Pivot von MA1 anzeigen (filtern), bei MA2 nur seine, etc. Alternativ wäre für jeden ein Tabellenblatt zu machen und alles andere ausblenden. Denke, hier gibt es sicher eine einfachere/saubere Art die zu machen.
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Ich denke du kannst hier mit einem Filter arbeiten, der je nach angemeldeter Person filtert. siehe dazu mein Video: kzfaq.info/get/bejne/p9dgdZh618unZ2w.html Hoffe das hilft dir weiter. Lg, Kai
@matthiaskraeft5797
@matthiaskraeft5797 6 ай бұрын
Hallo Kai, ich habe das Login Form genauso angelegt. Trotzdem habe ich permanent Fehlermeldungen, dass das Passwort nicht korrekt ist oder der Benutzername nicht angelegt ist. wo könnte der Fehler liegen?
@janse79xl
@janse79xl 6 ай бұрын
Hey Kai, deine Videos sind wirklich sehr hilfreich und haben mich weit gebracht. Zum Abschluss meines Programms wollte ich noch dieses Login einbauen. Hat prima geklappt, vermutlich habe ich mich bei der Passwortvergabe vertippt, Groß- und Kleinschreiben habe ich schon durchgespielt. Komme nur noch auf meine Startseite und habe mich quasi ausgesperrt. DPB Wert verändern habe ich schon versucht, aber das hilft mir hier nicht weiter. Kann man da noch was retten?
@GrohmullerGmbH
@GrohmullerGmbH Ай бұрын
Wenn Excel hängt und du dich „ausgesperrt“ hast, hilft Strg + Pause (ggf. länger drücken)
@johnmayer4936
@johnmayer4936 Жыл бұрын
Hallo Kai, ich finde dieses Tool super, aber kann ich im Feld "txtPasswort" nur reinen Text, aber keine Kombination aus Text und Zahlen verwenden. Wo müsste ich das im Code ändern?
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Du kannst in einer Textbox auch Zahlen und Sonderzeichen einfügen. Der Code muss dafür nicht geändert werden.
@rolandkabinger9741
@rolandkabinger9741 6 ай бұрын
Hallo, ich hab’s bis 21:51 gemacht…jetzt hab ich eine Exceldatei die ich nicht mehr schließen kann, weil nichts reagiert und VBA kann ich auch nicht öffnen…kann mir wer helfen?
@rosenrot6729
@rosenrot6729 Жыл бұрын
Hi Kai, vielen Dank. Das Thema Login ist super. Ich hätte eine Anmerkung, wäre toll, wenn sich die Icon auch ausblenden. Z.B. Produkte (Stift) zum Anlegen. Darf Nutzer nur gucken, dann sollte der Stift ausgeblendet werden. Wäre gut.
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Die Funktion kannst du natürlich beliebig erweitern und eben auch Icons etc. Ein und Ausblenden. Am Tabellenblatt per Alt+F10 kommst du in die Grafikauswahl. Hier kannst du den Namen des Icons sehen bzw. bearbeiten. Im Code dann z.B. Tabelle1.Shapes ("Stift"). Visible = False zum ausblenden. Vielleicht hilft dir auch mein Video zur selbst designten Messagebox weiter: kzfaq.info/get/bejne/aMB_dM5lzMq0moE.html
@rosenrot6729
@rosenrot6729 Жыл бұрын
Vielen Dank, tu mich schwer aber lerne immer mehr durch Deine Videos. Super, Kai.
@simon479
@simon479 Жыл бұрын
Vielen Dank für die super Erklärung. Ich habe eine Frage: Mit welchem Befehl könnte ich denn Gruppierungen auf der Startseite ausblenden, damit die von den Benutzern nicht als Link angeklickt werden können ? Habe verzweifelt gesucht, welchen Befehl ich bei der Bedingung unter dem Benutzer da eingeben muss (wenn er erkennt, dass es ein Benutzer ist) Würde mich riesig über eine Antwort und ggf eine Hilfe freuen.
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Mit Alt+F10 kommst du am Tabellenblatt in die "Bilder/Grafiken"-Auswahl. Hier findest du jedenfalls die entsprechenden Namen der jeweiligen Gruppierung. Per VBA kannst du dann eine If-Bedingung erstellen, und je nach Benutzergruppe dann verschiedene Gruppierungen ein oder Ausblenden. Das sollte funktionieren über: ActiveSheet.Shapes.Range(Array("Grafikname")).Visible = msoFalse zum ausblenden und msoTrue zum einblenden. Ich hoffe das hilft dir.
@simon479
@simon479 Жыл бұрын
Vielen Dank für die Antwort. Das hat wunderbar funktioniert. Leider habe ich jetzt nur das Problem, dass wenn ich mich als Admin anmelde und dann die Arbeitsmappe schließe die Gruppierungen zunächst angezeigt werden und dann verschwinden. Ebenso startet die Arbeitsmappe ja leider immer auf der Seite wo gespeichert wurde. Ich habe versucht das ausblenden in die Prozedur bei der Arbeitsmappe workbook Open einzufügen, allerdings fehlt mir die Fähigkeit den richtigen If Befehl zu verwenden. Für die verschiedenen Benutzergruppen hat alles funktioniert
@simon479
@simon479 Жыл бұрын
Aber ich möchte kurz noch etwas zu den Videos sagen: Ich wollte mich schon immer an VBA wagen und habe es mich nie getraut bis vor 2 Wochen. Das aber auch nur aufgrund deiner Videos, da sie richtig gut erklärt sind und der Zuhörer zugleich eine Info erhält, was mit dem Code im Hintergrund passiert. Ich finde das muss auch Mal gesagt werden wie gut die Videos einen das Thema vba in Excel vermitteln.
@benjaminbennewitz4511
@benjaminbennewitz4511 10 ай бұрын
Hallo Kai, auch von mir ein Lob für dieses TUT, einfach nur Klasse, gut erklärt und einfach nachzubauen. Gäbe es denn auch die Möglichkeit nach dem erfolgreichen Login den user zu begrüßen? Also ich meine, wenn man sich jetzt eingeloggt hat und man sich auf dem Start Arbeitsblatt befindet das dann da steht, Hallo Kai, oder Hallo User1 etc. Habe selbst schon etwas rumprobiert aber es nicht geschafft, bei mir steht immer nur der Spaltenname(Überschrift) anstatt dem Benutzername der sich gerade angemeldet hat. Für einen Tipp wäre ich dir sehr dankbar.
@KaiWeissmann
@KaiWeissmann 8 ай бұрын
Vielen Dank für deinen Kommentar. Aufgrund vieler Anfragen, kann ich diese momentan leider nicht beantworten. Vielleicht hilft dir mein Video "KI beantwortet Fragen": kzfaq.info/get/bejne/gdJpqcZzmMvOl58.html Ich wünsche dir für deine Projekte alles Gute.
@schwabenpaule478
@schwabenpaule478 6 ай бұрын
Hallo Kay, du bist der Suoer Excelheld. Hast du vielleicht ein Video wo Erklärt wir wie man zb über die Userform sich als admin bzw user anmelden kann wo das Menü etc ausgeblendet wird. Du hast da schon mal was gemacht aber da hast du keine Userform verwendet. Also über die userform als admin alles da und als user nichts da kein ne Werkzeuge..... Das wäre Mega. Gruß Paul
@thomasbaldauf3601
@thomasbaldauf3601 Жыл бұрын
Video: Login Form mit Benutzername und Passwort erstellen | Excel VBA was mache ich wenn ich den teil mit den tabellen falsch gemacht habe und jetzt nicht mehr auf meine Blätter komme??? Habe das bei einer Firmendatei gemacht - und komme nicht mehr rein!!! hilfee
@kaistemmler60
@kaistemmler60 Жыл бұрын
Super Video. Kann man jetzt auch noch etwas einbauen wie zum Beispiel "Passwort vergessen". So das man dann ein neues Passwort vergeben kann und sich dieses in der Tabelle der Benutzerzugriffe aktualisiert?
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Ja, das geht natürlich. Du kannst auch eine "Sicherheitsabfrage" hinzufügen, wenn auf den "Passwort vergessen" Button geklickt wird. z.B. Geburtstag des Benutzers oder ähnliches. Wenn das korrekt eingegeben wird, kann das Passwort eben "überschrieben" werden. (Dazu muss natürlich die Antwort der Sicherheitsfrage ebenfalls in der Tabelle eingetragen sein) Lg, Kai
@MrRadlertom
@MrRadlertom Жыл бұрын
Einfach K L A S S E ! ! ! 👍
@user-ql7uo2ke4t
@user-ql7uo2ke4t Жыл бұрын
Hallo Kai für mich als Nutzer ein sehr gelunges Video. Ich habe alles so gemacht wie du beschrieben hast und es funktioniert sehr gut. Ich habe dazu noch eine Frage: kann ich den Benutzernamen in ein Tabellenblatt (Log) eintragen lassen?
@GrohmullerGmbH
@GrohmullerGmbH Ай бұрын
Das geht. Du ermittelst die Nummer der letzten beschrifteten Zeile auf deiner Logtabelle in einer Variablen z.B. i ( i = sheets(„Log“).Cells(Rows.Count, 1).End(xlUp).Row ) und dann trägst du den Namen in die erste freie Zelle der Spalte A ein mit Sheets(„Log“).Cells(i+1, 1).Value = Application.UserName
@user-ql7uo2ke4t
@user-ql7uo2ke4t Ай бұрын
Danke für die Hilfe
@PeterPan-tb2ju
@PeterPan-tb2ju Жыл бұрын
31:02 wie rückt man wieder zurück ein? Einrücken mit Tab, aber zurück habe ich noch nicht raus gefunden.
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Das sollte mit Shift+Tab funktionieren.
@PeterPan-tb2ju
@PeterPan-tb2ju Жыл бұрын
@@KaiWeissmann werde es ausprobieren, vielen Dank!
@christianvogl2444
@christianvogl2444 Жыл бұрын
Hallo Kai Wie immer toll erklärt und genau zum richtigen Zeitpunkt. Ich habe nur 1 Problem. Ich habe für mein Projekt mehrere Excel-Dateien mit diesem Login. Wenn 1 offen ist, geht das before close und open nicht, auch die Userform zum Login wird nicht angezeigt beim Öffnen der 2. Datei. Was muss ich dafür ändern?
@christianvogl2444
@christianvogl2444 Жыл бұрын
Problem ist scheinbar gelöst
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Hey Christian, freut mich, dass du das Problem lösen konntest! LG Kai
@cologneorange
@cologneorange 6 ай бұрын
Echt tolles Video - vielen Dank. Gibt es eine "Notfall" Freigabe? Ich starte die Userform Login und hatte irgendwo einen Fehler und ich komme in den Debug-Modus. Allerdings schließt sich die Tabelle direkt, nachdem ich versuche zu debuggen. Ich kann es nicht korrigieren. :D
@GrohmullerGmbH
@GrohmullerGmbH Ай бұрын
Wenn du die Shift-Taste drückst, während du Excel bzw. die Datei startest, werden die Makros nicht ausgeführt. Auf diese Weise kannst du die Fehler in Ruhe korrigieren, ohne dass dir die Makros „dazwischenpfuschen“.
@wendelingeissler4014
@wendelingeissler4014 Жыл бұрын
Hallo Kai, ich verfolge schon sehr lange Deinen Kanal. Aber speziell mit der Login Form komme ich nicht weiter. Habe alles genau so wie beschrieben ausgeführt. Bekomme aber beim Loginabfrage folgende Fehlermeldung : Laufzeitfehler '1004': Die Methode 'Range' für das Objekt'_Global ' ist fehlgeschlagen. Was kann das sein ? mfg Wendelin
@wendelingeissler4014
@wendelingeissler4014 Жыл бұрын
Im debug Modus : Set rng = Range("tblZugriffsrechte[Benutzername]").Find(What:=txtBenutzername.Value, LookAt:=xlWhole)
@MyNiki1978
@MyNiki1978 10 ай бұрын
@@wendelingeissler4014 Hallo Wendelin, ich bestätige das, tritt bei mir auf. Wenn Du den Fehler einmal mit debuggen sozusagen akzeptierst sollte es weg sein, allerdings tritt es dann erneut auf wenn Du die Mappe kopierst und umbennenst, danach ist es auch wieder weg. Ich glaube es hat mit tblzugriffsrechte zu tun, also das die Mapee, der Code einmaliges Öffnen braucht. Kai - deine Zeit ist kostbar, vielleicht hast du noch ne Idee ?
@tobiki138
@tobiki138 Жыл бұрын
Hallo Kai, vielen dank für deine Videos. Wirklich klasse- Auch für mich als Leie. Ich habe nur ein kleines Problem. Irgendwie wird das Passwort nicht mehr erkannt und somit komme ich nicht mehr auf meine ausgeblendeten Tabellen oder die VBA Umgebung. Kannst du mir vielleicht einen Tip geben 🙂 Danke....
@MrndMrsVAE
@MrndMrsVAE Жыл бұрын
Hallo Kai, Vielen Dank für das super Video. Ich habe es direkt umgesetzt und es hat auch funktioniert. Allerdings bin ich leider nicht zurecht gekommen, wie ich den code erweitern kann mehr Rechte zu erstellen. Da wir in der Liste mit 7 Personen arbeiten würde ich auch dementsprechend mindestens 4 Benutzerrechte erstellen. Könntest du mir vielleicht weiterhelfen, wie ich den Code erweitern kann ? Vielen Dank und viele Grüße, Ince
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Das sollte funktionieren, in dem du für jedes unterschiedliche Benutzerrecht eine eigene If-Abfrage einfügst und die entsprechenden Tabellenblätter eben Ein- bzw. Ausblendest. Hoffe das hilft dir weiter. Lg, Kai
@svenkramer5343
@svenkramer5343 8 ай бұрын
Hallo Kai, super Video, allerdings hab ich das Problem, bei der Login Abfrage bekomme ich den Laufzeitfehler ‚1004‘ Die Methode ‚Range‘ für das Objekt ‚_Global‘ ist fehlgeschlagen. Hast du eine Idee woran es liegen könnte? 24:06
@KaiWeissmann
@KaiWeissmann 8 ай бұрын
Vielen Dank für deinen Kommentar. Aufgrund vieler Anfragen, kann ich diese momentan leider nicht beantworten. Vielleicht hilft dir mein Video "KI beantwortet Fragen": kzfaq.info/get/bejne/gdJpqcZzmMvOl58.html Ich wünsche dir für deine Projekte alles Gute.
@alfonswigger5082
@alfonswigger5082 Жыл бұрын
Danke für die sehr gute Video. Ich möchte statt zwei mit drei Benutzergruppen arbeiten. Diese sollen jeweils unterschiedliche Zugriffsrechte haben. Wenn ich eine weiter Benutzergruppe im Code des btnAnmelden anlege, „meckert“ VBA die Prozedur „Next ws“ an und sagt, dass „For“ fehlen würde. Leider kann ich jedoch den Fehler nicht lösen. Kannst Du mir bitte eine Lösung mitteilen? Herzlichen Dank und einen schönen Tag.
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Bei der Schleife über alle Tabellenblätter habe wir die For Each Schleife. Also For Each ws... Code.... Next ws Hast du das "For" vor Each stehen?
@alfonswigger5082
@alfonswigger5082 Жыл бұрын
Danke. Problem gelöst.
@silvioschubert4672
@silvioschubert4672 Жыл бұрын
Wenn ich damit 2 tabellenblätter ausblende für die anderen Nutzer funktionieren Makros die mit den ausgeblendeten blättern arbeitet trotzdem?
@MaRi-jf2cl
@MaRi-jf2cl Жыл бұрын
Hallo, ja die Makros funktionieren trotzdem. Wenn du z.B. einen Wert in eine ausgeblendete Tabelle schreiben möchtest, funktioniert das einwandfrei, auch das Auslesen von Werten funktioniert. Bau es doch einfach nach ;-)
@gunterf.538
@gunterf.538 10 ай бұрын
Also, ich habe es mehrmals versucht, leider funktioniert es nicht, auch wenn ich alles so nachgebaut habe, wie du es hast. Bei "set range" beginnen schon die Probleme und sind nicht zu lösen. Das ist mir aber schon bei mehreren Übungen deiner Excel-Tabellen passiert. Sehr schade!
@KaiWeissmann
@KaiWeissmann 8 ай бұрын
Vielen Dank für deinen Kommentar. Aufgrund vieler Anfragen, kann ich diese momentan leider nicht beantworten. Vielleicht hilft dir mein Video "KI beantwortet Fragen": kzfaq.info/get/bejne/gdJpqcZzmMvOl58.html Ich wünsche dir für deine Projekte alles Gute.
@user-rp5ry1ox3g
@user-rp5ry1ox3g Жыл бұрын
Moin.. klasse Videos von DIr. Ich habe auch eine VBA-Anwendung gemacht wo ich an 2 Stellen ein Passwort eingeben muss. Meist habe ich am Laptop bzw. der Dockoing-Station 2 grössere Monitore angeschlossen, insgesamt also 3 Displays. Was kolossal nervt: Bei mir geht das Passwort-Eingeben-Fensterchen immer auf anderen Displays auf als an dem auf dem Excel eigentlich läuft. Ebenso andere Userforms die eingeblendet werden. Wie kann ich erreichen dass alle Userforms immer auf demselben Monitor auf dem die VBA-Anwendung läuft aufploppt? Ich muss sonst immer alles hin und her schieben, da ich ab und an das Teil auch online (Teams) nutzen/erklären muss.
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Du könntest im Eigenschaftenfenster des UserForm unter "StartUpPosition" die Einstellungen verändern (z.B. 1 - Fenstermitte) Oder du positionierst die UserForm anhand einer Zelle, Siehe dazu mein Video: kzfaq.info/get/bejne/hc9mebtilZmrZ2g.html ich hoffe das hilft dir weiter.
@user-rp5ry1ox3g
@user-rp5ry1ox3g Жыл бұрын
Moin..habe ich bereits, alle 4 Möglichkeiten habe ich ausprobiert, auch mit "0" im Eigenschaftenfenster und dann mit Code im Workbook_Open - Event usw. Das Passwortfenster geht auf, aber immer irgendwo. Wenn das eigentliche (umfangreiche Kalkulations-)Tool dann startet, wird ein grosser Userform geladen der so einige Labels und Buttons enthält die dann wiederum andere Userform-Oberflächen aufrufen. Das alles soll auf demselben Monitor geschehen auf dem die xlsm gestartet wurde. Klappt aber nicht, die Userforms gehen immer auf dem Monitor 2 oder 3 auf. Den Laptop benutze ich im Homeoffice mit einer Docking-Station an der 2 Monitore hängen und mal im Büro an einer Dockingstation an der auch 2 Monitore hängen.. Ich benötige einen Befehl oder kurzen VBA-Code der dafür sorgt dass alles auf demselben Monitor geschieht- es sei denn ICH ziehe ein Fenster woanders hin. So startet alles, ich muss erst mal alles zurecht ziehen, dann beim Klick auf zurück zur Übersicht um die nächste zu kalkulierende Anlage anzulegen wieder und bei der neuen Kalk dann wieder usw... das nervt.
@user-rp5ry1ox3g
@user-rp5ry1ox3g Жыл бұрын
Das 2. Passwort-Fenster verhält sich genauso, das ist aber weniger wichtig und wird quasi nur von mir benutzt. Damit kommt man an die Excel-Zellen und den VBA-Code. Das 1. Passwortfenster startet beim Start des Tools und soll den Kreis der Anwender auf die festlegen die das Passwort haben. Diese Anwender sollen quasi nur die USerforms benutzen. Von der Anwenderseite kamen auch schon Fragen ob man nicht etwas machen könne.. einer hat nur 1 Monitor angeschlossen, ein anderer gleich 3, wieder einer nur den Laptop-Bildschirm usw.
@fwtmspies-jm4gi
@fwtmspies-jm4gi Жыл бұрын
Hi, schöne Sache, ne Userverwaltung... Kann man die nicht aushebeln, indem ich Makros deaktivieren und dann händisch die Tabellenblätter wieder einblenden?
@GrohmullerGmbH
@GrohmullerGmbH Ай бұрын
Geht nicht, wenn du die Tabellenblätter im Code auf „very hidden“ setzt (ws.Visible = xlSheetVeryHidden)
@t3rrorbiene425
@t3rrorbiene425 2 ай бұрын
Ich habe irgendwas falsch gemacht. Wollte das Login testen und habe mich nun selbst gesperrt. Ich kann das Passwort nicht angeben, aber das Fenster geht nun auch nicht mehr weg und ich komme auch in VBA nicht mehr rein. Ich muss die Datei über Taskmanager schließen. Und alles ist dahin. Kann man das noch irgendwie retten ? P.S. ich bin ein riesen Fan von deiner Art und deinen Videos, der Fehler liegt also nicht bei dir
@thomaspertlwieser8960
@thomaspertlwieser8960 10 ай бұрын
Hallo Kai, das ist echt ein tolles Video. Ich habe aber das Problem das ich die Exceldatei freigeben muss (Arbeitsmappe teilen (Legacy), dazu muss die Tabelle in einen Bereich umgewandelt werden. Leider kann ich dann die Daten des Bereiches nicht mehr ansprechen. Hast du dazu eine Idee. LG Thomas
@KaiWeissmann
@KaiWeissmann 8 ай бұрын
Vielen Dank für deinen Kommentar. Aufgrund vieler Anfragen, kann ich diese momentan leider nicht beantworten. Vielleicht hilft dir mein Video "KI beantwortet Fragen": kzfaq.info/get/bejne/gdJpqcZzmMvOl58.html Ich wünsche dir für deine Projekte alles Gute.
@RRinaxx
@RRinaxx 9 ай бұрын
Steh gerade etwas auf dem Schlauch, cancel ist doch als Integer deklariert, wie kann es dann den Wert True annehmen ?
@KaiWeissmann
@KaiWeissmann 8 ай бұрын
Vielen Dank für deinen Kommentar. Aufgrund vieler Anfragen, kann ich diese momentan leider nicht beantworten. Vielleicht hilft dir mein Video "KI beantwortet Fragen": kzfaq.info/get/bejne/gdJpqcZzmMvOl58.html Ich wünsche dir für deine Projekte alles Gute.
@b.z.7773
@b.z.7773 Жыл бұрын
Hallo Kai, irgendwas hab ich falsch gemacht und jetzt kann sind meine Tabellenblätter ausgeblendet? Wie kriege ich das wieder hin? Bin für jede Hilfe dankbar
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Per Alt-F11 in die VBA-Oberfläche und hier die Tabellenblätter einblenden. Siehe dazu mein Video "Tabellenblätter einblenden: kzfaq.info/get/bejne/grCaaseLm53cXZ8.html Ich hoffe das hilft dir weiter.
@Wolfgang0815
@Wolfgang0815 9 ай бұрын
Hallo Kai, super VBA login. Selbst ich als Anfänger hab es hinbekommen. Danke dafür. Hab nur das Problem das man die Login Datei nicht über Sharpoint starten kann. Gibt es hier Abhilfe????. Danke
@KaiWeissmann
@KaiWeissmann 9 ай бұрын
Vielleicht hilft dir mein Video zum Thema "Benutzer Login mit Power Apps": kzfaq.info/get/bejne/gJacm6demanQcYU.html
@andyb5286
@andyb5286 Жыл бұрын
nice :)
@johnwayne8059
@johnwayne8059 Жыл бұрын
Beim schließen kannst du einfach abfragen ob die Anzahl der geöffneten Arbeitsmappen größer 1 ist. Wenn ja dann nur wb schließen, wenn nicht dann halt excel komplett quittieren! Ist, find ich😇, die sauberste Lösung!😉🤟😎 🍀🥳🤯😶‍🌫️
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Danke für den Tipp
@lennat24
@lennat24 10 ай бұрын
Excel Gott Danke
@KaiWeissmann
@KaiWeissmann 10 ай бұрын
Sehr gerne! Es freut mich, dass dir das Video gefällt.
@user-qt3zj7it1g
@user-qt3zj7it1g Жыл бұрын
Hallo Kai, immer wieder ist sind deine Informationen und Filmen super erklärt doch, etwas stört mich ungemein. Ich habe dein Lagerverwaltung nachgebaut und ausprobiert (aufm PC zuhause!) nun wenn ich auf der Arbeit mit mein Tablett arbeite fällt mir auf dass die VBAs automatisch blockiert werden. Sie funktionieren also im Web nicht. Wie kann man dieses ändern. Muss also im Programm alles zu Fuß durchführen, dass ist richtig Blöd!! Kannst Du darüber ein Video mach wie man diese Anwendung auch im Web mit den VBA/Macros durchführen kann? Danke schon mal für deine Mühe :-) VG Ralf
@KaiWeissmann
@KaiWeissmann Жыл бұрын
Die Frage ist, wie du aus dem Web auf die Datei zugreifst. Bei vielen Cloud-Lösungen können Makros nicht abgebildet werden.
@user-qt3zj7it1g
@user-qt3zj7it1g Жыл бұрын
ja genau dass ist gemeint.
@matthiasschnellbacher4808
@matthiasschnellbacher4808 Жыл бұрын
Hallo Kai, mal wieder ein Klasse Video mit vielen Ideen. Wie könnte man denn über Excel eine automatische Passwortvergabe mit Bedingungen umsetzen? Gemeint ist z.B. Länge festlegen (z.B 18 od. 21 Stellen) Groß- Kleinschreibung, Zahlen, Sonderzeichen Benötigt würde soetwas für eine Benutzerverwaltung, in der man PW für User generiert und später über Mail an die User verteilt. Dabei enthalten sein sollte auch eine Möglichkeit Benutzergruppen zu integrieren (hast Du ja hier schon wunderbar erklärt). Mir fällt nun leider keine Möglichkeit für die Generierung von Passwörtern mit Bedingungen ein. Wäre toll, wenn Du hierzu mal ein Video erstellen könntest. Gruß Matthias
@MaRi-jf2cl
@MaRi-jf2cl Жыл бұрын
Gutes Video, wie immer! Wenn man bei geöffneter Datei, die Userform über den Codebereich aufruft und dann über das X schließt, kommt bei mir ein Speicherfehler (nicht mit 'Application.Quit aber mit ThisWorkbook.Close SaveChanges:=False). Hat jemand (Kai vielleicht?) eine Ahnung, woran das liegt? ist das nur bei mir so? Mein Rechner ist eine Rakete ;-) 🚀🚀, den schließe ich aus 🙂😀😀
لااا! هذه البرتقالة مزعجة جدًا #قصير
00:15
One More Arabic
Рет қаралды 50 МЛН
НЫСАНА КОНЦЕРТ 2024
2:26:34
Нысана театры
Рет қаралды 1,8 МЛН
Look at two different videos 😁 @karina-kola
00:11
Andrey Grechka
Рет қаралды 8 МЛН
Variablen und Datentypen: Verwende DIM & SET richtig! | Excel VBA
13:24
لااا! هذه البرتقالة مزعجة جدًا #قصير
00:15
One More Arabic
Рет қаралды 50 МЛН