Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blattschutz & Excel beenden

Forumthread: Blattschutz & Excel beenden

Blattschutz & Excel beenden
21.06.2007 17:24:41
peschi
Hallo !
Wie kann ich mittels eines Button den Blattschutz aktivieren und mittels eines Button und einer Passwortabfrage den Blattschutz deaktivieren ? Oder geht dies auch mittels eines Button ?
Mappe mit mehreren Tabellenblättern. Blattschutz soll dann automatisch für jedes Tabellenblatt der Mappe deaktiviert oder aktiviert werden.
Gibt es eine Möglichkeit und wenn ja, welche, damit der Benutzer gezwungen wird, Excel nur über einen erstellten Button zu verlassen ? Der Button zum Schliessen ist bereits vorhanden und funktioniert.
Gruß
peschi

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz & Excel beenden
22.06.2007 10:22:39
Chaos
Servus peschi,
hier mal ein Ansatz:

Sub entsperren()
Dim wks As Worksheet
Dim passw As String
passw = InputBox("Passwort")
For Each wks In ActiveWorkbook.Worksheets
wks.Activate
ActiveSheet.Unprotect Password:=passw
Next
Sheets(1).Activate
End Sub




Sub sperren()
Dim wks As Worksheet
Dim passw As String
passw = InputBox("Passwort")
For Each wks In ActiveWorkbook.Worksheets
wks.Activate
ActiveSheet.Protect Password:=passw
Next
Sheets(1).Activate
End Sub


oder


Sub entsperren()
Dim wks As Worksheet
Dim passw As String
For Each wks In ActiveWorkbook.Worksheets
wks.Activate
ActiveSheet.Unprotect "Dein Passwort"
Next
Sheets(1).Activate
End Sub


Ist für das Sperren genauso
Gruß
Chaos

Anzeige
AW: Blattschutz & Excel beenden
22.06.2007 10:31:20
Chaos
Aber das mit dem Verlassen, versteh ich nicht so ganz. Hast du die Menüleisten (Arbeitsmappe) ausgeblendet oder deaktiviert und was hat das mit dem Sperren der Blätter zu tun?
Gruß
Chaos

AW: Blattschutz & Excel beenden
22.06.2007 18:54:00
peschi
Dank dir erst mal Chaos für den Blattschutz.
Ich möchte nicht, dass der Benutzer Excel über das rote Kreuz (oben rechts) Excel verlassen kann, sondern über einen von mir erstellten "Beenden" Button.
Gruß
peschi

Anzeige
AW: Blattschutz & Excel beenden
22.06.2007 20:06:48
Gerd
Hi,
da stellt sich die Frage nach dem Warum. Vermutlich, weil du keine andere Lösung kennst.
Das normale Verhalten von Windows-Programmen deratig zu verbiegen, ist kein guter
und benutzerfreundlicher Stil.
Beschreib mal, was du damit erreichen willst.
mfg gerd

AW: Blattschutz & Excel beenden
22.06.2007 21:57:00
peschi
Hat sich bereits erledigt ! Lösung gefunden !
Gruß
peschi
Anzeige
;

Forumthreads zu verwandten Themen

Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Klick zählen - dann beenden
Frank

Hallo Zusammen!!!
Vielleicht kann mir bei der absurden Idee doch jemand weiter helfen. In einem Arbeitsblatt wird durch Klick in eine Zelle eine UF geöffnet. In dieser UF befindet sich das Kalender - Steuerelement. Mittels folgenden Code,
Private Sub Calendar1_Click() ActiveCell.Value...
24.11.2008 13:17:00
Thread-ID: 1027288
5 Beiträge
Funktionen beenden
Joachim

Hi,
brauche doch noch mal hilfe:
Ich habe auf meiner userform einen Button, der führt verschiedene Funktionen aus, die in einem Modul sind:
Private Sub CommandButton5_Click() Call Kopieren Call Prüfen Call Formatieren Call Daten_sperren End Sub
So, und nun zum Problem, wenn z...
26.11.2008 11:20:00
Thread-ID: 1027972
4 Beiträge
bei Fehlermeldung automatisch auf beenden
Lucia

