Notifikationer

Markér alle som læst Log ud

steensommer Praktikant

14. december 2003 - 16:35 Der er 11 kommentarer og
1 løsning

Log on

For at begrænse brugernes rettigheder til en projectmappe har jeg lavet en log-on. Logon navnet er anbragt i Sheets("Config").Range("C1"):

If Sheets("Config").Range("C1") = ("ssa") Then

Overstående fungerer fint men da også andre skal have udvidede rettigheder i systemet ex:

If Sheets("Config").Range("C1") = ("ssa, ss") Then

Fungerer ikke - jeg har forsøgt med en array uden held. Hvorfor kan ovenstående ikke acceptere flere muligheder?

Steen

Synes godt om

kabbak Professor

14. december 2003 - 16:47 #1

If Sheets("Config").Range("C1") = ("ssa, ss") Then
Hvad prøver du på her Steen

er ssa og ss 2 forskellige brugere ?

Synes godt om

kabbak Professor

14. december 2003 - 16:52 #2

If Sheets("Config").Range("C1") = ("ssa") or If Sheets("Config").Range("C1") = ("ss") Then
Then

måske sådan

Synes godt om

kabbak Professor

14. december 2003 - 16:52 #3

If Sheets("Config").Range("C1") = ("ssa") or Sheets("Config").Range("C1") = ("ss") Then
Then

rettet

Synes godt om

kabbak Professor

14. december 2003 - 16:53 #4

jeg sover vist

If Sheets("Config").Range("C1") = ("ssa") or Sheets("Config").Range("C1") = ("ss") Then

Synes godt om

steensommer Praktikant

14. december 2003 - 16:56 #5

Jo men til gengæld fungerer det. Jeg har dog 7 brugere der skal indsættes på den måde. Kan en array ikke bruges?

Synes godt om

steensommer Praktikant

14. december 2003 - 16:57 #6

I øvrigt er ssa og ss 2 forskellige brugere

Synes godt om

steensommer Praktikant

14. december 2003 - 17:01 #7

Skidt med det kabbak - det fungerer fint med det du har lavet. Svar lige så får du point :0)

Synes godt om

kabbak Professor

14. december 2003 - 17:05 #8

jeg tænker lige lidt på array, vender tilbage

Synes godt om

kabbak Professor

14. december 2003 - 17:17 #9

Public Sub bruger()
Dim A
A = Array("ss", "ssa", "ssb", "ssc", "hbo")
For I = 0 To UBound(A)
Q = UBound(A)
If Sheets("Config").Range("C1") = A(I) Then
' Din kode Steen
End If
Next
End Sub

Du laver bare en ny array, der skal køre hvis den første ikke opfyldes,
nogen med andre rettigheder

Synes godt om

kabbak Professor

14. december 2003 - 17:17 #10

Q = UBound(A)

fjern den, det var bare en test

Synes godt om

steensommer Praktikant

14. december 2003 - 17:27 #11

Det fungerer tilsyneladende også men jeg tror at jeg beholder det første du foreslog (ellers skal jeg igen ændre det 40 steder)
Tak for hjælpen.

Synes godt om

kabbak Professor

14. december 2003 - 17:28 #12

selv tak

Synes godt om

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. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Flytte fra et projekt til andet Af hkprofil i Excel	1	11/11/202612:17	11/11/202613:08
Slet tal, bevar de underliggende formler Af bbkdk i Excel	5	11/11/202609:23	I går 13:07
Måned og år på graf Af mort1 i Excel	4	31/10/202613:01	01/11/202614:13
VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel	9	23/09/202618:11	24/09/202611:16
Ændre tal i en celle Af xvid i Excel	1	04/09/202616:05	04/09/202616:54

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS