Password Protect Multiple Sheets in Excel 1

[Rams06]

I have multiple sheets in a workbook in Excel..... how can I protect the same colums on all the sheets, at the same time? Is that possible? (Skip the Format Cells-Protection steps, I know that stuff)

 

[EgWeb]

You could create a macro to lock, and then another macro to unlock.

 

[Rams06]

Thanks...... I did. I just run the macro at each sheet tab.

 

[AnotherHiggins]

Wrap your macro with this:

For i = 1 To ActiveWorkbook.Worksheets.count
    Sheets(i).Activate
'...
'Your Code
'...
Next i

John

That which does not kill me postpones the inevitable.

 

[Rams06]

Excel Question:

I have multiple salespersons data in one workbook....

How can I create multiple users passwords so when they open the workbook they have to enter their salepersons code and password and ONLY their worksheet "pops" up?

This is the ideal Scenario:

I e-mail all the salespeople the same workbook but when they click to open the Excel workbook it asks them for their salesman code and password. After they enter their username and password.... it only shows them their sheet and hides the rest.

Thanks alot for your help.

 

[AnotherHiggins]

For starters, check out this thread:
thread707-922793

It's a pretty busy Monday so far...I don't have time to write up anything much just now, but the linked thread should give you a starting point.

John

That which does not kill me postpones the inevitable.

 

[littlewoman]

Search Results

Sorry, there is no thread by the number 707-922793.

----------------------------------------------------
How simple life could be but here it doesn't begins

 

[FXP]

This is not difficult:
Hide all the worksheets except one.
Write your own code to ask the user for a password.
Make visible only the sheet that matches the user

For better security use xlSheetVeryHidden, this will not allow the users to unhide anyone elses sheet without using code:

Application.Worksheets("Sheet1").Visible = xlVeryHidden

or

Application.Worksheets("Sheet1").Visible = xlSheetVisible