Zellen sperren bei erfüllter Bedingung

Bild

Betrifft: Zellen sperren bei erfüllter Bedingung
von: Heike
Geschrieben am: 03.11.2015 22:26:27

Hallo liebes Forum,
ich möchte in einer Excel-Tabelle immer, wenn in Spalte I der Wert "ZF" eingegeben wird, die jeweiligen Zellen von A bis H sperren:
Also wenn in I2 "ZF" steht, sollen die Zellen A2 bis H2 gesperrt werden,
wenn in "I3" "ZF" steht, sollen die Zellen A3 bis H3 gesperrt werden usw.
Wie muss ich den Code entsprechend abändern, damit das funktioniert?
Anbei die entsprechende Beispieldatei mit dem bisherigen Code:
https://www.herber.de/bbs/user/101225.xlsm
Ich hoffe, es kann mir jemand weiterhelfen.....
Herzlichen Dank im Voraus.
Freundliche Grüße,
Heike

Bild

Betrifft: AW: Zellen sperren bei erfüllter Bedingung
von: Sepp
Geschrieben am: 03.11.2015 22:39:36
Hallo Heike,

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
With Target(1, 1)
  If .Column = 9 Then
    Me.Unprotect
    Range(Cells(.Row, 1), Cells(.Row, 8)).Locked = .Value = "ZF"
    Me.Protect
  End If
End With
End Sub

Gruß Sepp


Bild

Betrifft: AW: Zellen sperren bei erfüllter Bedingung
von: Heike
Geschrieben am: 03.11.2015 23:41:54
Hallo Sepp,
herzlichen Dank für deine schnelle Rückmeldung, es funktioniert :-)
Liebe Grüße,
Heike

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zellen sperren bei erfüllter Bedingung"