Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1960to1964
1960to1964
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einzelne Zellen / Ranges mit VBA sperren

Forumthread: Einzelne Zellen / Ranges mit VBA sperren

Einzelne Zellen / Ranges mit VBA sperren
25.01.2024 09:09:26
Ben
Hallo Zusammen,

ich versuche, einzelne Ranges in einem Tabellenblatt zu sperren.

Dazu gehe ich z.B. folgendermaßen vor:

Worksheets("MyTable").Unprotect
Sheets("MyTable").Range(A12:B37).Select
Selection.Locked = False
Worksheets("Notenliste").Protect

Das funktioniert nicht.

Warum?

Vielen Dank und viele Grüße
Ben
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einzelne Zellen / Ranges mit VBA sperren
25.01.2024 09:27:21
UweD
Hallo

- du entsperrst / sperrst 2 unterschiedliche Tabellenblätter
- locked= False bedeutet NICHT gesperrt
- Bei der Rangeangabe fehlen die ""


so?? 
    With Worksheets("MyTable")

        'Blatt entsperren

        .Unprotect

        

        'Alle Zellen freigeben

        .Cells.Locked = False

        

        'deinen Bereich sperren

        .Range("A12:B37").Locked = True

        

        'Blatt schützen

        .Protect

    End With

LG UweD
Anzeige
AW: Einzelne Zellen / Ranges mit VBA sperren
25.01.2024 09:46:15
Ben
Danke Uwe,

da ist einiges schiefgelaufen in meinem Post.
Im Code sieht es anders aus.
Natürlich steht da

Worksheets("MyTable").Unprotect
Sheets("MyTable").Range("A12:B37").Select
Selection.Locked = True
Worksheets("MyTable").Protect

Das ist natürlich nur ein Beispiel.

Es funktioniert einfach nicht.

Kann das mit einem früheren Blattschutz zusammenhängen, der aus der Bedienoberfläche erfolgte?

Das Problem liegt wohl auch daran, dass ich mehrere Bereiche sperren will.
Diese Bereiche durchlaufe ich mit einer Schleife.

Was könnte das sein?!?
Anzeige
AW: Einzelne Zellen / Ranges mit VBA sperren
25.01.2024 10:43:36
Ben
Danke Uwe für Deinen sachlichen und Hilfreichen Post.

Ich habe das Problem gefunden.

Bei meinem Tabellenblatt sind verbundene Zellen enthalten.
Damit wird die .selection ausgeweitet unabhängig von der angegebenen Range.
Damit haben dann auch die Zuweisungen von Locked und Unlocked nicht richtig funktioniert.

Es hat mich einiges an Zeit gekostet.
Ist aber auch ein blöder Fehler.

VG
Anzeige
AW: Einzelne Zellen / Ranges mit VBA sperren
25.01.2024 11:19:31
UweD
Hallo nochmal

Auf select und activate kann in 99% im Code verzichtet werden. Dadurch wird der Ablauf wesentlich ruhiger und schneller.
Siehe meinen Code im anderen Post


LG UweD
AW: Einzelne Zellen / Ranges mit VBA sperren
25.01.2024 10:38:34
UweD
Hallo
1) Es funktioniert einfach nicht.
Was genau?
versuch mal das Makro im Einzelschritt (F8) zu durchlaufen

2) Kann das mit einem früheren Blattschutz zusammenhängen, der aus der Bedienoberfläche erfolgte?
hast du ein Passwort gesetzt? dann musst du das beim Entsperren im Code auch angeben 
        .Unprotect "Geheim"


3) Diese Bereiche durchlaufe ich mit einer Schleife.
Ich weiß nicht, wie du deine Schleife aufgebaut hast.
Ich würde es so machen: 
Sub dsd()

    Dim i As Integer

    With Worksheets("MyTable")

        'Blatt entsperren

        .Unprotect

        

        'Alle Zellen freigeben

        .Cells.Locked = False

        

        'Schleife

        For i = 12 To 100 Step 49 ' Bespiel: im ersten Durchlauf A12:B37

            'deinen Bereich sperren

            .Cells(i, 1).Resize(26, 2).Locked = True 'immer 27 Zeilen

        Next

        'Blatt schützen

        .Protect

    End With

End Sub


LG UweD
Anzeige

Forumthreads zu verwandten Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Anzeige
VBA Range Definition
Karen

Hallo Forum,
ich habe ein kleines Problem in meinem Makro.
Ich möchte eine Range abbilden, leider überträgt das Makro aber immer nur die Zeile 6.
For i = 2 To 256
If Cells(3, i).Value = datum Then
Range(Cells(6, i), Cells(40, i)).Copy
Selection.Copy
Cells(6, i + 1)...
22.12.2008 16:21:00
Thread-ID: 1034798
14 Beiträge
Daten fortlaufend von Formular in Range schreiben
Formular

