Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
164to168
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
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ActiveSheet.Protect mit weiteren Optionen

ActiveSheet.Protect mit weiteren Optionen
26.09.2002 13:26:25
Maik
Hallöchen,

ich habe folgendes Problem:

Diverse zellen einer Arbeitsmappe sind komplett, also auch gegen Auswahl, geschützt. Lediglich die Zellen in denen der Benutzer Änderungen vornehmen darf sind nicht gesperrt und können somit jederzeit verändert werden.

Nun ist es erforderlich, das zuweilen der Blazzschutz mittels Makro aufgehoben werden muss um einige Änderungen vorzunehmen (bspw. nach Eingabe in eine UserForm). Danach soll der Blattschutz wieder wie vorher funktionieren.

Ich habe jetzt also alles mögliche probiert, in der Recherche gewühlt, die VBA-Hilfe fast auswendig gelernt ;-) und komme einfach nicht auf die Lösung meines Problems.

Kann evtl. jemand helfen?

Bis denne und Danke schonmal im voraus,

Maik

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

Betreff
Datum
Anwender
Anzeige
Re: ActiveSheet.Protect mit weiteren Optionen
26.09.2002 13:32:15
Tobia
Sub BlattSchutzEinAus()
Application.Dialogs(xlDialogProtectDocument).Show
End Sub

oder im deine Code einfügen:

ActiveSheet.Protect
ActiveSheet.Unprotect

Re: ActiveSheet.Protect mit weiteren Optionen
26.09.2002 13:36:49
cjp
Sub DEINMAKRO()
ActiveSheet.Unprotect "deinPasswort"
'DEIN MAKRO CODE
ActiveSheet.Protect Password:="deinPasswort"
End Sub

Hallo Maik,

am Beginn deiner Makros jeweils den Blattschutz aufheben, am Ende wieder setzen. Eventuell mit Passwortschutz (Hier entweder mit Passwort:="deinPasswort" falls noch weitere Optionen folgen, oder nur "deinPasswort" für Blattschutz setzen/aufheben ohne weitere Optionen)

Gruss
Christian


Anzeige
Re: ActiveSheet.Protect mit weiteren Optionen
26.09.2002 13:42:51
Maik
>Sub BlattSchutzEinAus()
>Application.Dialogs(xlDialogProtectDocument).Show
>End Sub

Das gibt ja die Abfrage mit allen möglichen Schutzoptionen aus. Darauf will ich aber nicht hinaus. Die Optionen sollen automagisch durch das Makro gesetzt werden.

>oder im deine Code einfügen:
>ActiveSheet.Protect
>ActiveSheet.Unprotect

Und genau da hänge ich fest. Beim Protect mit Passwort funktioniert eigentlich alles, nur eben nicht nach meinen Vorstellungen.

Derzeit hab ich folgendes:

ActiveSheet.Protect "test", DrawingObjects:=False, Contents:=True, Scenarios:=True

Dummerweise können nach diesem Schutz auch ungesperrte Zellen nicht mehr beschrieben werden. Gesperrte hingegen können dann trotzdem ausgewählt werden. Es soll aber genau andersherum sein, also Auswahl gesperrter Zellen unmöglich, Änderung ungesperrter Zellen möglich.

:-(

Bis denne,

Maik *verzweifelt*

Anzeige
Re: ActiveSheet.Protect mit weiteren Optionen
26.09.2002 13:48:53
Maik
Sowiet war ich ja auch schon, nur eben soll es (wie in meiner Antwort an Tobia beschrieben) etwas mehr sein.

Bis denne,

Maik

Re: ActiveSheet.Protect mit weiteren Optionen
26.09.2002 13:57:53
cjp
Hallo Maik,

Lösungsansatz bleibt, am Anfang des Makros:

ActiveSheet.Unprotect "test"

Ende des Makros:

With ActiveSheet
.EnableSelection = xlUnlockedCells
.Protect Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:=True
End With

Setzt natürlich voraus, daß die Zelleigenschaften/Schutz richtig sind. (Gesperrt/nicht gesperrt für Auswahl nicht möglich/möglich)

gruss
Christian


Anzeige
Re: ActiveSheet.Protect mit weiteren Optionen
26.09.2002 14:03:24
Maik
Genau das war es. Besten Dank!

Bis denne,

Maik :-)

