Gebruikers rechten geven

[Atwist]

Bestaat er een mogelijkheid om gebruikers rechten te geven

Ik heb namelijk een bestand met meerdere userforums en nu wil ik graag dat een gebruiker1 bv userform 1, 2, 3 en 4 mag zien en bewerken
Maar gebruiker2 mag alleen userform 3 en 4 zien en bewerken.

 

[snb]

Hoe wordt een userform gestart ?

 

[Atwist]

Hoi SNB

Het document wordt gestart en het login scherm komt door

Option VBASupport 1
Private Sub Workbook_Open()
start.Show
End Sub

En dit is de code achter het inlogscherm

Option VBASupport 1


Private Sub login_Click()
If naam = "user1" And wachtwoord = "user1" Then
Sheets("blad1").Select
If naam = "user2" And wachtwoord = "user2" Then
Sheets("blad2").Select
If naam = "user3" And wachtwoord = "user3" Then
Sheets("blad3").Select
Else: MsgBox ("Onjuiste invoer")
End If
End If
End If 
Unload Me
End Sub

Hier zijn nu bladen geselecteerd maar dat moet op een of andere manier userforms worden, ik krijg te het voor elkaar als een gebruiker maar 1 scherm mag zien maar meerdere.

 

[snb]

Private Sub Workbook_Open()
  select case environ("username")
   case "Atwist"
      userform1.show
   case "snb"
      userform2.show
  end select
End Sub

Inloggen volstrekt overbodig.

 

[Atwist]

Dank voor je snelle reactie,

Maar hoe weet excel wel gebruiker er is als er niet hoeft ingelogd te worden?

 

[snb]

Wat dacht je van Environ("Username") ?

Zoek eens op in je VBA handboek.

 

[Atwist]

Het zal ongetwijfeld aan mij liggen maar ik krijg het niet werkend.
Maar misschien moet ik ook wel de oorzaak zoeken in OpenOffice in samenwerking met Linux.
Weet dat OpenOffice niet altijd gelijk is aan Excel en andersom.
Het feit dat ik hier bij Excel kijk is, dat er voor Openoffice geen goed forum is zoals hier op "Helpmij" althans ik heb het niet kunnen vinden

 

[snb]

Dat had je wel eens eerder mogen vertellen.
Dit is toch duidelijk een Excelforum en geen openofficeforum.

Probeer:

Private Sub Workbook_Open()
  select case application.username
   case "Atwist"
      userform1.show
   case "snb"
      userform2.show
  end select
End Sub