Code To Unlock Password Not Working

Apr 4, 2014

I have a workbook whose worksheets I want to protect on open, and also want to unprotect by way of a module. The protect code is:

Private Sub Workbook_Open()
Sheets("Cornealrings").Protect Password:="elohim"
Sheets("Ferrararings").Protect Password:="elohim"
Sheets("Kera Rings").Protect Password:="elohim"
Sheets("IS CALCULATOR").Protect Password:="elohim"
Sheets("IS Manager").Protect Password:="elohim"
End Sub

The unprotect code is:

Sub Unprotect()
Sheets("Cornealrings").Unprotect Password:="elohim"
Sheets("Ferrararings").Unprotect Password:="elohim"
Sheets("Kera Rings").Unprotect Password:="elohim"
Sheets("IS CALCULATOR").Unprotect Password:="elohim"
Sheets("IS Manager").Unprotect Password:="elohim"
End Sub

The code stops at the first line of the unprotect event, with the message that the password is not correct. If I try to manually unprotect, the password is accepted.

View 7 Replies


Password Protect: Unlock The Worksheet, Autofilter It, Print It, Unfilter It, And Password Protect The Sheet Again?

Jan 12, 2007

I have a sheet that is password protected. I have this code attached to a command button. It will unlock the worksheet, autofilter it, print it, unfilter it, and password protect the sheet again. However it is protecting it without a password. I need to have it protected with the password so that someone will not be able to just go to tools to unprotect the sheet.

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect "rainforest"
Selection.AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter Field:=1
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True
End Sub

View 3 Replies View Related

How To Unlock Worksheet (Password Protected)

Sep 13, 2013

What if you forgot the password in a protected sheet? is there a way to unlock it?

View 1 Replies View Related

Excel 2010 :: Unlock Whole Workbook By Putting Password In A Cell

Jul 11, 2014

I'd like to be able to unlock the whole of a workbook by putting the password into a specific cell and then the whole thing locks again when it is saved. I have been able to find the coding to do this for a worksheet but I'd really like to be able to unlock the whole project.

View 7 Replies View Related

Macro To Unprotect Sheet Unlock Cells And Protect Worksheet With Same Password

Jan 23, 2012

I have been really trying to get this sorted myself and I can get it to work with one exception. I can't get the sheet to lock with a password. It locks, but if I try to unlock it again, it does so without prompting me to enter a password.

Essentially I am wanting to unprotect two sheets, unlock the cells that were previously locked (so users couldn't enter data in them when the sheet is protected), then reapply the same password to protect the sheet, but now they will be able to enter data in the unlocked range of cells).

The second macro is to reverse the changes made in the first and 're-lock' the unlocked cells) (and again apply the same password to the sheet).

this is the code I have used.


Sheets("2012 Calculator 1 week").Select
ActiveSheet.Unprotect "taado"
Selection.Locked = False
Selection.FormulaHidden = False
Sheets("2012 Calculator 2 week").Select


I am assuming I have superfluous code in there, in addition to my mistake with the reapplication of the password.

View 3 Replies View Related

Exl2K User: Sheet Is Password Protected But User Can Change Color In Unlock Cells

Jun 16, 2006

find attached zip file . if you open the file then you can understand the problem.

I need to change cells color and text color as per user choice in Password protected sheet : (user is useing excl2000)

Kindly open attahced file i putted the note inside the file.

View 3 Replies View Related

Unlock Cell Using Code

Mar 6, 2009

code that will unlock cell g12 and af9 when cell e9 equals "WF-"

Basically I need it to say (I really don't know how to write code)
If "E9"="WF-" unlock "G12" and "AF12"
If not, clear contents of "G12" and "AF12"

View 11 Replies View Related

VBA Code To Unlock Multiple Sheets

Oct 4, 2007

How I can unlock a range of sheets that are password protected in my workbook.

I have 20 identical sheets one for each department which are protected by the same password.

It would be nice if I could rapidly lock and unlock these sheets.

What I need a set rng command in conjunction with a For Next loop?

View 12 Replies View Related

Password Protection Not Working

May 29, 2009

I have a macro that needs to unprotect the sheet before it does what it needs to do. The sheet has a password (i.e. it is not just protected). the macro runs fine but when I go back to the sheet and try to unprotect it, no password is required. simply clicking on Unprotect works and I am nopt prompted for the password in the macro.

I realise that they are not the most secure things anyway but the people who are going to using this will mess around enough to try and unprotect the sheet but if they were to be promted for the password they would stop looking.

View 3 Replies View Related

Userform To Change Password Not Working

May 29, 2009

Below is code i wrote to change a password. password value is hidden in cell iv4 in different sheets. My userform contains 3 textboxes and button to run macro. As long as old password matches cell value AND new password is entered twice correctly then it will change value in cell iv4.

View 4 Replies View Related

Macros Not Working When Sheet Is Password Protected

Jan 9, 2007

I am trying to password protect some of the cells in a worksheet. However doing that starts giving errors with Macros. The Macros are no longer working and infact giving error. What can I do to stop that happening?

View 9 Replies View Related

Excel 2010 :: VBA Code To Extract HTML Source Code Not Working On Google Sites

Dec 6, 2012

I have previously used the following code to successfully pull out IE webpage source code for string manipulation.

Its a crude example to demonstrate the principle:

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public IE As Object
Sub Sample()
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True

[Code] ......

However when I substitute in a Google websites address into the IE.Navigate command, the code runs to the "Source_Code = IE.document ...." line then flags up a Microsoft Visual Basic error. "Run-time error '438': Object doesn't support this property or method"

The webpage that I am trying to access is a confidential company site, so you won't be able to access it yourself, but starts with [URL] ......

The one thing that I have noticed about this website is the Privacy Report icon in the lower right status window (Picture of an eye with a restricted symbol in front). I don't know whether this is the cause of my problem, or purely an incidental observation.

Is there something peculiar with Google sites that means that the source code cannot be extracted in general, or is this an issue specific to my site ? Does the Privacy Report icon have any relevance, and if so how do I switch that off ?

Using :
MS Excel 2010
IE Explorer 8.0

View 1 Replies View Related

VBA Code To Unlock Cell If Another Cell Value Is Greater Than 6.00

Feb 28, 2013

I have a protected worksheet with most cells locked and some that are unlocked. I also know the password to unlock the sheet. VBA code to monitor a cell(B29 in my case) and if it has a value of 6.00 or more than it will unlock cell B34?

View 7 Replies View Related

Code To Verify Password On Login

Feb 22, 2014

I found some username and password login code that I am editing for my needs, but I am having some trouble with it. I keep getting run time error '448': Named argument not found on the following line:

MatchCase:=False, SearchFormat:=False)

[Code] .....

I have also attached my workbook.

Equipment Return Log.xlsm‎

View 2 Replies View Related

Code To Verify The User Name And Password

Apr 18, 2009

I have a code to verify the user name and password, what I want is counting the times the user enters wrong password and show a msgbox when he enters three continuous wrong passwords:

I have created the following lines which are part of a long code, the code is actually running without errors, but it is not showing the msgbox,

View 5 Replies View Related

Code For A Password Protected Database

Sep 16, 2009

I use the follwing code to update an access database from excel.

View 2 Replies View Related

VBA Password Forgot - Cannot Open The Code

Jan 17, 2013

I have a sheet which i made ages ago and cant remember my pw. I can goto the alt, F11 select the macro and run it which i have set from all sheets to hide, and i can change the wording on the sheets but i cant open the code.

Does this mean i will have to forget about it unless i remember the pw?

View 1 Replies View Related

Sharing Add-in With Password-protected Code?

Apr 10, 2013

I have an add-in which I want to share with others, but I want to protect the code from modification.

I know how to apply a password to a VBA project (Tools -> Project Properties -> Protection) but the problem is this: when a colleague installs the add-in, the subroutines within the add-in are not available in the Macros list to be added to the ribbon (in the Customize Ribbon window). The subroutines only appear when I remove the password.

View 1 Replies View Related

Inserting Password Protection To Code?

Jul 14, 2013

I`m struggling to insert password protection to code.If Yes is selected from the messagebox then a messagebox opens and asks for a password.

Sub DeleteRanges()

If MsgBox("Are you sure you want to delete data ?", vbYesNoCancel + vbExclamation, "Delete data") = vbYes Then
With Sheets("Score")
For i = 3 To 273 Step 10
.Range("D" & i).Resize(7, 11).ClearContents
End With
End If

End Sub

View 2 Replies View Related

VBA Code For Command Button To Have Password?

Sep 6, 2013

I have an excel spread sheet with say 20 or so sheets. Sheet 20 known as "Rates" is hidden. What I would like to do is when the user presses a command button say on sheet 1 he is asked for a password which will unhide the Rates sheet . If he gets it wrong a message pops up say incorrect please try again or have an exit button to cancel.

View 9 Replies View Related

Editing A Macro VBA Code To Take A Password

Nov 24, 2006

i currently have created a macro for copy a selection of cells from one work book to another. The file were i am copying the cells from is Track_&_Trend_00.xls. In this there is a password to open and modify. The sheet that the cells are being pasted to is TRACK & TREND.xls. There is no password on this. My macro runs fine only that midway through it asks for the password to open and the password to modify for the sheet Track_&_Trend_00.xls.

I wonder ifany one would know about entering input lines of code below to automatically put these passwords in and not having the two password dialog boxes pop up midway through running the macro.

ChDir "T:Track & Trend"
Workbooks.Open Filename:= _
"T:Track & TrendTrack_&_Trend_00.xls"
ActiveWindow.SmallScroll Down:=-102
Windows("TRACK & TREND.xls").Activate
Application.CutCopyMode = False

View 9 Replies View Related

VBA Code To Password Protect Workbook

Aug 14, 2008

I am trying to add a command button that will set a custom view, password protect all worksheets, and finally password protect the entire workbook structure. The code I am using will correctly set the view and add the password to the worksheets, but it will not apply the password to the workbook structure. What do I need to add?

Private Sub cmdReset_Click()

ActiveWorkbook.Unprotect Password:="test"
ActiveWorkbook.Protect Password:="test"
ActiveSheet.Unprotect Password:="test"

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
ActiveSheet.Protect Password:="test"

View 7 Replies View Related

Password Prompt - VBA Code Advice

May 11, 2006

I have created a workbook that mostly works with VBA codes. Within the code I have ensured that certain worksheets remain hidden. However, I have also written a macro to access what I called the ADMIN worksheet, which has several commands enabling updates and troubleshooting. Long story short, I would ideally like to prevent users from accessing that worksheet. I have already created a prompt (Msgbox) asking the user if he/she wishes to proceed with the macro but I would prefer being able to have a password prompt to run the macro.

View 4 Replies View Related

SaveAs Code Applying Password

Jul 29, 2007

I have a code that opens a workbook and saves it under one file name and then saves it under 2 different file names, but it keeps on saving them as password protected and I can't work out why. Would it be something to do with the code or something else? The following is the code I am using:

Workbooks.Open "C:BatteriesStore InformationStores" & StoreFile
ActiveWorkbook.SaveAs "C:BatteriesStore InformationOld Stores" _
& StoreFile & " " & Format(Now, "d-mmm-yy"), xlNormal, Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:BatteriesStore InformationStores" _
& StoreFile, xlNormal, Application.DisplayAlerts = False

View 2 Replies View Related

VBA Code - Unhide Multiple Sheets With Password?

May 18, 2011

Am trying to find the VBA code to "ask a user for the password to unhide multiple sheets/tabs"

I have got the script for unhiding all sheets which is:

Sub Sheets_Unhide()
Dim sh As Worksheet
For Each sh In Worksheets
sh.Visible = True
End Sub

What i would like though is for it to prompt with a password first before the code is executed for unlocking 50 odd sheets.. I know its not 100% fool proof, but would do for what i need!

View 6 Replies View Related

PASSWORD/Code To Unhide Rows And Worksheet Tab

Jun 15, 2007

I have a protected sheet so specific people can only see certain things. I would like code to Unhide a tab called "Estimating" and unhide Rows 2 through 9 and rows 24, 26 and 27.

View 9 Replies View Related

Excel 2010 :: Hide Worksheet Password In VBA Code Without Project Protection

Nov 5, 2012

I have a 2010 excel workbook with several locked worksheet (to which I manage the PW). I and another staff member manage different section of the macro but the other staff member doesn't have access to the locked areas.

Is there a way I can encrypt the password within VBA so it's not visible to the other staff member?

Locking the VBAProject doesn't work as the other staff member has to be able to edit his VBA section.

Many staff run the macro (via a button) and don't need to access the Macro and don't have access to the protected sheets.

I understand excel isn't ideal with PW protection for people wanting to bypass the protection and this isn't an issue.

View 3 Replies View Related

Hide And Password Protect The VBA Code So That They Can't Just Change The Pictures Visible Section To True

Nov 7, 2008

I've used VBA to make a picture appear when all the correct answers have been entered and it all works well. However, not to be too mean to 15 year olds, many of my students can be devious little feckers, and I want to hide and password protect the VBA code so that they can't just change the pictures visible section to true. I can password protect the workbook and worksheet, but not the VBA.

I'm entering the Visual Basic editor and I can see my simple script. I then click Tools - VBproject properties - protection. I'm clicking the "Lock Project for Viewing" box then filling in the password and confirming the password and clicking OK. But I can still see and edit my script, despite protecting the sheet and workbook.

View 3 Replies View Related

What Row Is Code Working On

Nov 27, 2008

I'm using Excel 2007.

Is it possible to know which row code is active on whilst it is running?

s/s is 332324 rows and growing. When I run code which goes down one column and takes quite some time I don't know what stage it is at.

I'd like to be able to see on screen which row it is down to.

View 14 Replies View Related

Code Is Not Working

Apr 24, 2007

Function AH02(FIF, xi, di, zi, nt, TAI, ZMT, xi2, nr)

fit1 = Array(0.1352785, 0.02388504, -0.0007874863, -0.008694193, -0.01137302, 0.0004262445, 0.0001408564, 0.001013715, -0.00004032109, 0.006176128, -0.03644328, 0.001557726, 0.0483096, 0.01859556, -0.0008903489, -0.006407128, -0.001693491, 0.00008581065)
fit2 = Array(0.01184698, 0.01976108, -0.0008787826, -0.03195365, -0.01083098, 0.0005161274, 0.004048458, 0.001013387, -0.00005030517, -0.003262156, -0.003314432, 0.0001453592, 0.005082949, 0.001888962, -0.0000865367, -0.0006340434, -0.0001799523, 0.000008493003)
fit = Array(0.1352785, 0.02388504, -0.0007874863, -0.008694193, -0.01137302, 0.0004262445, 0.0001408564, 0.001013715, -0.00004032109, 0.006176128, -0.03644328, 0.001557726, 0.0483096, 0.01859556, -0.0008903489, -0.006407128, -0.001693491, 0.00008581065, 0.01184698, 0.01976108, -0.0008787826, -0.03195365, -0.01083098, 0.0005161274, 0.004048458, 0.001013387, -0.00005030517, -0.003262156, -0.003314432, 0.0001453592, 0.005082949, 0.001888962, -0.0000865367, -0.0006340434, -0.0001799523, 0.000008493003)

ermess = 0
t = TAI
L = 1
If (nr > 40) Then GoTo 900
10 If (nr < 1) Then GoTo 900
11 L = 2

View 9 Replies View Related

Copyrights 2005-15, All rights reserved