Brugeradgang på rækkeniveau

I princippet kan det godt lade sig gøre via VBA/makro, hvis den enkelte bruger er oprettet med det navn, der er anført i regnearket.

I min model bliver "den forkerte bruger" henvist til sin egen række, hvis der klikkes andetsteds.

ups ..

Glemte at sige at arket er på flere 100 rækker, tilhørende "per", "jan" og "de andre" ..

Men med VBA ? .. 

Ideen er at den der opretter rækken med sit navn også er den eneste der kan rette i de data der står i felterne A -> J i den pågældende række .. de resterende felter har ingen betydning

Det navn, der er anført i kolonne A skal kunne sammenlignes med det login-navn, som brugeren har. Er det ikke korrekt?

Antallet af rækker er underordnet.

nemlig :)

Rem Koden anbringes under relevante ark.
Rem Anvendelse af makroer sættes.
Rem Hvis ønskeligt kan du få min model - @-adresse under profil.

Dim bruger As String, ok As Boolean, flag As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If flag = True Then
        Exit Sub
    Else
        If Application.UserName = Range("A" & Target.Row) Then
            ok = True
        Else
            ok = False
            If InStr(Target.Address, "J") = 0 And Target.Column > 10 Then
                Exit Sub
            End If
           
            findBrugersRække
        End If
    End If
End Sub
Private Sub findBrugersRække()
Dim antalRækker As Integer, ræk As Integer
    flag = True
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
    For ræk = 1 To antalRækker
        If Range("A" & ræk) = Application.UserName Then
            Range("B" & ræk).Select
            flag = False
            Exit Sub
        End If
    Next ræk
End Sub

tak supertekst-it.dk for en fantastisk hjælp

Selv tak..