SNCB Novice
13. januar 2021 - 10:59 Der er 18 kommentarer

Skrivebeskyttelse efter brugernavn

Hej

Jeg skal lave et dokument til mit arbejde, hvor alle skal gå ind og skrive "læst" ud for deres navn i excel dokumentet. Det er vigtigt at folk ikke kan skrive ud for andet end deres eget navn. Kan men i excel gøre udelukkende én række redigerbar for forskellige personer. Vi har alle et login som vi bruger til at tilgå vores computere, derfor tænker jeg at man må kunne sætte hvert felt op til at identificere hvilken brugeren og derved kun åbne op for netop den brugers navn? Giver det mening?
jens48 Ekspert
13. januar 2021 - 14:53 #1
Måske noget i stil med dette kan bruges

Private Sub Workbook_Open()
Dim X As Integer
Dim UName As String
UName = Environ("UserName")
Sheets("Sheet1").Unprotect
Worksheets("Sheet1").Range("A1:H100").Locked = True
For X = 2 To 100
If Cells(X, 1) = UName Then
Rows(X).Locked = False
End If
Next
Sheets("Sheet1").Protect
End Sub
store-morten Ekspert
13. januar 2021 - 18:45 #2
Et eks. med brugernavn i kolonne A og navn i kolonne B
Listen bliver filtreret så man kun kan se sig selv.

https://www.dropbox.com/s/jvhi7ubhr53sved/bruger.xlsm?dl=0
SNCB Novice
17. januar 2021 - 17:17 #3
Hej Jens48

Tak, jeg ved ikke helt hvor jeg skal skrive det henne? Skal det programmeres i et andet program udenfor excel, eller hvordan skal det forstås?
SNCB Novice
17. januar 2021 - 17:20 #4
Store-morten hvordan filtrerer man listen så den ved hvilken bruger den skal vise?
store-morten Ekspert
17. januar 2021 - 18:37 #5
Det gør arket selv, når det åbnes vises kun de rækker  med brugernavn i A
jens48 Ekspert
18. januar 2021 - 00:18 #6
Højreklik på arkets navn, vælg This Workbook og indsæt koden der. Når du gemmer arket er det vigtigt at du gemmer det som xlsm fil, dvs. med makro.
SNCB Novice
18. januar 2021 - 10:36 #7
Jens48, virker det ved 200 medarbejdere? Alle skal have adgang til dokumentet, men dokumentet skal kunne identificere hvilken række der skal lukkes op alt efter hvilken bruger som tilgår det?
SNCB Novice
18. januar 2021 - 10:40 #8
Store-morten, så hvis jeg har et ark med 200 medarbejdere, hvordan mener du så at arket selv kan identificere hvilket brugernavn der skal være redigerbart?
store-morten Ekspert
18. januar 2021 - 10:55 #9
Det ved arket når du har indtastet de 200 medarbejderne i kolonne A2:A201
jens48 Ekspert
18. januar 2021 - 11:03 #10
Jeg har rettet i linje 6 og 7 så den checker op til 250 linjer. Men jeg kan godt rette den til så den kan bruges til et vilkårligt antal brugere.

Private Sub Workbook_Open()
Dim X As Integer
Dim UName As String
UName = Environ("UserName")
Sheets("Sheet1").Unprotect
Worksheets("Sheet1").Range("A1:H250").Locked = True
For X = 2 To 250
If Cells(X, 1) = UName Then
Rows(X).Locked = False
End If
Next
Sheets("Sheet1").Protect
End Sub
SNCB Novice
18. januar 2021 - 11:35 #11
Tak Jens48, jeg vil forsøge at få det til at virke. Men man skal ikke få folk til at indtaste deres brugernavn så excel ved det? Den kan godt selv tage det fra selve systemet?
SNCB Novice
18. januar 2021 - 11:36 #12
Store-morten, jeg har svært ved at se hvordan mit ark selv skulle finde ud af det, uden at jeg skal skrive det i en kode et sted..
jens48 Ekspert
18. januar 2021 - 11:51 #13
Ja
store-morten Ekspert
18. januar 2021 - 12:21 #14
Kode ligge i eksempel arket.
Jeg har skrevet mig selv i række 2
Når du henter/åbner arket igen kan du ikke se mig ;-)
Du tilføjer dig selv i række 3 (A3: Brugernavn B3: Navn)

På Ark2 to, kan du nu se alle. Kan evt. skjules for andre end dig.

Husk du skal gemme og lukke arket, og derefter åbne igen.
SNCB Novice
18. januar 2021 - 13:52 #15
Så jeg skal tilføje vores medarbejder brugernavne i ark 2?
store-morten Ekspert
18. januar 2021 - 13:57 #16
Nej :-) Ark1 A2:A201
SNCB Novice
18. januar 2021 - 14:18 #17
Ok jeg prøver:)
jens48 Ekspert
18. januar 2021 - 16:26 #18
Mit sidste svar var vist lidt tvetydigt. Nej, du skal ikke indtaste brugernavn. Det finder Excel selv.
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Premium
Exchange-sårbarhed truer selskaber over hele kloden: Sådan blev den opdaget af Dubex fra Søborg
En række akutte sårbarheder i Microsoft Exchange Server har sendt en panisk bølge gennem Exchange-miljøet. Sårbarhederne blev opdaget af danske Dubex. Se her, hvordan de blev opdaget af det danske selskab. "Var hackerne lykkedes med det, ville det være forholdsvist voldsomt," siger Jacob Herbst fra Dubex.
Computerworld
Hånden på hjertet: Er der plads i din virksomhed til it-nørderne, der sjosker rundt i ikke nødvendigvis ens strømpesokker?
Klumme: Er der plads i din organisation til it-nørder, der går rundt på arbejdspladsen i to ikke nødvendigvis ens strømpesokker, fordi det er svært virkeligt at koncentrere sig, når skoene klemmer?
CIO
Har du rost din mellemleder i dag? Snart er de uddøde - og det er et tab
Computerworld mener: Mellemledere lever livet farligt: Topledelsen får konstant ideer med skiftende hold i virkeligheden, og moden går mod flade agile organisationer. Men mellemlederen er en overset hverdagens helt med et kæmpe ansvar. Her er min hyldest til den ofte latterliggjorte mellemleder.
Job & Karriere
IBM Danmark trækker tilbud om frivillige fratrædelser tilbage for stort antal ansatte: "IBM har taget røven på sine ansatte"
Som led i IBM Danmarks store fyringsrunde fik 130 ansatte grønt lys til at forlade selskabet på en frivillig fratrædelsesordning. Men nu har IBM Danmark trukket det oprindelige tilbud tilbage for størstedelen af de ansatte.
White paper
Har du både dine applikationer og dit hoved i skyen?
Kan du nikke ja til en eller flere af disse situationer? • I bruger mange cloud-applikationer • I logger ind fra flere lokationer • I logger ind fra flere forskellige typer af devices Så kan du få stort udbytte af at læse dette whitepaper … Hver dag tilgår, navigerer og arbejder jeres medarbejdere i de applikationer, I har liggende i ”skyen”. Antallet af cloud-baserede applikationer stiger eksplosivt, så hvordan sikrer I ADGANGEN til dem og til de data, som applikationerne indeholder? Vel at mærke uden at gå på kompromis med BRUGERVENLIGHEDEN? Løsningen er Access Management, som er hovedtemaet for dette whitepaper.