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

Cel beveiligen adhv andere celwaarde

Status
Niet open voor verdere reacties.
hoogteijling

hoogteijling

Terugkerende gebruiker
Lid geworden
12 aug 2005
Berichten
4.261
Hallo allemaal,

In bijgevoegd bestand zou ik graag het volgende willen:
Wanneer in C3 "Nee" wordt gekozen dan moet in D3 de datum uit B3 komen.
(Dat werkt al)
Vervolgens moet D3 beveiligd (geblokkeerd) worden.

Wanneer in C3 "Ja" wordt gekozen moet de datum in D3 vrij invulbaar zijn.

Dit moet vervolgens ook voor D4, D5, D6, etc gelden.

Groeten Marcel
Bekijk bijlage Opschoon formulier.xlsm
 
Laatst bewerkt:
Een andere manier van 'beveiligen'

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$3" Then
        With Target.Offset(, 1)
            .Validation.Delete
       
            If LCase(Target.Value) = "nee" Then
                .Validation.Add 4, 1, 3, "=today()"
                .Value = Date
            End If
        End With
    End If
End Sub
 
Bedankt voor de snelle reactie SNB :)
Waar moet ik deze code zetten, in een module, of .....
Ik heb geen verstand van VBA.
Wat doet deze code ?

Groeten Marcel
 
Laatst bewerkt:
Zie de bijlage.
 

Bijlagen

  • __formulier snb.xlsm
    77,8 KB · Weergaven: 63
Waarom is de validatie verdwenen uit C3 ?
Wanneer ik het blad beveilig komt er een foutmelding vanuit de VBA wanneer ik "Nee" invul.

Groeten Marcel
 
Marcel,

waarom heeft deze vraag status "opgelost"?
 
Ik denk dat ik hem daar per ongeluk op heb gezet.
Bedankt voor het melden.

Groeten Marcel
 
De validatie is niet verdwenen uit het werkblad. Ik heb het bestand in bericht #4 voor de zekerheid geopend.

Dan moet je het werkblad niet beveiligen.....
 
Laatst bewerkt:
M.b.v. een ander forum is deze vraag opgelost met de onderstaand e code:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
  ActiveSheet.Unprotect
    With Columns(3)
      If Target.Value = "Nee" Then
        Target.Offset(0, 1).Value = "=RC[-2]"
        Target.Offset(0, 1).Locked = True
         ActiveSheet.Protect
      Else
         ActiveSheet.Unprotect
        Target.Offset(0, 1).ClearContents
        Target.Offset(0, 1).Locked = False
      End If
    End With
  ActiveSheet.Protect
 End If
End Sub
Evengoed bedankt allemaal voor het meedenken :)

Groeten Marcel
 
hoogteijling,

Ik heb je vraag hier gevonden.
Het had wel zo netjes geweest om dit bij de vraag stelling te vermelden.
Dit had je trouwens op het andere forum ook niet gedaan.
 
Goed gevonden hoor, echt heel knap :thumb:

Aangezien mijn vraag hier na 5 november geen reacties meer heeft gehad heb ik op 9 november mijn vraag ook op een ander forum gepost.
Het lijkt me vrij zinloos om informatie bij mijn vraag te posten die niets toevoegt aan de vraag, zoals waar ik de vraag allemaal gesteld heb.

In post#9 heb ik keurig netjes vermeld dat het op een ander forum opgelost is dus ik snap niet wat het probleem is.

Groeten Marcel
 
Het probleem is dat je niet hebt aangegeven dat je de vraag ook elders hebt ondergebracht en waar: op beide plaatsen.

Lees de forumregels van de diverse fora svp eens door.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan