dubbelklick loopt vast

[bikkel9]

beste mensen

met behulp van het forum een formulier gemaakt voor een paar digibeten
alleen ze maken er nogsteeds een puinhoop van nu wil ik het blad beveiligen maar als ik dat doe dan werkt de dubbelklick niet meer
en geeft de macro een fout
hieronder de macro hij geeft bij numberformat aan dat het niet goed gaat
is het mischien mogelijk om in de macro de bladbeveiliging te verwijderen en aan het eind weer in te schakelen

[JS]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

With Target

Select Case .Column

Case 2

.Value = Date
.NumberFormat = "m/d/yyyy"

Case 5, 6

.Value = Now - Date
.NumberFormat = "h:mm"

End Select

End With

End Sub[/JS]

met vriendelijke groeten

bikkel9

 

[trucker10]

Al een poging gedaan met :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 ActiveSheet.Unprotect
    With Target
 ' de rest van de code 

  ActiveSheet.Protect
End Sub

eventueel uitbreiden met een " UserInterfaceOnly:= TRUE "

 

[bikkel9]

Hoi trucker10

ziet eruit of dat gaat werken
bedankt