wil geen foutmelding

[bikkel9]

Beste leden

bij onderstaande macro wordt er door dubbelklick in de cel de datum en tijd ingevoerd
om te voorkomen dat mensen toch met de hand gaan invullen zijn de cels beveiligd
en worden bij het begin van de marco onbeveiligd en aan het eind weer beveiligd
op zich werkt het prima alleen ik krijg steeds de melding dat de cels beveilgd zijn en deze moet je dan steeds weg klikken is hier een oplossing voor?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ActiveSheet.Unprotect "bikkel9"
    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
ActiveSheet.Protect "bikkel9"
End Sub

alvast bedankt voor de moeite

 

[Wister]

Beste Bikkel9,

Ik denk dat je ook weet dat het, hoogstwaarschijnlijk, door het dubbelklikken komt.
De eerste keer dat je dubbelklikt weet Excel niet dat je de macro aanroept.

Dus kan je niet een macro schrijven waarbij je niet twee maar één keer klikt?

Groet en succes