Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Beim Datei öffnen Blattschutz durch Paßw. aufheben

Forumthread: 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


Anzeige

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

;

Forumthreads zu verwandten 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
Makro Zelle Schutz aufheben
Kurt

Guten Abend,
ich habe dieses Makro auch übers Forum:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Application.ScreenUpdating = False If Intersect(Target, Range("A10:C20")) Is Nothing Then Exit Sub ActiveSheet.Unprotect ("kk") On Error GoTo fehler Application.EnableEvents...
16.02.2009 19:53:00
Thread-ID: 1051271
27 Beiträge
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
Blattschutz ohne passwortabfrage
Svenja

Hallo,
ich habe eine Excel-Datei mit mehreren Reitern.
In Tabellenblatt "Beiträge" habe ich einige Zahlen. Diese werden über ein weiteres Tabellenblatt über Button selektiert und bestimmte Daten daraus kopiert und in mein weiteres Tabellenblatt eingefügt.
Da ich im Tabellenblatt "Be...
19.12.2012 21:09:09
Thread-ID: 1291604
4 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
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
Blattschutz setzen aber ohne Passwort
Burak

Guten Morgen liebe Leutchens,
hab in einem anderen Beitrag grade gelesen, dass man in VBA den Blattschutz aufheben und wieder setzen kann.
Jetzt will ich das bei mir auch! Mit dem Unterschied, dass der Blattschutz hinterher OHNE Passwort gesetzt werden soll.
Mein Code: With Workshe...
13.03.2018 08:23:22
Thread-ID: 1613888
2 Beiträge
Makro Schutz und aufheben
Helmut Ivers

moin excel- freaksfolgende frage:
wie kann ich folgendes in einem makro realisieren:
24 Tabellenblätter, in 30 Zeilen steht jeweils geschützt in der 1 u. 2. Spalte das gleiche. Um änderungen vorzunehmen, muss ich in jedem tabellenblatt den schutz aufheben, ändern und wieder schützen. wenn...
31.03.2003 12:09:58
Thread-ID: 238351
4 Beiträge

Beliebteste Forumthreads (12 Monate)

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