Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1552to1556
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1552to1556
1552to1556
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blatt sperren und entsperren per Button

Blatt sperren und entsperren per Button
20.04.2017 15:30:59
Nobby
Hallo,
Ich hätte gerne auf einem Tabellenblatt 2 Buttons, wovon der eine das Tabellenblatt sperrt und der andere das Tabellenblatt entsperrt. Allerdings soll bei dem entsperren Button die Abfrage des Kennwortes kommen, welches beim Button „Sperren“ hinterlegt ist. Beispielsweise Kennwort "entsperren".
Ich habe mal eine einfache Mappe hinzugefügt.
https://www.herber.de/bbs/user/113010.xlsb
Kann mir jemand weiter helfen?
Vielen Dank
Grüsse
Nobby

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blatt sperren und entsperren per Button
20.04.2017 16:04:24
Nobby
Hallo Rainer,
vielen Dank aber mit den Dateien von Hajo kann ich leider nichts anfangen bzw mein Excel. Kommt Fehlermeldung das es bei Excel für Mac nicht läuft.
und mit den beiden Workbook.sheets kann ich leider nichts anfangen :-(
Wäre toll, wenn Du mir die Datei "eben" fertig machen könntest?!
Vielen Dank und Grüsse
Nobby
Anzeige
AW: Blatt sperren und entsperren per Button
20.04.2017 15:58:46
yummi
Hallo Nobby,
mal so: https://www.herber.de/bbs/user/113012.xlsm
Wenn Du Alt + F11 drückst kommst Du in den VBA Monitor, dort unter Modul kannst Du das Passwort ändern.
Gruß
yummi
AW: Blatt sperren und entsperren per Button
20.04.2017 16:06:25
Nobby
Hallo Yummi,
SUPER..genau das habe ich gesucht!!!!
Jetzt ist mein Tag gerettet :-)
Vielen Dank (auch nochmal an Rainer)
Lg
Nobby
AW: Blatt sperren und entsperren per Button
20.04.2017 16:10:40
Nobby
ich nochmal :-)
Kannst Du mir es auch für die gesamte Mappe (Alle Blätter sperren und entsperren mit 2 Buttons) schreiben?
Dankeeeeee
AW: Blatt sperren und entsperren per Button
20.04.2017 20:24:12
Rainer
Hallo Nobby,
für alle Blätter mit einer Abfrage:
https://www.herber.de/bbs/user/113018.xlsm
Bedenke allerdings, dass in dieser Mappe jeder das Passwort sehen kann, wenn du dem VBA Projekt kein eigenes Passwort gibst. (Rechtsklick auf "VBAProjekct", Projekteigenschaften, Schutz)
Mit dem Passwort kann es schon bis zu mehreren Minuten dauern, bis "Hackerman" dein Passwort geknackt hat. Google ist dein Freund. Der Passwortschutz in Excel ist nicht so der große Wurf.
Gruß,
Rainer
Anzeige
AW: Blatt sperren und entsperren per Button
21.04.2017 01:07:49
Nobby
Hallo Rainer.
Vielen Dank.
Probiere ich später mal aus.
Mir geht es in erster Linie nicht um die 100% Sicherheit sondern
darum, das man nicht mal eben diese Blätter ändert,
da es sich um ein Programm für ein Doppelkopf
Turnier Handel, wo der Laptop so offen rum
steht.
MfG
NOBBY
AW: Blatt sperren und entsperren per Button
26.04.2017 03:32:50
Nobby
Hallo Rainer,
mir ist leider aufgefallen, das der Blattschutz aller Tabellen immer nur beim ersten mal funktioniert.
Das bedeutet, wenn ich den Schutz setze beim ersten mal und dann entsperre, funktioniert alles wunderbar. (Password muss korrekt sein)
Die Mappen werden entsperrt.
Allerdings bei erneutem Schutz setzen, und dann entsperren, reicht ein Klick auf das X der Passwortabfrage. Allerdings muss tatsächlich NUR das X geklickt werden (sofort OHNE Eingabe eines Kennwortes X Fenster schliessen klicken), denn wenn ich bspw. ein Falsches Kennwort eingebe, dann kommt die Meldung "Passwort falsch".
Also noch einmal, in der Hoffnung das ich mich richtig ausdrücke :-)
1. Versuch: Ich setze den Schutz für alle Blätter, Schutz kommt, ich entsperre mit Kennwort,
Schutz ist aufgehoben.
2. Versuch: Ich setze den Schutz für alle Blätter, Schutz kommt, ich entsperre NICHT mit Kennwort,
sondern Klicke DIREKT das X (Ohne Eingabe irgend eines zeichens in der Passwortabfrage)
und der Schutz ist AUFGEHOBEN:
Kannst Du mir da weiter helfen?
Grüsse und Danke
Nobby
Anzeige
AW: Blatt sperren und entsperren per Button
26.04.2017 06:14:30
Rainer
Hallo Nobby,
ja, dummer Fehler.
Schau mal in den VBA Code der UserForm1:

Private Sub CommandButton1_Click()
Passwort = UserForm1.TextBox1.Text
Unload UserForm1
End Sub
Private Sub UserForm_Deactivate()
Passwort = UserForm1.TextBox1
End Sub
Die erste Sub übergibt das Passwort richtig, wenn man den Button drückt.
Die zweite Sub läuft ab, wenn man "X" drückt. Da ist der Code falsch. Der "X" Button hat nie funktioniert, aber da sich die Userform das Passwort "merkt" klappt es beim 2. Versuch.
Es muss der gleiche Code sein wie bei der ersten Sub:

Private Sub UserForm_Deactivate()
Passwort = UserForm1.TextBox1.Text
End Sub
Außerdem habe ich dir noch ins Modul1 eine Zeile eingefügt, die das Passwort löscht wenn die Userform aufgerufen wird. So "merkt" es sich die Userform nicht mehr.
https://www.herber.de/bbs/user/113114.xlsm
Gruß,
Rainer
Anzeige
AW: Blatt sperren und entsperren per Button
26.04.2017 16:08:05
Nobby
Hallo Rainer,
vielen Dank, jetzt klappt es...Super.
Noch eine Kleinigkeit.....
ich hätte gerne Bspw. Tabelle 1, Zelle A1 Grün gefüllt wenn ENTSPERRT, und Rot wenn GESPERRT....
was muss ich machen?
Danke und Gruss
Nobby

41 Forumthreads zu ähnlichen Themen

Tabellenblatt einblenden mit Passworteingabe
Claudia

Hallo guten Morgen zusammen,
ich habe eine Datei mit einigen ausgeblendetetn Tabellenblättern. WEnn ich diese einblende werde ich nach einem Passwort abgefragt und dann blendet es auch ein. Code nachstehend. Das Passwort ist bekannt und lautet test.
Private Sub Gesamt() If InputBox("B...
14.12.2008 11:48:00
Thread-ID: 1032748
3 Beiträge
Anzeige
Abfrage ob Blattschutz mit Passwort gesetzt wurde
DominikHH

Hallo zusammen,
ich muss in einem Arbeitsblatt überprüfen, ob ein Blattschutz gesetzt wurde und - wenn das der Fall ist - ob auch ein Passwort vergeben wurde.
Im Fall, dass zusätzlich ein Passwort gesetzt wurde, muss ich anders reagieren, als wenn nur das Blatt geschützt wurde (dann kan...
22.11.2012 15:49:32
Thread-ID: 1287706
2 Beiträge
Blatt per Passwort schützen
Fliege

Hallöchen,
ich bei ein ziemlicher Neuling auf dem Feld der VBA - Programmierung und hoffe, dass ihr mir weiterhelfen könnt.
Ich habe eine Userform erstellt auf der es mehrere Textboxen zur Dateneingabe gibt. Diese Datei wird durch Klick auf einen Button mit einem Passwort versehen und a...
04.08.2016 15:34:46
Thread-ID: 1507872
12 Beiträge
Anzeige
Öffnen der Datei mit Passwort schützen
Kisska

Schönen Abend allerseits,
den Öffnungs-Schutz kann man ja einstellen, wenn auf "Speichern unter" geht und da die entsprechende Option wählt.
Ich würde gerne dies mittels VBA lösen.
Hier in Forum habe ich diesen Code gefunden: Option Explicit Private Sub Workbook_Open() Dim strPassw...
28.05.2017 22:13:34
Thread-ID: 1560815
17 Beiträge
Blattschutz per Makro mit Passwortoption
beckersbest

Guten Morgen,ich habe mal wieder eine Frage. Ich möchte per Button den Blattschutz einschalten. Das klappt mit folgendem VBA-Code auch ganz gut:-----------------------------------
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
-----------------------------------...
04.09.2002 08:11:14
Thread-ID: 156138
6 Beiträge
Blattschutz mit Passwort aufheben-Passworteingabe
beckersbest

Guten Morgen,ich muss in meiner Datei sämtliche Blätter mit einem Blattschutz versehen. Das geht per Makro ja auch ohne weiteres. Über den folgenden Befehl realisiere ich auch eine Passwortabfrage:ActiveSheet.Protect Cells(12, 2), DrawingObjects:=True, Contents:=True, Scenarios:=Truewobei in de...
17.09.2002 07:40:43
Thread-ID: 160692
7 Beiträge
einzelne Zeilen mit Passwort schützen
Thomas

Hallo zusammen,
ich habe jetzt schon etwas gesucht und noch nicht viel dazu gefunden, und möchte wissen, ob man einzelne Zeilen eines Arbeitsblattes mit unterschiedlichen Passwörter belegen kann?
Also ich möchte dass die Zeile 5 das Passwort "123" hat und die Zeile 7 das Passwort "456"...
26.03.2018 11:11:57
Thread-ID: 1616363
2 Beiträge
zweites arbeitsblatt mit passwort
Pit

Hallo an alleIch habe folgendes Problem Auf dem 1 Arbeitsblatt werden Produktionsdaten erfasst
Auf dem 2 Arbeitsblatt werden die Daten ausgewertet.Das 2 Arbeitsblatt soll aber nur für Leute mit Passwort
erscheinen. In der Menüleiste (bei Extras) soll ein Menüpunkt "Auswertung"
erschein...
08.11.2002 09:10:22
Thread-ID: 178607
2 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
1
11
2
16
5
6
1
1
7
3
2
2
2
7
9
4
4
8
12
4
2
3
3