besked: "undtagelse opstod"
hvad går der galt her?jeg får beskeden: "untagelse opstod"
(det virker fint, når jeg ikke låser)
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ActiveSheet.Unprotect "admin"
Sheets(ActiveSheet.Name).Cells(3, 1).Value = Me.TextBox1.Text
ActiveSheet.Protect "admin", DrawingObjects:=True, Contents:=True, Scenarios:=True
