Excel Sheet Protection Password

[sajib_148]

I have a Macro Enable Excel Document. I have using following code to protect the sheet. But the problem is that when i open the workbook, Dialog Box for unprotect password is appeared. After clicking cancel, it goes away. How can i get rid out of this.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Sheets("Summery Statement").Protect Password:="****"
Sheets("TR").Protect Password:="****"
ActiveWorkbook.Save
End Sub

Private Sub Workbook_Open()

If Sheets("Summery Statement").Unprotect = True Then
   Sheets("Summery Statement").Protect Password:="****"
      
If Sheets("TR").Unprotect = True Then
   Sheets("TR").Protect Password:="****"

If Err.Number <> 0 Then
    MsgBox "The Password Provided is incorrect"
    Exit Sub
End If
On Error GoTo 0
End If
End If
End Sub

[Kaper]

You are trying to unprotect it, so the dialog pops-up.
Try reading property:
.ProtectContents

Private Sub Workbook_Open()

If Sheets("Summery Statement").ProtectContents = False Then
   Sheets("Summery Statement").Protect Password:="****"
'...

PS. Check the rest of the code too, because it seems that you set error skipping in one procedure and test an error in another (when error handling will be in default state - like Goto 0)

[AliGW]

Administrative Note:

Unfortunately, this is a duplicate thread, and you are allowed only ONE thread per issue here.

Please see Forum Rule #5 about thread duplication.

I am closing this thread, but you may continue here in the original thread: https://www.excelforum.com/excel-pro...ork-sheet.html