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

Cellen beveiligen op basis van ingevoerde waarde ander cel VBA

Status
Niet open voor verdere reacties.
I

isis0608

Gebruiker
Lid geworden
7 mrt 2013
Berichten
95
zo dan?
 

Bijlagen

  • Book3 (hs).xlsm
    15 KB · Weergaven: 21
Hi Haije,

Bedankt voor je bericht.

Ja, maar met welke stappen zorg ik ervoor dat, als in cel A1, in dit geval "fail", staat, de cellen B2 tm B6 op dusdanige wijz kan beveiligen dat die cellen niet invulbaar zijn? Want ik heb de sheet op verschillende wijze beveiligd maar helaas niet gelukt.



Alvast bedankt.
Mvg,
Isis0608
 
Ik begrijp niet wat je bedoelt.

Mijn voorbeeld doet toch wat je wilde?
Kijk naar de VBAcode om te zien wat er gewijzigd is t.o.v. jouw bijlage
 
zo dan.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
 ActiveSheet.Unprotect "wachtwoord"
    If Range("A1") = "Pass" Then
        Range("B2:B6").Locked = False
    ElseIf Range("A1") = "Fail" Then
        Range("B2:B6").Locked = True
    End If
 ActiveSheet.Protect "wachtwoord"
End Sub
 
Kleine controle op target cel. Anders wordt na iedere verandering de beveiliging opgegeven en daarna weer geactiveerd.

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address(0, 0) = "A1" Then
   Unprotect "wachtwoord"
   Range("B2:B6").Locked = Range("A1") = "Fail"
   Protect "wachtwoord"
 End If
End Sub
 
Laatst bewerkt:
Goedemorgen,

Ja, dat komt in de buurt wat ik wil. Ik ga nog even naar de VBA script kijken en aanpassen.

In ieder geval bedankt voor jullie hulp
Mvg,
isis0608
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan