Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1088to1092
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
Inhaltsverzeichnis

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

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige