Door code een cel andere cel vrijgeven

[patrickje]

Hoi kenners

Ik heb mijn werkblad beveiligd, Hierdoor kan ik in bepaalde cellen niks invoeren.
Nu wou ik graag dat als ik een code in een cel ingeef dat dan een cel vrij word gegeven om gegevens in te voeren.

Hoe kan ik dit het beste oplossen.

M.V.G.

 

[danny147]

Beste patrickje

Welke cel moet vrijgegeven worden ?
In welke cel wil je een code of formule plaatsen ?

Groetjes Danny. :thumb:

 

[pasan]

lukt deze?

http://www.gratiscursus.be/cgi-bin/snbbs/netboardr.cgi?fid=106&cid=103&tid=345&pg=4&sc=20&x=0

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("a1").Value = ("ww") Then
ActiveSheet.Unprotect
Range("b1").Locked = False
ActiveSheet.Protect
Else
ActiveSheet.Unprotect
With Range("b1")
.Locked = True
End With
ActiveSheet.Protect
End If
End Sub

de code beetje aangepast en bij mij werkt het in office 2010
pas de range zelf aan, nu geldt het alleen voor cel B1 maar kan ook een range zijn van cel B1 tot B5
en cel A1 moet voordat je het blad beveiligd al unlocked zijn

 

[patrickje]

Dank je pasan
Dit werkt inderdaad.
Nu mijn volgende vraag. Is het mogenlijk als ik b.v. in a1 een code ingeef dat b1 vrij gegeven word.
en het zelfde voor a2 dan b2 enz, en dan voor totaal ong. 15 regels.

 

[pasan]

helaas weet ik daar 1 2 3 het antwoord niet op.
sorry hiervoor, maar denk dat 1 van de echte expers hier op dit forum het vast wel op kunnen lossen
succes met je vraag

 

[oeldere]

@Patrickje

geef je ook even antwoord op de vraag in #2 van danny147?


eigen vragen:

zijn dit altijd dezelfde cellen?

en is het noodzakelijk dat deze voorheen eerst zijn geblokkeerd?

anders kun je werken met het beveiligen van je werkblad en deze cellen onbeveiligde laten.

 

[patrickje]

Nee de cellen varieeren

Dus de ene keer is het b.v. cel c5 die vrijgegeven moet worden en de andere keer is het c 15

Vandaar de vraag of het mogelijk is

 

[oeldere]

als het altijd andere cellen zijn, hoe moet excel dan weten over welke cellen het gaat?

kun je niet beter een apart tabblad gebruiken voor deze gegevens en op een (beveiligd) tabblad de gegevens verwerken?

 

[patrickje]

De cellen waat een code ingegeven moet worden zijn gelijk dus b.v. cel d5,d6d7 enz, tot d15
De cel die vrijgegeven moet worden ligt op dezelfde regel
Dus als voorbeeld.

Als ik d7 de code ww ingeef dan moet cel H7 vrijgegeven worden
als ik D9 de code ww ingeef moet cel H9 vrijgegeven moeten worden.
Enz.

 

[troedeboer]

Ik ben geen excel expert, maar als ik de code van pasan wat aanpas, dan wordt de cell van b2 vrijgegeven als je in a2 ww invult en b4 vrij als je in a4 ww invult, etc.

Private Sub Worksheet_Change(ByVal Target As Range)
    If ActiveSheet.Cells(Target.Row, Target.Column).Value = ("ww") Then
        ActiveSheet.Unprotect
        Range("a1:a10").Locked = False
        Range("b1:b10").Locked = True
        ActiveSheet.Cells(Target.Row, 2).Locked = False
        ActiveSheet.Protect
    Else
        ActiveSheet.Unprotect
        Range("a1:a10").Locked = False
        Range("b1:b10").Locked = True
        ActiveSheet.Protect
    End If
End Sub

 

[patrickje]

Dank je dit werkt goed. teminste voor mij hahaha

Vriendelijk dank voor je hulp