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

VBA Zellsperrung erweitern

Forumthread: VBA Zellsperrung erweitern

VBA Zellsperrung erweitern
Alexander
Hallo erstmal
Dies hab ich hier aus dem Forum wie kann ich dies auf die Zellen G100 bis G108 erweitern? 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$100" Then
ActiveSheet.Unprotect
Target.Locked = True
ActiveSheet.Protect
End If
End Sub
MfG
Stefan
Anzeige

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

Betreff
Benutzer
Anzeige
AW: VBA Zellsperrung erweitern
24.07.2009 13:20:57
Hajo_Zi
Hallo Alexander,
If Intersect(Target.Address , Range("G100:G108"))

AW: VBA Zellsperrung erweitern
24.07.2009 13:27:01
Alexander
Sorry sollte so kann es wohl nicht aussehen ?
damit bekomme ich nen fehler
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target.Address, Range("G100:G108")) Then
ActiveSheet.Unprotect
Target.Locked = True
ActiveSheet.Protect
End If
End Sub

Anzeige
AW: VBA Zellsperrung erweitern
24.07.2009 13:54:57
Hajo_Zi
Hallo Alexander,
jetzt mit Prüung. 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range
Set RaBereich = Range("G100:g108")
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If Not RaBereich Is Nothing Then
ActiveSheet.Unprotect
Target.Locked = True
ActiveSheet.Protect
End If
Set RaBereich = Nothing
End Sub
Gruß Hajo
Anzeige
Danke Thats it
24.07.2009 14:03:55
Alexander
Thanks a lot
;

Beliebteste Forumthreads (12 Monate)

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