Hallo zusammen,
ich hab einen schönen code, der macht, dass Aufgaben über Outlook an die Mitarbeiter (nach Kürzel in wer) verteilt werden. Das klappt wunderbar, Outlook öffnet sich, ich kann noch mal drüber schauen und dann versenden. Zum Schluss kommt im Excel dann die Fehlermeldung:
...
27.11.2008 13:59:08
Thread-ID: 1028363
10 Beiträge
Anzeige
Symbolleiste ausblenden bei beenden
Joachim

Hi
ich blende beim starten meines Excel-Sheets eine Symbolleiste ein
Private Sub Workbook_Open() Symbolleiste_ein End Sub
Wie kann ich die Symbolleiste (Symbolleiste_aus) wieder ausblenden. bzw. in welches Ereignis muss das rein, damit die Symbolleiste ausgeblendet wird, egal, ob...
09.12.2008 13:12:00
Thread-ID: 1031375
3 Beiträge
Vollbildmodus beenden beim Datei schließen
Thomas

Hallo,
ich weiß, zu dem Thema gibt es unzählige Beiträge. Ich sitze jetzt schon ne Stunde und find keine Lösung.
Das Problem:
Ich starte eine Datei im Vollbildmodus, blende die Menüleisten aus und will beim Beenden den Vollbisldmodus wieder verlassen. Über einen Button funktioniert...
15.01.2009 23:30:00
Thread-ID: 1040351
7 Beiträge
Nach MsgBox Code beenden
Heinz

Hallo Leute
Ich komme mit folgenden Code nicht weiter.
Der Code sollte nach jeder MsgBox gestoppt werden, bis alle Bedinungen erfüllt wurden.
Ich habe 3 MsgBox.
Könnte mir dazu bitte jemand weiterhelfen.
Danke Heinz
Private Sub CommandButton6_Click() Application.Screen...
18.01.2009 15:20:40
Thread-ID: 1041137
7 Beiträge
Nach Datei-Beenden startet Makro nicht
Edie

Hallo zusammen,
wenn ich die Datei über das Menü: Datei-Beenden und anschließenden Speichern beende,
bei erneuten öffne der Datei und start des Makros (UserForm) bekommen ich eine Fehlermeldung: „Microsoft Office Excel hat ein Problem festgestellt…“
Beim Debuggen kommt folgende Meld...
29.01.2009 08:50:00
Thread-ID: 1044793
3 Beiträge
Instanzen sehen und beenden (code z.T vorhanden)
chris

Hallo VBA experten,
ich suche mal wieder Hilfe.
Hoffe ihr könnt mir helfen.
ich habe hier einen Code mit diesem sehe ich die Anzahl aller
Excelinstanzen die gestartet wurden auch wenn Sie unsichtbar sind.
Ich wollte den Code so modifizieren das ich die einzelnen Instanzen be...
18.02.2009 11:31:00
Thread-ID: 1051743
9 Beiträge
Makro beenden / aus Loop springen
nicobit

Hallo Forum :)
hab ne frage,
Ich habe ein Makro welches bei falschem Input(normal aus Tabelle) mit einer InputBox nachfragt, diese ist mit einer Loop ausgestattet, sodass sie immer wider fragt wenn die Eingabe nicht stimmt.
Das Problem ist dass ich innerhalb dieses Loops eine falsch...
24.02.2009 12:21:13
Thread-ID: 1053452
5 Beiträge
Wieso muss ich Excel zweimal beenden?
wulfguard

Guten Abend,
ich habe folgendes Problem, nach dem ich meinen Code ein wenig optimiert!?!(zumindest ist der Laufzeitfehler raus ;) )
habe ich folgenden Effekt, wenn ich Excel beenden will, wird nur mein Workbook beendet und nach dem das geschlossen ist muss ich Excel nochmal beenden.
05.03.2009 23:15:41
Thread-ID: 1057086
5 Beiträge
Anzeige
"speichern und beenden"
Ralf

Hallo zusammen,
ich habe folgendes Problem.
Ich habe eine Datei mit vielen Makros und Verknüpfungen auf andere Dateien. Wenn ich diese Datei speichere und beende öffnet sich die Datei wieder. Es ist egal ob ich das separat mache, also erst speichern und dann beenden oder über das "x" di...
10.03.2009 16:35:59
Thread-ID: 1058786
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige