make a userform check box and password

[jekidi]

hello there,,

i want to make a userform with some checkboxes, and i want to make a password to enable/disable some check boxes,can't you teach me step by step,so that the userform running good,

i'm sorry for my bad english,,

example Untitled.jpg

[Mordred]

What have you got so far?

i want to make a userform

implies you have started something. Why not provide us with what you have so that we don't have to do all the work for you?

[jekidi]

here's the example i'm tryng to adding a password to enable and disable (target,insentif,minus) but not succes.

SHOW HIDE SHEETS with the password.xlsm

[jekidi]

can't someone help me..

[blue.chio]

Hello!
try this:
add this one to your userform:

Private Sub UserForm_Initialize()
    CheckBox10.Enabled = False
    CheckBox6.Enabled = False
    CheckBox14.Enabled = False
End Sub

then to each CheckBox (10,6,14)

Private Sub CheckBox10_Click()
Application.ScreenUpdating = 0
Select Case CheckBox10.Value
    Case True: Sheets("TARGET").Visible = True
    Case False: Sheets("TARGET").Visible = xlSheetVeryHidden
End Select
Application.ScreenUpdating = 1
End Sub

Private Sub CheckBox14_Click()
Application.ScreenUpdating = 0
Select Case CheckBox14.Value
    Case True: Sheets("MINUS").Visible = True
    Case False: Sheets("MINUS").Visible = xlSheetVeryHidden
End Select
Application.ScreenUpdating = 1

End Sub

Private Sub CheckBox6_Click()
Application.ScreenUpdating = 0
Select Case CheckBox6.Value
    Case True: Sheets("INSENTIF").Visible = True
    Case False: Sheets("INSENTIF").Visible = xlSheetVeryHidden
End Select
Application.ScreenUpdating = 1
End Sub

then to your textbox1

Private Sub TextBox1_Change()
If TextBox1.Value = "123" Then CheckBox10.Enabled = True
If TextBox1.Value = "123" Then CheckBox6.Enabled = True
If TextBox1.Value = "123" Then CheckBox14.Enabled = True
End Sub

hope it will work for you.

blue

[jekidi]

thanks @blue.chio its work, but with my little modification,, but how to add dialogbox if user type the wrong password?

i write this

Private Sub TextBox1_Change()
If TextBox1.Value = "123" Then CheckBox10.Enabled = True
If TextBox1.Value = "123" Then CheckBox6.Enabled = True
If TextBox1.Value = "123" Then CheckBox14.Enabled = True
End Sub

in

Private Sub CommandButton3_Click()

but if user typing wrong password, i want to add dialog box with cancel and try again how to apply this,, i try to add ELSE option in textbox value, but it says code error

compile error :

else without if

sorry for my late post, i forgot password for this site LOL