Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1068to1072
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
1068to1072
1068to1072
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blattschutz mit Ausnahmen per VBA

Blattschutz mit Ausnahmen per VBA
13.04.2009 12:33:19
Fritz_W
Hallo Excelfreunde,
ich würde gerne per Makro folgendes erledigen:
Im jeweils aktiven Tabellenblatt sollte ein Blattschutz mit Passwort (z.B. "geschuetzt" gesetzt werden.
Eingaben sollten jedoch weiterhin in allen Zellen des Zellbereichs "B2:K12" möglich sein, die zu diesem Zeitpunkt leer sind.
Für eure Unterstützung im Voraus besten Dank
und allen Forumsbesuchern noch einen schönen Osterfeiertag
mfg
Fritz

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz mit Ausnahmen per VBA
13.04.2009 12:37:39
Tino
Hallo,
gebe den Parameter bei Protect "UserInterfaceOnly" mit True an. (siehe auch in der Hilfe)
Dieser muss bei jedem öffnen der Datei neu gesetzt werden.
Beispiel: Tabelle1.Protect "xxx", , , , True
Gruß Tino
AW: Blattschutz mit Ausnahmen per VBA
13.04.2009 12:45:27
Fritz_W
Hallo Tino,
vielen Dank für deine Hilfe.
Leider reichen meine VBA-Kenntnisse nicht aus, um Deine Vorgaben erfolgreich umzusetzen.
Brauche zusätzliche Hilfe.
mfg
Fritz
AW: Blattschutz mit Ausnahmen per VBA
13.04.2009 13:01:37
Tino
Hallo,
habe Dich wahrscheinlich falsch verstanden.
Du möchtest ja Handeingabe in leeren Zellen zulassen.
Versuche es mal so.
kommt als Code in DieseArbeitsmappe 
Option Explicit 
 
Private Sub Workbook_Open() 
Dim Bereich As Range 
 
Set Bereich = ActiveSheet.Range("B2:K12") 
ActiveSheet.Protect "xxx", , , , True 
 
For Each Bereich In Bereich 
 Bereich.Locked = Not Bereich = "" 
Next Bereich 
End Sub 
 
Private Sub Workbook_SheetActivate(ByVal Sh As Object) 
Dim Bereich As Range 
 
Set Bereich = Sh.Range("B2:K12") 
Sh.Protect "xxx", , , , True 
 
For Each Bereich In Bereich 
 Bereich.Locked = Not Bereich = "" 
Next Bereich 
 
End Sub


Gruß Tino

Anzeige
AW: Blattschutz mit Ausnahmen per VBA
13.04.2009 15:30:39
Fritz_W
Hallo Tino,
sorry, dass ich erst so spät antworte, ich bekam (überraschend) Besuch.
Dein Code funktioniert wie gewünscht.
Besten Dank.
Schönen Feiertag noch
Fritz

304 Forumthreads zu ähnlichen Themen

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
Anzeige
Blatt schützen in Verbindung mit Sortieren
Toby76

Hallo beisammen,
ich habe große Datenmengen aus SAP ausgelesen und will sie zur Bearbeitung an Kollegen weitergeben (siehe Musterdatei anbei). Die Kollegen sollen aber nur die gelb markierten Felder bearbeiten können, den Rest habe ich über Blatt schützen geschützt. Beim Schützen habe ich i...
08.09.2009 14:52:03
Thread-ID: 1101273
6 Beiträge
Makro für alle Arbeitsblätter
Basti

Guten Morgen zusammen,
am frühen Morgen macht VBA mal wieder nicht das, was ich möchte.
Folgendes Problem:
Ich habe ein Makro in einem Arbeitsblatt aufgezeichnet und möchte nun, dass dieses Makro in allen Arbeitsblättern ausgeführt wird. (Die Anzahl der Arbeitsblätter sind in mehrer...
27.08.2010 08:50:58
Thread-ID: 1174432
8 Beiträge
Anzeige
Makro auf alle Tabellenblätter laufen lassen
Teggnodd

Hallo,
ich habe ein digitales Oszilloskop mit dem ich alle paar Minuten Werte aufnehmen will, dazu benutze ich Excel. Ich habe mir schon ein kleines Makro zum auslesen der Werte erstellt, hat auch ganz gut Funktioniert. Nun möchte ich aber auch ein Diagramm zu den Werten haben. Dazu habe ic...
13.12.2011 11:19:06
Thread-ID: 1241841
7 Beiträge
Makro für alle Tabellenblätter (Filter,ausblenden.
Maggie

Hallo
ich habe 3 Makros welche nur auf dem aktiven Tabellenblatt laufen, bräuchte sie aber so das sie gleichzeitig in allen Tabellenblättern laufen... habe Null-Ahnung wie ich das hin bekommen soll...
kann mir bitte jemand dabei helfen?
Gruß
Maggie
hier die 3 Makros
---...
06.05.2012 15:13:47
Thread-ID: 1262489
9 Beiträge
Makro - für allen Tabellenblätter gültig
Herbert

Hallo,
wie kann man dieses Makro abändern, dass auf es nicht nur auf dem aktuellen Tabellenblatt sondern auf allen Blättern der Datei ausgeführt wird?
Sub spalte_c_ausblenden() ' spalte_c_ausblenden Makro Columns("C:C").Select Selection.EntireColumn.Hidden = True End Sub vielen Dank im...
14.11.2012 16:54:04
Thread-ID: 1286665
7 Beiträge
Abfrage ob Blattschutz mit Passwort gesetzt wurde
DominikHH

Hallo zusammen,
ich muss in einem Arbeitsblatt überprüfen, ob ein Blattschutz gesetzt wurde und - wenn das der Fall ist - ob auch ein Passwort vergeben wurde.
Im Fall, dass zusätzlich ein Passwort gesetzt wurde, muss ich anders reagieren, als wenn nur das Blatt geschützt wurde (dann kan...
22.11.2012 15:49:32
Thread-ID: 1287706
2 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
Anzeige

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