different password protect for different worksheets
This is how I do it. Just right-click a sheet, name it password, and
copy/paste this code into the window that opens:
Private Sub CommandButton1_Click()
Dim i_pwd As String
i_pwd = InputBox("Please Enter Password to Unhide Sheet", "Unhide Sheet...")
If i_pwd = "" Then
Exit Sub
End If
Select Case (i_pwd)
'#1
Case Is = "password1"
Worksheets("Sheet1").Visible = True
Worksheets("Sheet2").Visible = True
Worksheets("Sheet3").Visible = True
'#2
Case Is = "password2"
Worksheets("Sheet4").Visible = True
Worksheets("Sheet5").Visible = True
Worksheets("Sheet6").Visible = True
'#3
Case Is = "password3"
Worksheets("Sheet7").Visible = True
Worksheets("Sheet8").Visible = True
Worksheets("Sheet9").Visible = True
'#11
Case Is = "showall"
Call ShowSheets
Case Else
MsgBox "Incorrect password; no action taken.", vbInformation, _
"Unhide Sheet..."
End Select
Exit Sub
End Sub
Follow the logic. You should changes the text in quotes to match the sheets
that you want displayed, when the user clicks the Command Button to fire the
code. one more thing, since this is event code, linked to a private sub,
make sure you use the button from the 'Control Toolbox'; choose the
appropriate toolbar menu.
Regards,
Ryan---
--
RyGuy
"Kanika" wrote:
I need to give differenet passwords to different worksheets and publish this
on the web for all my users to do entries in this file,entries can be done
simultaneously or at different time.
I tried gogle spreadsheets but the programming part cannot be uploaded on
the google spreadsheets.
Thanx
kanika
|