Hi
After hiding worksheet.. paste this in worksheet code module
Private Sub Worksheet_Activate()
Dim StrPass As String
With Me
.Protect "YourPassWord"
.Visible = xlSheetHidden
StrPass = InputBox("kindly enter password to unprotect sheet")
If StrPass = "YourPassWord" Then
.Unprotect "YourPassWord"
.Visible = True
Else
MsgBox "Incorrect Password,Woksheet can not be visible",
vbCritical, "Password Required"
End If
End With
End Sub
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of NOORAIN ANSARI
Sent: Jan/Tue/2012 01:49
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Password protect hidden sheets
Hi priyanka,
Try through below vba Code...
Private Sub Worksheet_Activate()
Sheet1.Protect "1823"
Sheets(1).Visible = xlSheetVeryHidden
Dim pass As String
pass = InputBox("kindly enter password to unprotect sheet")
If pass = "1823" Then
Sheet1.Unprotect "1823"
Sheets(1).Visible = True
Else
MsgBox " Incorrect Password"
Worksheets(2).Activate
End If
End Sub
On Tue, Jan 31, 2012 at 12:05 PM, PrIyAnKa <p.dhamsa...@gmail.com> wrote:
Dear Team
Kindly let me know if i have a workbook having 3 sheets in it, and i hide 2
sheets of it and when next time i unhide those sheets a password box gets
open and without password it can't be unhide
I have excel 2007 version
If any more details req kindly let me know
Regards
Priyanka
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please
Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will
not get quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security
measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
----------------------------------------------------------------------------
--------------------------
To post to this group, send email to excel-macros@googlegroups.com
--
Thanks & regards,
Noorain Ansari
<http://excelmacroworld.blogspot.com/> http://excelmacroworld.blogspot.com/
<http://noorain-ansari.blogspot.com/> http://noorain-ansari.blogspot.com/
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please
Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will
not get quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security
measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
----------------------------------------------------------------------------
--------------------------
To post to this group, send email to excel-macros@googlegroups.com
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
