ActiveWorkbook.Protect issues/questions

[Afro_Cookie]

Part of my Macro is protecting my workbook. If I run the same macro, with the workbook protected, it will unprotect my workbook even though there is nothing in the code telling it to do so.

Is this a common thing with protecting workbooks in VBA?

Below is a sampling of the my code.

    Worksheets("Dashboard").Visible = False
       
    ActiveWorkbook.Protect "password"

    ActiveWorkbook.Save

 

[VBE313]

is there a worksheet event that is unprotecting it?

 

[Afro_Cookie]

Not in this code there isn't. I have a separate macro that unprotects and unhides a bunch of stuff, but they don't interact with each other.

Complete code

Sub Sort()
' Sort based on date, then inspector, start time of inspection
On Error Resume Next

    ActiveWorkbook.Worksheets("Production 2020").ListObjects("test").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Production 2020").ListObjects("test").Sort.SortFields.Add Key:=Range("test[DATE]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Production 2020").ListObjects("test").Sort.SortFields.Add Key:=Range("test[SHIFT]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Production 2020").ListObjects("test").Sort.SortFields.Add Key:=Range("test[QC/Insp.]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    
    
    With ActiveWorkbook.Worksheets("Production 2020").ListObjects("test").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    Call F0rmat 'Format
           
    Columns("P:AA").EntireColumn.Hidden = True
       
    Worksheets("Dashboard").Visible = False
       
    ActiveWorkbook.Protect "password"
            
    Call Last_Empty 'Empty_cell
    ActiveWorkbook.Save
    
End Sub

 

[Afro_Cookie]

Clicked wrong Reply, responded above

is there a worksheet event that is unprotecting it?

 

[VBE313]

check the worksheet module that you are working on, are there any codes in there?

 

[Afro_Cookie]

Only modules that I created. There is no code in any of the sheets or ThisWorkbook.

It doesn't affect functionality, but it removes the purpose of my protecting the workbook.

check the worksheet module that you are working on, are there any codes in there?

 

[GWteB]

It appears to be a kind of bug in Excel 2013, but it can be circumvented.
Replace this line
ActiveWorkbook.Protect "password"
with these lines

With ActiveWorkbook
    If .ProtectStructure Then
        ' do nothing
    Else
        .Protect "Your_Password"
        .Save
    End If
End With

 

[Afro_Cookie]

Perfect! Thanks for the help.

It appears to be a kind of bug in Excel 2013, but it can be circumvented.
Replace this line
ActiveWorkbook.Protect "password"
with these lines

With ActiveWorkbook
    If .ProtectStructure Then
        ' do nothing
    Else
        .Protect "Your_Password"
        .Save
    End If
End With

 

[GWteB]

You're welcome and thanks for letting me know.