Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1864to1868
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
1864to1868
1864to1868
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Bereiche in TB sperren

Mehrere Bereiche in TB sperren
13.01.2022 06:57:47
Andrea
Hallo,
ich möchte in 25 Tabellenblättern, die alle gleich aufgebau sind, mehrere Bereiche, in denen Formeln stehen, sperren bzw. mit einem Passwort belegen.
Die Bereiche sind jeweils "L4:BG10", "F13:F56", "H13:I56", "K13:K56".
Mit der Methode "Zellen formatieren - Gesperrt aufheben - Strg+G/Formeln - u.s.w." kann ich das ja für jedes TB einzeln machen, aber das dauert halt länger.
Gibt es die Möglichkeit, das als Makro umzusetzen? Wenn ja, wie?
Danke für eure Hilfe und
viele Grüße
Andrea

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Bereiche in TB sperren
13.01.2022 09:07:47
Piet
Hallo
Probier bitte mal diese Kombination von Blattschutz und Enable xlUnlockedCells. Da können die Zellen mit Formeln nicht mehr angeklickt werden!
Blätter die nicht geschützt werden sollen kannst du überspringen, indem du bei "überspringen" den Blattnamen angibst. Bei mehreren Blättern weitere If Zeilen einfügen.
mfg Piet
  • 
Sub Schutz_aktivieren()
On Error Resume Next
For j = 1 To Worksheets.Count
With Worksheets(j)
If .Name = "überspringen" Then GoTo weiter  'ggf. Blatt überspringen
If .Cells.SpecialCells(xlCellTypeFormulas).Count = 0 Then GoTo weiter
.Unprotect  'Formelbereich sperren
.Cells.Locked = False  'ganzes Blatt entsperren!
.Cells.SpecialCells(xlCellTypeFormulas).Locked = True
.EnableSelection = xlUnlockedCells
.Protect
weiter:  'ggf. Blätter übersrpingen
End With
Next j
End Sub

    • Anzeige
    AW: Mehrere Bereiche in TB sperren
    13.01.2022 09:34:51
    Andrea
    Hallo Piet,
    vielen Dank für Deine Hilfe.
    Funktioniert prima.
    Viele Grüße
    Andrea

    307 Forumthreads zu ähnlichen Themen

    Info aus mehreren Spaltenüberschriften entnehmen
    mopitz

    Hallo,
    Da mein Problem etwas komplex ist, füge ich eine Datei zur Veranschaulichung an.:
    https://www.herber.de/bbs/user/56058.xls
    Ich möchte in der ersten Tabelle zu den Spalte "Kunde"(kommt nur einmal vor) die Technologie reinschreiben lassen. Diese Info erhalte ich aus der "Tabell...
    16.10.2008 13:34:19
    Thread-ID: 1016847
    7 Beiträge
    Anzeige
    mehrere Wenn abfragen in einer Formel
    skippy

    Hallo stehe im mom auf den schlauch
    möchte gern folgende Abfrage machen krieg aber die Formel nicht hin
    Wenn e7-d7>=10;2;0 wenn e7-d7>8;1,5;0 wenn e7-d7>6;1;0 wenn e7-d7>4;0,5;0
    Wie muss ich die Formel schreiben, bekomme immer einen Syntaxfehler wenn ich daraus eine Fo...
    01.01.2009 21:42:55
    Thread-ID: 1036302
    4 Beiträge
    Filter - Kriterium in mehreren Spalten
    walter

    Hallo,
    ich stöbere nun schon seit zwei Tagen in der Excel-Hilfe und in diesem Forum und finde keine Lösung für mein Problem:
    Ich habe eine Liste, in der jeder Datensatz 5 Kategorien zugeteilt ist. Das Problem ist dabei, dass ein und dieselbe Kategorie in verschiedenen Spalten stehen kan...
    15.01.2009 08:33:57
    Thread-ID: 1039897
    3 Beiträge
    Anzeige
    Auswahlliste über mehrere Spalten
    Roland

    Hallo zusammen,
    folgendes Problem:
    In Tabellenblatt 2 sind Kontaktdaten vorhanden.
    Nun möchte ich im Tabellenblatt 1 im Feld "Name" eine Auswahlliste mit Bezug auf Tabellenblatt 2 erstellen. Das ist mit der Gültikeitsprüfung ja auch kein Problem.
    Jetzt möchte ich, dass auch in d...
    17.07.2009 10:49:06
    Thread-ID: 1089312
    19 Beiträge
    Sverweis und suche suche über mehrere Spalten
    Sabine

    Hi
    Folgendes Problem. In Tabelle1 Spalte A stehen werte, die in Tabelle 2 in Spalte B-F gesucht werden sollen und dann der wert aus Spalte X ausgegeben werden.
    Mit Sverweis geht das nicht, aber wie dann?
    30.07.2009 18:44:34
    Thread-ID: 1092620
    2 Beiträge
    Zählenwenn in mehreren Ranges Highspeed
    Jan

    Hallo,
    Ich muss in mehreren Bereichen überprüfen, ob eine der Zellen in den Bereichen einen Wert enthält. Da die Excelfunktion "Zählenwenn" nur einen Bereich unterstützt, habe ich mir folgende Funktion in VBA geschrieben.
    Function ZÄHLE(Wert As String, ParamArray Rng() As Variant) As I...
    03.10.2009 14:08:20
    Thread-ID: 1106968
    15 Beiträge
    Bedingte Formel über mehrere Spalten/Zeilen?
    Sebastian

    Ich möchte, das ein bestimmter Bereich Rot wird wenn in einer Zelle ein "ja" steht.
    z.B. sollen die Felder A10 bis G10 Rot werden wenn in der Spalte M10 ein ja steht.
    Das geht ja auch mit der "Bedingten Formatierung". Dort hatte ich eingegebem:
    Zellwert ist ungleich =$M$10="ja" (un...
    22.10.2009 10:51:11
    Thread-ID: 1111308
    2 Beiträge
    Formeln in mehreren Sheets ändern
    Sven

    Hallo,
    ich habe eine Tabelle mit meheren Seiten
    Persdaten
    Stammdaten
    23
    24
    25
    usw.
    jetzt habe ich gemerkt, dass ich in allen tabellen Formelfehler habe (außer in Persdaten)
    jetzt möchte ich per Makro gern in allen Tabellenblättern diese Fehler beheben.
    wi...
    16.11.2009 02:44:50
    Thread-ID: 1117475
    2 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
    3
    2
    2
    18
    1
    14
    1
    1
    2
    2
    2
    5
    2
    4
    3
    5
    8
    4
    3
    3
    3
    11
    13