19 Forumthreads zu ähnlichen Themen

ActiveSheet.Unprotect - Bei Drehfeld
Heinz

Hallo Leute
Im unteren Code wird mir der Blattschutz nicht aufgehoben.
Hätte bitte jemand eine Lösung ?
Danke & Gruß
Heinz H
Option Explicit
Sub Drehfeld1_BeiÄnderung() ActiveSheet.Unprotect Application.Calculate ActiveSheet.Protect End Sub
16.11.2009 22:08:26
Thread-ID: 1117774
5 Beiträge
Anzeige
ActiveSheet.Protect löscht Zwischenablage
Wolfgang

Hallo Forum,
ich hoffe Ihr könnt wieder helfen.
Ich habe ein geschützes Excel Sheet mit wenigen editierbaren Zellen.
Ich habe in VBA ein Zeilenmarkierung programmiert. Mit dem Event 'Selection_Change' wird die jeweils aktive Zeile 'hervorgehoben'. Nachdem die Zellen teilw. geschützt...
06.07.2011 23:03:57
Thread-ID: 1221109
4 Beiträge
Active Sheet in neue Datei mit VBA
Andreas

Hallo Excelfreunde,
Habe folgenden Code der auch funktioniert.
Mit diesem Code kann ich aus meinem aktiven Sheet über einen CommandButton das aktive Sheet in eine Neue Datei die welche laut Makro Vorgabe neu erstellt wird mit allen Inhalten sowie vorhandenen CommandButtons einfügen. Das...
06.08.2014 18:37:07
Thread-ID: 1374800
5 Beiträge
Anzeige
VBA - Problem bei gesetztem "ActiveSheet.Protect"
Boory@gmx.net

Hallo Forum,
in einer Zeiterfassung, in der die MA sich per Transponder-Scan einloggen, wird VBA-seitig der Blattschutz (hier PW: 12345) aufgehoben, der Wert eingetragen und dann wieder geschützt (ActiveSheet.Unprotect / ActiveSheet.Protect). Dies funktioniert problemlos! Nun möchte ich übe...
16.08.2016 08:41:29
Thread-ID: 1509455
4 Beiträge
2 passwörter ausprobiert ActiveSheet.Unprotect
Pascal

Hallo zusammen,
folgendes Problem:
Wir benutzen ein Makro das uns verschiedene S-Verweise auf ein Excel File spielt das mit einem Blattschutz versehen ist. Nun wurde bei der letzten Aktualisierung auch das Password mitgeändert und es existieren nun 2 Versionen mit unterschiedlichen Blat...
31.07.2019 08:01:15
Thread-ID: 1705073
5 Beiträge
ActiveSheet.Unprotect unter excel 97 SR1
torsten

Hallo...ich habe ein Problem unter Excel 97, wenn ich Methoden wie Unprotect aufrufen möchte... Die Fehlermeldung lautet, dass die Methode fehlerhaft ist.
Wenn ich dann in Excel das Menü öffne, sind diverse Befehle gesperrt (unter anderem auch die Eigenschaft "Blatt schützen" unter Extras->...
13.01.2003 17:12:41
Thread-ID: 202770
3 Beiträge
ActiveSheet.Unprotect funkt nicht
Frank

HalloIch habe in einer Tabelle einen Befehlsknopf zur Ausführung eines Makros eingefügt.
Die Tabelle ist geschützt, damit nur Eingaben in den erlaubten Zellen gemacht werden können. Damit ich Zeilen einfügen kann, muss ich den Blatschutz herausnehmen. Dies funktioniert jedoch nicht mit dem B...
16.02.2003 23:16:32
Thread-ID: 220009
4 Beiträge
ActiveSheet.Unprotect funkt nicht
Frank

HalloIch habe in einer Tabelle einen Befehlsknopf zur Ausführung eines Makros eingefügt.
Die Tabelle ist geschützt, damit nur Eingaben in den erlaubten Zellen gemacht werden können. Damit ich Zeilen einfügen kann, muss ich den Blatschutz herausnehmen. Dies funktioniert jedoch nicht mit dem B...
16.02.2003 23:16:32
Thread-ID: 220010
9 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
4
3
3
4
14
3
4
2
3
8
7
2
4
3
2
4
1
3
3