VBA: Zeile ensperren, wenn Wert in Zelle
11.09.2018 13:33:28
Boris
ich versuche mich schon eine Weile an folgender Aufgabenstellung:
Workbook mit 5 Sheets, alle Zellen der Sheets locked, alle Sheets protected durch folgenden Code in ThisWorkbook:
Option Explicit
Private Sub Workbook_Open()
'Protect all Sheets
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect Password:="123"
Next ws
End Sub
Nun soll aber jeweils in Sheet1-3 die Zeilen editierbar sein, wenn in der ersten Zelle der jeweiligen Zeile der Wert ("A") ist, ansonsten soll die jeweilige Zeile gesperrt bleiben.Ich habe schon einige gefundene Schnipsel ausprobiert und versucht abzuwandeln, leider ohne Erfolg. Somit wäre ich für eine maßgeschneiderte Antwort dankbar.
Gruß Boris