How to keep usename and password to excel 2007

Thanks

Please re-post with a better description of your needs.


Gord

On Thu, 12 Apr 2012 12:35:52 +0000, kirann14
wrote:


How to keep usename and password to excel 2007

Thanks

A "sticky note" on the side of the computer works for some.


"kirann14"
wrote in message
...

How to keep usename and password to excel 2007

Thanks
--
kirann14

Hi,

I wanted to know how to add username and Password option to an spread sheet (Excel) so that it asks for username and password when ever a user opens an excel sheet. Kindly give me the code to get that option.

Thanks
Kiran

kirann14 formulated on Friday :
Hi,

I wanted to know how to add username and Password option to an spread
sheet (Excel) so that it asks for username and password when ever a user
opens an excel sheet. Kindly give me the code to get that option.

Thanks
Kiran



'Gord Dibben[_2_ Wrote:
;1600767']Please re-post with a better description of your needs.


Gord

On Thu, 12 Apr 2012 12:35:52 +0000, kirann14
wrote:
-

How to keep usename and password to excel 2007

Thanks-

Sheets aren't 'opened', workbooks are opened!

If what you mean is you want to prevent users from viewing certain
sheets unless they give the correct 'login' info (ie:
username/password) then please explain your project's structure so we
can better help you.

If what you mean is you want to prevent users from unauthorized opening
of Excel files then you need to password protect the file via the
SaveAs dialog.

Now.., if I still haven't 'guessed' what the heck you're trying to do
then please, please, please be more explicit!

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion

Following on Garry's post if you mean password protect usersheets from
viewing then add this code to ThisWorkbook module.

Private Sub Workbook_Open()
Dim pword As String
On Error GoTo endit
pword = InputBox("Enter Your Password")
Select Case pword
Case Is = "Gord": Sheets("Gordsheet").Visible = True
Case Is = "Pete": Sheets("Petesheet").Visible = True
Case Is = "Manager": Call UnHideAllSheets
End Select
Sheets("BlankSheet").Visible = False
Exit Sub
endit:
MsgBox "Incorrect Password"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sht As Worksheet
Application.ScreenUpdating = False
Sheets("BlankSheet").Visible = xlSheetVisible
For Each sht In ActiveWorkbook.Sheets
If sht.Name < "BlankSheet" Then
sht.Visible = False
End If
Next sht
Application.ScreenUpdating = True
ThisWorkbook.Save
End Sub

Also add this macro to a General Module so you as Manager can view all
sheets.

Sub UnHideAllSheets()
Application.ScreenUpdating = False
Dim n As Single
For n = 1 To Sheets.Count
Sheets(n).Visible = True
Next n
Application.ScreenUpdating = True
End Sub


Gord

On Fri, 13 Apr 2012 12:59:11 +0000, kirann14
wrote:


Hi,

I wanted to know how to add username and Password option to an spread
sheet (Excel) so that it asks for username and password when ever a user
opens an excel sheet. Kindly give me the code to get that option.

Thanks
Kiran



'Gord Dibben[_2_ Wrote:
;1600767']Please re-post with a better description of your needs.


Gord

On Thu, 12 Apr 2012 12:35:52 +0000, kirann14
wrote:
-

How to keep usename and password to excel 2007

Thanks-