Protecting/Unprotecting Worksheets using VBA/Macros

J

Juan Pablo González

MrExcel MVP

Joined

Feb 8, 2002

Messages

11,959

• May 20, 2003

• #2

Do you want the password to popup ? because you can just use

ActiveSheet.Unprotect "mypassword"

or

ActiveSheet.Protect "mypassword"

to protect/unprotect the sheet with that password...

 

Upvote 0

shades

Well-known Member

Joined

Mar 20, 2002

Messages

1,550

• May 20, 2003

• #3

Code:

Sub ProtectAllTest()

    Dim ws As Worksheet
Application.ScreenUpdating = False
    myPassword = InputBox("Enter password")
    For Each ws In ActiveWorkbook.Worksheets
    ws.Protect Password:=myPassword, DrawingObjects:=True, Contents:=True, Scenarios:=True
    Next ws
    ActiveWorkbook.Protect Password:=myPassword, Structure:=True, Windows:=False
Application.ScreenUpdating = True

End Sub

 

Upvote 0

A

ammdumas

Active Member

Joined

Mar 14, 2002

Messages

469

• May 20, 2003

• #4

I want the user to have to enter in the password (while protecting or unprotecting. This is all happening while hiding and unhiding columns (that certain people shouldn;t see, hence the need for password protection). I have tried it in the past, but for some reason it just unprotects as if there was no password.

 

Upvote 0

J

jhol4

Board Regular

Joined

Nov 18, 2002

Messages

71

• May 21, 2003

• #5

Is it possible to have an input box that doesnt show the text when you type it in. For example, if my password was "jhol4" it would simply show up as *****?

 

Upvote 0

A

ammdumas

Active Member

Joined

Mar 14, 2002

Messages

469

• May 21, 2003

• #6

I agree with Jhol4. The code works (haven't tried it for unprotecting) but I would also like the text hidden.

 

Upvote 0

TommyGun

MrExcel MVP

Joined

Dec 9, 2002

Messages

4,202

• May 21, 2003

• #7

The InputBox does not provide for a "hidden" password character. You can accomplish this by building a simple userform. If you need more help on that, or would like examples, please let us know.

 

Upvote 0

D

dk

MrExcel MVP

Joined

Feb 15, 2002

Messages

2,942

• May 21, 2003

• #8

jhol4 said:

Is it possible to have an input box that doesnt show the text when you type it in. For example, if my password was "jhol4" it would simply show up as *****?

Click to expand...

If you're using Excel 2000 or Excel XP then you can use this.

 

Upvote 0

A

ammdumas

Active Member

Joined

Mar 14, 2002

Messages

469

• May 21, 2003

• #9

Hey DK, You rock! Works like a charm.

 

Upvote 0