Hi,
wie kann ich denn folgende Abfrage bzw kopieren erledigen:
Ich habe Ein Formular mit Textbox'n und Combobox'n
auf einem Bestimmte Tabellenblatt ("Daten") möchte ich nun die Folgenden Inhalte kopieren (button)
Auf dem Tabellenblatt ("Daten") habe ich ein Range B33 : F42 (also...
29.01.2009 09:26:24
Thread-ID: 1044806
3 Beiträge
Array-Formel in VBA
Peter

Hallöchen liebe Excel Gemeinde,
ich hab da ein kleines Problem, wo ich hoffe, dass mir die VBA Spezialisten unter Euch helfen können.
Und zwar geht es um folgende Formel im VBA Code:
wb1.Worksheets(letztdat3).Cells(4, d).FormulaArray = _ "=SUM(COUNTIF(INDIRECT("""" & TRANSPOSE...
02.02.2009 17:28:00
Thread-ID: 1046339
6 Beiträge
VBA: Array. Doubletten verhinder oder aussortieren
Martin

Einen wunderschönen guten Tag,
ich möchte gerne eine Excel-Spalte in ein VBA-Array einlesen. Beispiel einzulesende Spalte:
A
A
B
B
B
C
In dem Array soll hinterher jedes Element nur einmal drin sein. Beispiel Array-Inhalt:
A
B
C
Ich bin mir unsiche...
19.05.2009 11:24:52
Thread-ID: 1076085
3 Beiträge
VBA: Array. Doubletten verhinder oder aussortieren
Martin

Einen wunderschönen guten Tag,
ich möchte gerne eine Excel-Spalte in ein VBA-Array einlesen. Beispiel einzulesende Spalte:
A
A
B
B
B
C
In dem Array soll hinterher jedes Element nur einmal drin sein. Beispiel Array-Inhalt:
A
B
C
Ich bin mir unsiche...
19.05.2009 11:49:54
Thread-ID: 1076091
2 Beiträge
For Each zelle In Range("a2:a1000") erweitern
Karsten

Hallo,
Wenn ich diesen Befehl ausführe befinde ich mich gerade in Tabelle1. Ich möchte aber, dass u.s. Befehl in Tabelle2 ausgeführt wird. Kann mir jemand die Tabelle2 in den Befehl hineinkonstruieren.
Danke.
Gruß
Karsten
Dim zelle As Range
For Each zelle In Range("a2:a...
08.07.2009 10:59:35
Thread-ID: 1087125
3 Beiträge
Anzeige
Range Bezüge in VBA von fix auf relativ umstellen
fix

Hallo Herber Fans,
ich ermittle einen Range:
Set rgGPTMember_Source = Intersect(rgGPTMemberAugmentation.Rows(1).Find("GPT Member", LookIn:=xlValues, LookAt:=xlWhole).EntireColumn, rgGPTMemberAugmentation)
Dessen Adresse lautet dann: $G$5:$G$34
Dieser Range wird nun in eine Namen...
07.01.2010 21:06:12
Thread-ID: 1128031
7 Beiträge
Anzeige
Array In Vba
@lex

Hallo VBA-Spezialisten !
Seit graumer Zeit suche ich ein Code-Gerüst um Arrays in VBA zu programmieren.Hintergrund:
Ich habe ca. 500 Shapes (MSMap) in einem Blatt.
Mit einer Schleife wird jedes Objekt auf eine Eigenschaft geprüft.
Ist die Prüfung wahr, dann soll dieses Objekt der Se...
12.04.2002 11:59:16
Thread-ID: 112756
4 Beiträge
Range in Array füllen, Problem bei Cells.Count = 1
Andreas

Hallo VBA Freunde,
ich habe es heute zum ersten mal angewandt, ein Array nicht mit einer Schleife, sondern gleich als einen Block zu füllen. Dank Renee konnte ich auch den Fehler beheben, daß ich mein Array nur eindimensional eingerichtet hatte.
Also für Ranges mit mehr als 1 Zelle funk...
22.02.2010 16:33:21
Thread-ID: 1140417
7 Beiträge
VBA range definieren
Benjamin

Guten Tag an alle,
ich habe ein Problem, bei dem ich zur Zeit kläglich scheitere.
Ich möchte eine Formel nach unten ausfüllen und zwar genau so oft, wie ich in einer Spalte Werte habe.
Also, wenn ich Z.b. in Spalte H1:H4 werte habe, soll die formeln auch von z.B. A1:C4 kopiert werde...
25.02.2010 14:42:10
Thread-ID: 1141514
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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