VBA error 1004-password incorrect caps lock on

[soleturnes]

Hi! I have an excel file with some macros, which i've been using for a while, that protect and unprotect the workbook, with the password written in the code, but for some reason it isn´t recognizing now the password.
The password hasn´t been changed.
Could someone please help me?

I'll post my code below, but it works fine with other files.

Code to unprotect:
ActiveWorkbook.Protect Password:="xx", Structure:=False

I've already tried without success:
ThisWorkbook.Protect Password:="xx", Structure:=False
Workbooks("NAME").Protect Password:="xx", Structure:=False
ActiveWorkbook.UnProtect Password:="xx"
ActiveWorkbook.UnProtect (["xx"])
Opening it in Safe Mode

When trying to unlock the workbook in the review tab I get the same error

Thanks!

 

[rlv01]

I don't think someone could change the password because the VBA is locked with another password that only I know. Could someone changed it in the review tab?
How could it became corrupt? is there a way to fix it?

Thanks!!

Unfortunately corruption still happens once in a while. It's why I put backup copy code in anything I regard as mission critical. What you should do is immediately attempt to locate your 'last known good' copy to salvage what you can. This many involve getting anyone you sent a copy to, to send you a copy back. Forum rule #6 prohibits any discussion about how to defeat passwords so exploring any recovery strategies here is out of bounds.

Lastly, and this will sound stupid, but if you have not rebooted your PC since this problem occurred, do so now, then try one more time to access the file.

 

[soleturnes]

Unfortunately corruption still happens once in a while. It's why I put backup copy code in anything I regard as mission critical. What you should do is immediately attempt to locate your 'last known good' copy to salvage what you can. This many involve getting anyone you sent a copy to, to send you a copy back. Forum rule #6 prohibits any discussion about how to defeat passwords so exploring any recovery strategies here is out of bounds.

Lastly, and this will sound stupid, but if you have not rebooted your PC since this problem occurred, do so now, then try one more time to access the file.

Yup I did.. thanks for the help anyway"

 

[soleturnes]

Another thing to consider is a log sheet of some description. During a before close event you can test if the password in use matches what it should be, if not log the error with user details, better still have it send you a message via CDO mail.

Thanks for the tip! I'm not sure if I understand you, the password isn´t stored in a variable it's written in the code, how should I compare it with what it should be?

 

[dave3009]

Thanks for the tip! I'm not sure if I understand you, the password isn´t stored in a variable it's written in the code, how should I compare it with what it should be?

You can test if the sheet or workbook are protected using the relevant method

Function IsSheetProtected(TargetSheet As String) As Boolean
IsSheetProtected = Sheets(TargetSheet).ProtectContents
End Function

Function IsWorkbookProtected() As Boolean
With ThisWorkbook
    IsWorkbookProtected = (.ProtectStructure Or .ProtectWindows)
End With
End Function

In this instance I've tested a single sheet, but this could be applied to all or an array of sheets.

Sub Test()
Const pass As String = "YourPassword"                       'You can store your password as a constant
Dim sh As String

sh = "TheNameOfYourSheet"                                   'set sh for testing, but this could be in a loop

On Error Resume Next                                        'an error will occur if the password is incorrect, avoid that

Sheets(sh).Unprotect pass                                   'attempt to unprotect the sheet with your designated password
If IsSheetProtected(sh) Then                                'test if the sheet is still protected
    'do something if the sheet is still protected after
    'unprotecting it with your password
End If
Sheets(sh).Protect pass                                     'in the event the sheet was fine the reapply the protection
End Sub

Details on using CDO mail can be found at Ron De Bruin's resource website.

 

[soleturnes]

You can test if the sheet or workbook are protected using the relevant method

Function IsSheetProtected(TargetSheet As String) As Boolean
IsSheetProtected = Sheets(TargetSheet).ProtectContents
End Function

Function IsWorkbookProtected() As Boolean
With ThisWorkbook
    IsWorkbookProtected = (.ProtectStructure Or .ProtectWindows)
End With
End Function

In this instance I've tested a single sheet, but this could be applied to all or an array of sheets.

Sub Test()
Const pass As String = "YourPassword"                       'You can store your password as a constant
Dim sh As String

sh = "TheNameOfYourSheet"                                   'set sh for testing, but this could be in a loop

On Error Resume Next                                        'an error will occur if the password is incorrect, avoid that

Sheets(sh).Unprotect pass                                   'attempt to unprotect the sheet with your designated password
If IsSheetProtected(sh) Then                                'test if the sheet is still protected
    'do something if the sheet is still protected after
    'unprotecting it with your password
End If
Sheets(sh).Protect pass                                     'in the event the sheet was fine the reapply the protection
End Sub

Details on using CDO mail can be found at Ron De Bruin's resource website.

Hello! So I tested this for the workbook as I could still unprotect the sheets (which have the same password as the workbook). The function (Isworkbookprotected) was true, but then I added the sub test for the workbook and it worked, the workbook was unprotected finally! The only thing that I can think of being different is the storing the password as a constant....
Thank you Dave!!