Beveiligd blad

[verluc]

Ik wil bij een blad de beveiliging instellen zodanig dat de gebruiker geen kolom kan toevoegen.
Echter wanneer ik deze instelling invoer blijkt dit niet te werken :

Sub Worksheet_SelectionChange(ByVal target As Range)
ActiveSheet.ScrollArea = "A4:R1000"
If Intersect(target, Range("A4:R1000")) Is Nothing Then Exit Sub
Range("A4:S1000").Interior.ColorIndex = xlNone
[COLOR="#FF0000"]Range("A" & target.Row & ":R" & target.Row).Interior.ColorIndex = 4[/COLOR]
End Sub

Blijkbaar belemmerd de rode tekst deze beveiliging.
Bedankt voor mogelijke oplossing. (Excel 2003)

 

[Peter B]

Ik snap de vraag niet helemaal. Je hebt het over gebruikers en kolommen. Vervolgens gaat het over VB en over rijen. Wat is nu precies het probleem?

 

[edmoor]

Blijkbaar belemmerd de rode tekst deze beveiliging.

Want?

 

[verluc]

Mijn vraagstelling is toch simpel :

De gebruiker van het excelprogramma mag geen kolommen bijvoegen.
De werking van deze beveiliging word echter belemmerd door de rode tekst.
Hoe kan dit omzeild worden ?

 

[edmoor]

En mijn simpele vraag was waarom je denkt dat die regel je bedoeling belemmert.

 

[verluc]

Omdat als ik bij het beveiligd blad "kolommen toevoegen" niet toelaat dat krijg ik automatisch een gele band over de tekst die ik nu met rood aanduid.

 

[edmoor]

Dan zal er ook een foutmelding bij verschijnen. En daar gaat het mij om.

 

[VenA]

Volgens mij kan je de ScrollArea beter ergens anders vastleggen. Als je toch alleen binnen de ScrollArea mag blijven dan hoef je daar ook niet op te toetsen. Als er een blad beveiliging in de weg zit dan moet je deze eraf halen en er weer opzetten.

Sub Worksheet_SelectionChange(ByVal target As Range)
    Unprotect "Wachtwoord"
    Range("A4:R1000").Interior.ColorIndex = xlNone
    Cells(target.Row, 1).Resize(, 18).Interior.ColorIndex = 4
    Protect "Wachtwoord"
End Sub

 

[verluc]

Foutmelding :

Wanneer ik de beveiliging instel, krijg ik :

de cel die U wilt wijziging is alleen lezen .....en het ganse blad is geblokkeerd.

 

[edmoor]

Zie VenA op #8.

 

[HSV]

Met voorwaardelijke opmaak en de screenupdating op true of false om te triggeren.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = false 
End Sub

formule vw opmaak kan iets korter:

=RIJ()=CEL("row")

 

[verluc]

HSV,

Uw aangeboden oplossing werkt inderdaad en geeft geen foutmelding meer.
Enkel, wanneer een downloading is gebeurd van een bestand, blijken de kolommen
waarin een formule staat op die sheet niet te kleuren.
Met dank voor Uw visie hieromtrent.