Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
228to232
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
228to232
228to232
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Beim Datei öffnen Blattschutz durch Paßw. aufheben

Beim Datei öffnen Blattschutz durch Paßw. aufheben
11.03.2003 14:08:28
Oliver S.
Hallo liebe Leute,

ich brauche mal wieder Hilfe. Ich möchte folgendes realisieren: Wenn die Exceldatei geöffnet wird, soll eine Passwortabfrage gestartet werden. Wird das richtige Passwort eingegeben, soll der Blattschutz für alle in der Datei enthaltenen Tabellenblätter aufgehoben werden. Wird dass falsche Passwort eingegeben oder die Taste Abbruch betätigt, soll die Datei zwar geöffnet werden, der Blattschutz soll aber nicht aufgehoben werden. Wer hat für mich die richtige VBA-Anweisung, um mein Vorhaben umzusetzen und könnte mir helfen? Für mich ist das, mit meinen bescheidenen VBA Kenntnissen, etwas zu kompliziert.

Habt schon mal recht herzlichen Dank für die Hilfe,
Oliver


3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Beim Datei öffnen Blattschutz durch Paßw. aufheben
11.03.2003 14:33:16
abs

hast Du Dir schon mal Speichern unter, Extra/Optionen angesehen.
Ganz ohne VBA

Re: Beim Datei öffnen Blattschutz durch Paßw. aufheben
11.03.2003 14:41:05
Lutz

Hallo Oliver,

den folgenden Code in DieseArbeitsmappe:

Private Sub Workbook_Open()
Dim strWks As String
strWks = InputBox(Prompt:="Bitte Passwort eingeben:", Default:="")
If strWks <> "Dein Passwort" Then
MsgBox "Falsches Passwort"
Else
For I = 1 To Sheets.Count
Sheets(I).Unprotect ("Dein Passwort")
Next I
End If
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
For I = 1 To Sheets.Count
Sheets(I).Protect ("Paßwort")
Next I
End Sub

Gruß
Lutz


Anzeige
Re: Beim Datei öffnen Blattschutz durch Paßw. aufheben
11.03.2003 15:22:34
Oliver S.

Hi Lutz,

danke erst ein mal für die Antwort. Werde Deinen VBA-Code mal bei mir testen. Bei Fragen melde ich mich dann noch mal.

MfG,
Oliver

25 Forumthreads zu ähnlichen Themen

Passwortabfrage ohne Blattschutz zu umgehen, wie?
Thomas

Hi, in meiner Tabelle sind diverse Zellen durch den Blattschutz geschützt. Nachbahrzellen sind jedoch für eine Bearbeitung freigegeben. Aber, um sie vor unbefugten ausfüllen zu schützen habe ich mir diesen code ausgeliehen und angepasst.
' Private Sub Worksheet_SelectionChange(ByVal target...
24.11.2008 14:21:54
Thread-ID: 1027314
3 Beiträge
Anzeige
Datei aus nur lesendem Verzeichnis wählen
Günter

Hallo Zusammen,
zum auswählen einer Datei benutze ich eine im Forum gefundene Routine
Set dat = Application.FileDialog(msoFileDialogFilePicker)
With dat
.Title = aPfad
.InitialFileName = aPfad 'oder was auch immer
If .Show = -1 Then
For Each Ordnerpfad In .SelectedIt...
28.07.2009 10:31:27
Thread-ID: 1091758
9 Beiträge
Aus-Einblenden / Makroschutz aufheben
juergen

Hallo zusammen,
hoffe Ihr habt Ostern gut überstanden.
Hab u. stehendes Makro und muss den Schutz aufheben, damit er Tabellenblätter einblendet. Kann mir bitte jemand weiterhelfen?
Für Eure Bemühungen,....... danke ich schon jetzt:)
Gruß
Juergen
Sub blättern1() ' blätter...
26.04.2011 15:44:26
Thread-ID: 1211836
3 Beiträge
Anzeige
Makro: Blattschutz PW setzen/aufheben
Thms

Liebes Forum,
ich möchte gerne mehrere Tabellenblätter per Makro mit einem Passwort schützen lassen. (Das Passwort soll bereits im Makro stehen.) Hierzu habe ich folgenden Code gefunden: Sub Schutz() Dim i As Long For i = 1 To Sheets.Count Sheets(i).Protect "123" Next i MsgBox "alle Blätter...
28.06.2013 13:59:33
Thread-ID: 1320297
7 Beiträge
Vor Makro Blattschutz aufheben: Sicherheitsabfrage
Michael Kl.

Hallo zusammen,
ich habe ein Makro zur Aufhebung des Blattschutzes erstellt.
Vor der endgültigen Deaktivierung des Schutzes soll eine Abfrage erscheinen, ob der Schutz wirklich deaktiiert werden soll. Ihr kennt diese Abfragen mit Sicherheit von Windows. Dort hat man die Möglichkeit, bei i...
17.07.2002 12:39:18
Thread-ID: 137441
3 Beiträge
Datei nicht schreibgeschützt speichern
Barbara

Hallo
würde gerne ein Makro schreiben, das Folgendes macht.
Die Datei unter folgendem Namen speichern:
"Berechnung" & V_Name
wobei V_Name eine benannte Zelle ist.
Und die Schwierigkeit:
Die vorliegende Datei ist schreibgeschützt, sie soll aber nicht schreibgesch...
21.10.2014 12:41:23
Thread-ID: 1387742
8 Beiträge
Dateischutz aufheben?
Schmidti

Hallo, ich habe eine Excel-Datei bei der vor dem Öffnen eine Passwortabfrage erscheint. Wie kann ich dieses PW herausbekommen. Vielen Dank im voraus.

01.08.2002 08:04:37
Thread-ID: 143390
2 Beiträge
Makroschutz über Makro aufheben
Stephan

Hallo zusammen,
ich habe ein Makro programmiert, dass eine neue Datei erstellt und ein Makro von der alten Datei übernimmt. Da ich die Makros in der alten datei aber alle geschützt habe, tritt ein Laufzeitfehler auf beim versuch, das Makro zu kopieren.
Wie kann ich mit einem Makro den Sc...
28.08.2002 08:47:07
Thread-ID: 153515
3 Beiträge

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
26
8
2
3
6
2
7
1
2
6
1
3
1
2
6
5
8
2
2
5
2
7
10
6