Privé SubWorksheet_Change (Doel ByVal als Waaier)
Op Fout GoTo errHandler
Application.EnableEvents = Vals
Als Target.Column = 12 en Target.Count = 1 toen
Vraag UnProtect
Als toen <> Rijen Target.Value "" (Target.Row). Gesloten = Waar
De vraag beschermt
Anders
Eind als
geëindigdh:
Application.EnableEvents = Waar
Sub van de uitgang
errHandler:
MsgBox Err.Number & „-“ & Err.Description
Hervat geëindigd
Beëindig Sub
|