Reply to thread

Message: <blockquote data-quote="asknrk" data-source="post: 18918061" data-attributes="member: 18756">Private Sub Workbook_SheetActivate(ByVal Sh As Object)    Dim Msg As String    Dim UserEntry As Variant    Msg = InputBox("What is the password?")    Do        Sheet1.Activate        UserEntry = InputBox(Msg)            If UserEntry = "test" Then Exit Sub            If UserEntry = False Then            Msg = "Invalid Password!"            Msg = Msg & vbNewLine            Msg = Msg & "What is the password?"    Loop    Sheet1.Activate = UserEntryEnd Subsource:<a href="http://stackoverflow.com/questions/8145215/individual-worksheet-passwords" target="_blank">http://stackoverflow.com/questions/8145215/individual-worksheet-passwords</a></blockquote>

Top Bottom