• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

dubbelklick loopt vast

Status
Niet open voor verdere reacties.

bikkel9

Gebruiker
Lid geworden
11 mrt 2008
Berichten
50
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
 
Al een poging gedaan met :
Code:
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 "
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan