Protect / Unprotect Macro

Greetings! This is my first post.

I am using Office 2007 Prof. I found a web site for a "Proect / Unprotect" macro instructions. http://www.ozgrid.com/VBA/excel-work...rotect-all.htm

My question is, can the code in the above proceedure be modified so it asks you to enter your password twice to check for accuracy?

~*~*~*~*~*~*~*~*~*~

Private Sub CommandButton1_Click()

Dim wSheet As Worksheet

	For Each wSheet In Worksheets

		If wSheet.ProtectContents = True Then

			wSheet.Unprotect Password:=TextBox1.Text

		Else

			wSheet.Protect Password:=TextBox1.Text

		End If

	Next wSheet

Unload me

End Sub

~*~*~*~*~*~*~*~*

Best Regards,
Jason Hampton

try this
Forum rules...()Post a WORKBOOK. Nobody wants to type data from a picture or paste text from your post into a spreadsheet as a prelude to helping. To attach a file, push the button with the paperclip (or scroll down to the Manage Attachments button), browse to the required file, and then push the Upload button.

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

Good job on getting this far. Here is the modified code. We try to keep these forums organised and easy to read, so can you please go back to your first post and wrap your VBA code in the code tags. Click "go advanced", highlight the code, and then click the # button.

Now that you have this, see if you can work out how to change the Title of the userform so that it reads "Enter Password to Protect" or "Enter Password to Unprotect" or something similar.

EDIT: You could also change the the button label to toggle between "sheet is protected, click to unprotect" and "Click to protect sheet"

Mallycat,

I can't seem to get the code to work correctly. What am I doing wrong?

Private Sub CommandButton1_Click()

    Dim wSheet As Worksheet
        For Each wSheet In Worksheets
            If wSheet.ProtectContents = True Then
                wSheet.Unprotect Password:=TextBox1.Text
            Else
            If Me.TextBox1 = Me.TextBox2 Then
                wSheet.Protect Password:=TextBox1.Text
            End If
        End If
        Next wSheet
    Unload Me
End Sub

Private Sub UserForm_Click()
Sub ShowPass()

    If ActiveSheet.ProtectContents = False Then
        UserForm1.Label1.Visible = True
        UserForm1.TextBox2.Visible = True
        UserForm1.Caption = "Protect Worksheet"
    End If
    
    UserForm1.Show

End Sub

Mallycat,

See attached. Thanks for your assistance!

...and if you want to have yr password "masked" you can use

Private Sub UserForm_Initialize()
 TextBox1.PasswordChar = "*"
  TextBox2.PasswordChar = "*"
End Sub

Originally Posted by Mallycat

Here is the fixed file, plus a video (in the zip file) that shows what was wrong and how to fix it.

for some reason I can't add a zip file with the video - I get an error. I have loaded the video here
https://vimeo.com/41459647

It should be visible within 30 mins of this post

Mallycat,

Thanks! This works great. I will watch the video in a bit. I need to update these macros in several large workbooks. Thanks again for your help.