Userform lees en schrijfrechten middels wachtwoord (login)

[carloschouw]

Hoi,

Ik heb een eenvoudige userform gemaakt (TextBox1, TextBox2,..t/m 10) Nu zou ik graag willen dat wanneer iemand inlogt met één wachtwoord alleen schrijfrechten heeft voor TextBox 1 t/m 5. Wanneer je met een ander wachtwoord inlogt je alleen schrijfrechten krijgt voor TextBox 6 t/m 10.

Leesrechten mogen zij dus wel, echter beperkte schrijfrechten pas wachtwoord. Is zoiets dergelijks in te richten? Zo ja, hoe?

Groet, Carlo

 

[snb]

Beter zonder wachtwoord:

zie: http://www.helpmij.nl/forum/showthread.php/922861-Kan-dit-in-excel?p=5998619&viewfull=1#post5998619

 

[carloschouw]

Hoi nsb,

Als ik het goed begrijp gaat dat over werkbladen. Mijn vraag gaat over TextBoxen in Userforms. Code die ik b.v. gebruik is deze:

Private Sub CommandButton5_Click()

Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Blad1")

Range("A1").Select

iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row

ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ws.Cells(iRow, 2).Value = Me.CheckBox1.Value
ws.Cells(iRow, 3).Value = Me.TextBox2.Value
ws.Cells(iRow, 4).Value = Me.TextBox3.Value

MsgBox "Gegevens zijn verwerkt", vbOKOnly + vbInformation, "Gegevens zijn verwerkt"

Me.TextBox1.Value = ""
Me.CheckBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox1.SetFocus

End Sub

Nu wil ik met 1 userform rechten geven per gebruiker (inloggen met wachtwoord 1 = schrijfrechten TextBox1 en CheckBox1, inloggen met wachtwoord 2 = schrijfrechten TextBox2 en Textbox3)

Volgens mij moet je gebruik maken van een dergelijke optie als Me.TextBox1.Locked = True

Geen idee hoe je dit in kunt richten verder..

Waarmee ik heb zitten stoeien is deze code:

  Dim strInput As String
  
  strInput = InputBox("Inloggen voor toegang", _
                      "Wachtwoord invoeren", _
                      "")

  If strInput = "12345" Then
     TextBox2.Enabled = False
     TextBox3.Enabled = True

  End If

Alleen krijg ik o.a. een foutcode bij TextBox2.Enabled = False

 

[snb]

Mijn alias is anders.

Heb je al gezien dat het werkboek een userform met tekstvakken bevat ?

 

[carloschouw]

Hahahahaaaa... oeps.

 

[carloschouw]

Heb je al gezien dat het werkboek een userform met tekstvakken bevat ?

Nee. Wanneer ik het bestand (userdependent file.xlsm‎) probeer te openen krijg ik een foutmelding "fout 13" en krijg alleen een leeg "start" tabblad te zien

 

[snb]

Dat betekent dat er blijkbaar voor jou geen inlognaam environ("username") bestaat, of dat jouw inlognaam ongeldige tekens voor een werkbladnaam bevat.
Check dat eens in Excel met de macro:

Sub M_snb()
   msgbox Environ("username")
End Sub

 

[carloschouw]

Ik krijg nu een popup met administrator, meer niet.

 

[gast0660]

Heb je hier iets aan?
Wachtwoorden zijn:
pass1 & pass2

 

[carloschouw]

Hier kan ik wat mee, gast0660! Top en dank!

 

[gast0660]

Graag gedaan:thumb: