Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
424to428
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
424to428
424to428
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blattschutz aufheben und setzen

Blattschutz aufheben und setzen
07.05.2004 08:09:45
RüdigerB
Hallo Ihr Könner,
ich habe das Problem, dass ich eine Tabelle mit einem Passwort geschützt habe. Laut unten stehendem Makro funktioniert das ja auch, nur es wird die Tabelle nicht mehr mit dem Passwort geschützt, sondern ohne Passwort geschützt. Das ist nicht im Sinne des Erfinders.
Dieses folgende Makro kabe ich mit "Makro Aufzeichnen" erstellt
ActiveSheet.Unprotect
Range("C350:D388").Select
Selection.Sort Key1:=Range("C351"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveWindow.ScrollRow = 9
Range("G9").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Kann mir da jemand helfen?
Danke schon mal und ein schönes Wochenende wünscht Euch RüdigerB

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz aufheben und setzen
07.05.2004 08:19:22
Alwin
Hallo,
es muss noch
password:="passwort" mitgegeben werden, dann funzt es.
AW: Blattschutz aufheben und setzen
Josef
Hallo Rüdiger!
Z.B. so.
ActiveSheet.Unprotect Password:="DeinPasswort"
Range("C350:D388").Sort Key1:=Range("C351"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveWindow.ScrollRow = 9
Range("G9").Select
ActiveSheet.Protect Password:="DeinPasswort", DrawingObjects:=True, Contents:=True, Scenarios:=True
Gruß Sepp
AW: Blattschutz aufheben und setzen
für
Hallo Josef,
das ist ja gut und schön wenn ich da wo Du schreibst das Passwort reinsetze. Das kann dann ja jeder, der in das Makro geht, lesen. Dann brauch ich die Tabelle ja auch nicht schützen! Oder wie siehst Du das.
Kann man eigentlich dann diese Makro unsichtbar machen, mindestens so, dass man nicht es nicht aufmachen kann?
Grüße Rüdiger
Anzeige
AW: Blattschutz aufheben und setzen
07.05.2004 08:55:26
Alwin
Hallo,
im VBA-Modul über Extras - VBAProject-Eigenschaften in der Registerkarte Schutz einfach ein Kennwort vergeben.
Gruß Alwin
AW: Blattschutz aufheben und setzen
07.05.2004 09:07:47
Ullrich
Hallo Rüdiger,
Du kannst auch im Makro das Passwort in einem Fenster abfragen.
Nachfolgend 2 Makros, die ich mal, auch mit Hilfe dieses Forums geschrieben habe.
Damit öffne ich alle Blätter in einer Mappe mit einem einzugebenden PW und schließe sie auf die gleiche Weise auch wieder, mit Passwortwiederholung zur Sicherheit.
Du kannst Dir die Befehle für das Fenster rausnehmen.
Einziger Nachteil: Das Passwort ist bei der Eingabe sichtbar, also keine Sternchen.

Sub BlattSchutz()
Dim wks As Worksheet
myPwd = Application.InputBox("Enter a Password")
myPwd2 = Application.InputBox("Wiederholung")
If myPwd = myPwd2 Then
For Each wks In ActiveWorkbook.Worksheets
wks.Protect Password:=myPwd
Next wks
Else: MsgBox ("Paßwort übereinstimmend eingeben")
End If
End Sub



Sub Aufheben()
Dim wks As Worksheet
myPwd = Application.InputBox("Enter a Password")
For Each wks In ActiveWorkbook.Worksheets
wks.Unprotect Password:=myPwd
Next wks
End Sub

Viel Erfolg
Ullrich Sander
Anzeige
AW: Blattschutz aufheben und setzen
für
Hallo Ullrich,
das ist ja gut aber wenn ich das Programm jemandem schicke, möchte ich nicht, dass er auch mein Passwort weiß. Es geht ja nur darum, dass niemand in der Tabelle rumspielt. Wie schnell ist eine Formel gelöscht und es funktioniert nichts mehr.
Danke Dir
Liebe Grüße und ein schönens Wochenende von Rüdiger

138 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
VBA Kennwortschutz aufheben & setzen Problem
Andreas

Hallo Herber Fans,
ich habe hier schon im Forum gesucht und auch einen Code gefunden. Es geht um das temporäre Aufheben des VBA Kennwortes im VBA Editor. Das Kennwort in der Beispieldatei ist „test“.
Die Datei wird geöffnet, ein Button wird kreiert. Wenn ich auf diesen Button klicke, er...
03.07.2009 21:26:13
Thread-ID: 1086309
7 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
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
VBA Code Tabellenschutz mit Passwort
Max

Hallo zusammen,
hat jemand ein Standard VBA Code um ein Tabellenblatt ("Tabelle1") einzublenden. Das Einblenden der Tabelle soll über ein CommandButton inklusive einer Passwortabfrage erfolgen. Ebenso soll das spätere Ausblenden der Tabelle über einen CommandButton erfolgen.
Danke im vo...
28.12.2012 11:37:27
Thread-ID: 1292225
5 Beiträge
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
VBA - "Aus dem Web" mit Passwort
Timonski

Servus...
ich muss mich bei einer Internetseite mit Benutzer und Passwort einloggen.
nach dem einloggen, wollte ich gerne die Seite/n nach Excel importieren.
das Problem ist, er loggt sich nicht ein...
bei den ersten Schritten (FETT) loggt er sich auf der Seite ein... funktionie...
08.05.2014 15:23:16
Thread-ID: 1360536
5 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
Anzeige

Links zu Excel-Dialogen

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