Új hozzászólás Aktív témák

• #39092 lappy őstag lappy #39091

  Új Válasz 2018-09-07 19:35:07 #39092

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz lappy #39091 üzenetére

  Private Sub CommandButton1_Click()
Dim objTargetWorksheet As Worksheet

If (TextBox1.Value = "John" And TextBox2.Value = "234") _
Or (TextBox1.Value = "Amy" And TextBox2.Value = "345") _
Or (TextBox1.Value = "Paul" And TextBox2.Value = "456") Then
Me.Hide: Application.Visible = True

For Each objTargetWorksheet In ActiveWorkbook.Worksheets
If objTargetWorksheet.Name = TextBox1.Value Then
objTargetWorksheet.Unprotect Password:=12345
Else
objTargetWorksheet.Protect Password:=12345, DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
Next
Else
MsgBox "Please input the right user name and the right password"
End If
End Sub

Private Sub CommandButton2_Click()
ThisWorkbook.Application.Quit
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Application.Quit
End Sub

  Ez a kód már majdnem jó!

  Csak annyi a probléma hogy itt munkalapokat enged, de nekem csak sor kellene
  Pl.:
  John csak a 1-2. sort látja
  Amy csak 1-3. sort látja
  Paul csak 1-4 sort látja
  Admin az összes sort látja

Új hozzászólás Aktív témák