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
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