[VB/Excel] script om cellen in excel te protecten

[Verwijderd]

Beste Tweakers,

Ik ben op zoek naar een uitleg, hoe ik aan de hand van VB script in Excel een bepaald script maak.
Het is de bedoeling dat er het volgende gebeurt:

Stel je vult in Cel A1 in: 500 dan moet Cel A2 en Cel A3 protected worden, zodat men hier niet in kan typen. Mijn volgende vraag is het wel mogelijk dat dat script constant loopt en niet alleen als ik de macro start. Heb al gezocht hier op Tweakers maar kon er niet echt iets van vinden wat er betrekking op heeft.

[Creepy]

Excel / VBA hoort in Officesuites en -software, dus ik move dit topic die kant op

[Verwijderd]

Bedankt

[Verwijderd]

Ben nu bezig om eerst als er in A1 500 staat dat cell B1 dan groen word en als A1 50 is paars
Dit heb ik voor elkaar alleen wil ik dat nu voor A1 t/m A50 naar cell B1 t/m B50
Iemand een idee?

A1 B1
500 Groen
50 Paars

code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim intKleurIndex As Integer
 
Range("A1").Select
If Range("B1,B2") = 500 Then
Selection.Interior.ColorIndex = 36
ElseIf Range("B1,B2") <> 500 Then
    Selection.Interior.ColorIndex = 37
    
End If
End Sub

[Janoz]

Goed, dan verplaats ik hem wel echt creepy

[F_J_K]

Je wilt niet al te letterlijk de 'macro opnemen' output gebruiken, haal Range("A1").Select even weg

Verder ben je al een stuk op weg, alleen nog even Range("B1").Selection.Locked = True toevoegen.

Of beter: kijk welke cel is veranderd met de Change() en gebruik dan Cells(i, j) om de juiste cel te beveiligen. De Target in de Change() functie geeft aan wat er is veranderd:

code:

Private Sub Worksheet_Change(ByVal Target As Range)
   Debug.Print Target.Address
End Sub

[Verwijderd]

Heb nog een vraagje, heb nu het volgende,

code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Worksheets("ROUTING").Select

Dim colno As Integer
Dim rowno As Integer
Worksheets("ROUTING").Range("A9:P30").Locked = True    <<<<< Hier Gaat het Fout
For colno = 1 To 16
    For rowno = 1 To 20
        If Worksheets("ROUTING").Cells(rowno, colno).Interior.ColorIndex = 36 Then
        Cells(rowno, colno).Locked = False
        Cells(rowno, colno).FormulaHidden = False
        End If
    Next rowno
Next colno
Worksheets("ROUTING").Protect
End Sub

Het script klopt in principe wel, alleen als ik in een veld iets invul waar dat mag en druk op enter krijg ik de volgende melding:

Run-time error: 1004

Unable to set Locked Property of the range class.

Iemand enig idee wat er fout is in mijn script?

[ Voor 21% gewijzigd door Verwijderd op 31-03-2006 20:11 ]

[Verwijderd]

Niemand die het weet toevallig?

[F_J_K]

Zitten er toevallig samengevoegde cellen in dat bereik? Zo ja: doe die apart.

[Lustucru]

Door locked op true te zetten zet je ook de eigenschap protect van het worksheet op true. Ergo, je kunt de celeigenschappen niet meer wijzigen. Voordat je dus iets met het sheet kunt doen moet je eerst worksheet.unprotect aanroepen, of middels vba protect instellen op UI-only. Eea vind je in de help uitgebreider uitgelegd als je protect, methode opzoekt