Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.10.2025 05:06:02
Mahjong gratis: gioco di puzzle senza tempo
04.10.2025 05:04:16
Mahjong gratuito: gioco di puzzle senza tempo
03.10.2025 22:18:19
Dropdown
03.10.2025 20:19:48
Formatierung bei Zelländerung
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1256to1260
1256to1260
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellschutz für best. Bereich

Forumthread: Zellschutz für best. Bereich

Zellschutz für best. Bereich
Matthias
Hallo @All,
da bin ich schon wieder, diesmal mit folgenden Code Zeilen:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
ActiveSheet.Unprotect
For i = 1 To Target.Count
If Target(i)  "" Then Target(i).Locked = 1
Next i
ActiveSheet.Protect
End Sub
Habe gleich 2 Aufgaben für Euch
1 , diesen Code brauche ich nur im Bereich D4:Q33 (-locked)
2 , wie müßte ich das ganze wieder aufheben (-unloocked)
Gruß Matthias
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Zellschutz für best. Bereich
01.04.2012 18:23:54
Hajo_Zi
Hallo Matthias,
Du hast nicht geschrieben wann aufheben. Ich habe es jetzt als umkehr programmiert.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range                  ' Variable für Bereich
Dim RaZelle As Range                    ' Variable für Zelle
' Bereich der Wirksamkeit
Set RaBereich = Range("D4:Q33")
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If Not RaBereich Is Nothing Then
ActiveSheet.Unprotect
For Each RaZelle In RaBereich
With RaZelle
RaZelle.Locked = Not RaZelle.Locked
Next RaZelle
ActiveSheet.Protect
End If
Set RaBereich = Nothing                 ' Variable leeren
End Sub

Anzeige
@Hajo - vergessen zu erwähnen,...
01.04.2012 18:40:44
Matthias
Hallo Hajo,
habe glatt vergessen das es 2 getrennt Makros werden sollen,
vorab schon einen recht schönen Dank für die komplett Varriante.
Gruß Matthias
AW: @Hajo - vergessen zu erwähnen,...
01.04.2012 18:43:43
Hajo_Zi
Hallo Mattias,
dann den Code so 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range                  ' Variable für Bereich
Dim RaZelle As Range                    ' Variable für Zelle
' Bereich der Wirksamkeit
Set RaBereich = Range("D4:Q33")
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If Not RaBereich Is Nothing Then
ActiveSheet.Unprotect
For Each RaZelle In RaBereich
With RaZelle
RaZelle.Locked = RaZelle  ""
Next RaZelle
ActiveSheet.Protect
End If
Set RaBereich = Nothing                 ' Variable leeren
End Sub
Sub Aufheben()
Dim RaBereich As Range                  ' Variable für Bereich
Dim RaZelle As Range                    ' Variable für Zelle
' Bereich der Wirksamkeit
Set RaBereich = Range("D4:Q33")
ActiveSheet.Unprotect
For Each RaZelle In RaBereich
With RaZelle
RaZelle.Locked = False
Next RaZelle
ActiveSheet.Protect
Set RaBereich = Nothing                 ' Variable leeren
End Sub
Gruß Hajo
Anzeige
AW: @Hajo - besten Dank --owT.
01.04.2012 18:47:19
Matthias
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige