Verschillende inlogcodes

[sjoerd81]

Hallo,

Voor de verschillende afdelingen ben ik een database aan het opzetten. Om enigzins overzicht te houden mag iedere afdeling alleen inzage hebben in zijn eigen bestanden. het liefste zou ik dit via verschillende inlogcodes willen. Maar hoe kan ik dit het beste bewerkstelliggen?

Sjoerd

 

[Hoornvan]

Hallo,

Voor de verschillende afdelingen ben ik een database aan het opzetten. Om enigzins overzicht te houden mag iedere afdeling alleen inzage hebben in zijn eigen bestanden. het liefste zou ik dit via verschillende inlogcodes willen. Maar hoe kan ik dit het beste bewerkstelliggen?

Hier is een bestandje gemaakt door Peter Schitzler kijk of dat is wat je wil.

 

[sjoerd81]

Heel mooi, maar het is niet helemaal wat ik zoek. Ik wil me beperken tot één tabblad. Eén afdeling heeft inzage tot het gehele werkblad, de andere afdelingen hebben slechts beperkte inzage.

Sjoerd

 

[Hoornvan]

sjoerd81,

Dat zal je dan denk ik in een macro moeten verwerken.

Ik denk dat je zoiets dan bedoeld.
Zeker Jan mag Range("A10:E25") zien en de rest is dan verborgen.

 

[snb]

Hoe je rechten wil beperken is me niet duidelijk.
Maak gebruik van de inlognaam van iedere gebruiker.

Private Sub Workbook_open()
  Select case CreateObject("Wscript.Network").UserName
  case "naam1","naam2","naam3"
      rechtern afdeling I
  Case "naam10","naam11","naam12"
      rechten afdeling II
  End Select
End sub

 

[sjoerd81]

Na een hoop geknutsel loop ik nu vast.

In de bijlage zie je dat ik voor de afdelingen vier buttons heb aangemaakt. Deze doen wat ik wil alleen moet er nog een wachtwoord aan worden gekoppeld (via een userform). Aan de vijfde button heb ik een userform gekoppeld. Aan het userform moeten de wachtwoorden worden verbonden. Maar hoe doe ik dat?
Is via if then ook een mogelijkheid?

Sjoerd

 

[snb]

Val gebruikers niet lastig met inlogprocedures.
Aan de hand van hun netwerkinloggegevens kun je bepalen wat hun rechten zijn.

 

[sjoerd81]

Ja euh nee dat is geen optie.

 

[snb]

Hoezo geen optie ?
De ontbrekende argumenten zijn niet erg overtuigend.

 

[sjoerd81]

omdat ik die simpelweg niet voorhanden heb.