• 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.

spelling controle aanzetten in beveiligd werkblad

Status
Niet open voor verdere reacties.
W

wimix69

Gebruiker
Lid geworden
19 mrt 2011
Berichten
202
Hallo,

kan iemand een macro maken zodat de spelling controle wel werkt in een beveiligd werkblad waar een tekst vlak in staat? zie voorbeeld
 

Bijlagen

  • spelling controle.xlsx
    12,2 KB · Weergaven: 21
zo ?
Code: 
Sub ControleSpelling()
 ActiveSheet.Unprotect "test"
 Cells.CheckSpelling SpellLang:=1043
 ActiveSheet.Protect "test"
End Sub
 
Dan krijg je zoiets:
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$C$7:$H$12" Then
        ActiveSheet.Unprotect "test"
        Target.CheckSpelling SpellLang:=1043
        ActiveSheet.Protect "test"
    End If
End Sub
 
Ik Heb nu een macro toe gevoegd maar wat doe ik verkeerd?
 

Bijlagen

  • spelling controle met macro.xlsm
    15,8 KB · Weergaven: 18
Die hoort niet in een module thuis maar achter het werkblad.
 
Met dubbelklilck,
zet deze in het werkblad.
Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$C$7:$H$12" Then
        ActiveSheet.Unprotect "test"
        Target.CheckSpelling SpellLang:=1043
        ActiveSheet.Protect "test"
    End If
'    Cancel = True
End Sub
 
Soms vraag je je af waarom er zoveel berichtjes nodig zijn voor een simpele vraag, als het antwoord er al na 3 berichtjes is :).
 

Bijlagen

  • spelling controle.xlsm
    19 KB · Weergaven: 19
Hallo,

Ik heb hem achter het werkblad gezet maar werkt niet? Wat doe ik fout?
 

Bijlagen

  • spelling controle met macro.xlsm
    18,9 KB · Weergaven: 22
Doet het prima, als je er maar voor zorgt dat er een fout geschreven woord in staat.
Zet tevens die Cancel = True voor de End If en haal het commentaar teken er voor weg.
 
Laatst bewerkt:
Hallo,

Toch nog een vraagje, Ik wil nog een extra cel toe voegen.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = ("$C$7:$H$12") AndTarget.Address("$C$14:$H$19") Then
ActiveSheet.Unprotect "test"
Target.CheckSpelling SpellLang:=1043
ActiveSheet.Protect "test"
' Cancel = True
End If
End Sub

Wat heb ik verkeerd gedaan?
 
And moet Or zijn en je mist er een spatie:
Code: 
If Target.Address = ("$C$7:$H$12")[COLOR="#FF0000"] Or [/COLOR]Target.Address("$C$14:$H$19") Then

Je hebt ook dat commentaar teken nog voor Cancel staan.
 
Laatst bewerkt:
Hallo,

Ik krijg nu een foutmelding?
 

Bijlagen

  • spelling controle met macro.xlsm
    19,7 KB · Weergaven: 18
Code: 
If Not Intersect(Target, Range("C7,C14")) Is Nothing Then
 
Hallo,

Ik loop nu tegen een ander probleem aan. Ik kan de tekst niet meer bewerk. Is er een mogelijkheid dat dit toch kan?
 

Bijlagen

  • spelling controle met macro.xlsm
    19,8 KB · Weergaven: 18
Zet de code eens in de Private Sub Worksheet_BeforeRightClick
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan