vba to hide / unhide separate sheets based on password (bis)

Hi All,

I looked at Royuk's workbook in a thread http://www.excelforum.com/excel-prog...-password.htmlthat is called the same ... (without "bis" )and it suits quite well to my purposes! Thanks Roy!

There is just 1 thing I would like to change:
A specific user gets only his/her dedicated sheet visible. My users would need access to several sheets ..depending on their "lvl". Not just 1 sheet.

I tampered a little with Roy's original code:

                sLevel = cl.Offset(0, 2).Value
                MsgBox "Correct Information Entered.  Please Proceed.", vbOKOnly + _
                                                                        vbInformation, "Correct Information entered."
                Sheets("Splash").Visible = xlSheetVisible
                bOK = True
                Sheets(sLevel).Visible = xlSheetVisible
                Unload Me

and changed it into:

MsgBox "Correct Information Entered.  Please Proceed.", vbOKOnly + _
                                                                        vbInformation, "Correct Information entered."
                Sheets("Splash").Visible = xlSheetVisible
                
                For Col = 2 To nCols 'sige
                sLevel = cl.Offset(0, Col).Value
                
                Sheets(sLevel).Visible = xlSheetVisible
                Next Col
                bOK = True
                Unload Me

it seems to show the sheets I intended(...) Though the Userform does not seems to unload now.



Also ... is there a way to prevent changing the sheetname? This would royally mess up the functionality.

Hope you can help
Sige