Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A:XFD")) Is Nothing Then If Target <> "" Then ActiveSheet.Unprotect Target.Locked = True ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End If End If End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.