locked cells are still SELECTABLE

[GregM]

Hello XLS friends!
Pls bear with me as I haven't done macros since L123/DOS. My macro works fine except when the sheet that is named and saved is reopened for future editing the locked cells can be selected. They are still locked and cannot be edited. I verify that the sheet is still protected. I unprotect it and upon re-protecting it find the SELECT LOCKED CELLS is enabled or set to TRUE.
Any help to get me beyond this hump will be greatly appreciated.
Best regards, GregM

Sub saving()
    
    Dim tempName As String
    tempName = ActiveWorkbook.Name
    
    If tempName <> "InvTemplate.xls" Then
        Exit Sub
    End If

    ' Sheets("Simple Invoice").Protect userinterfaceonly:=True
    ActiveSheet.Unprotect
    [M12].Value = [M12].Value + 1
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.EnableSelection = xlUnlockedCells
    ActiveSheet.Protect
    
    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs ("C:\Documents and Settings\Marisa\Desktop\Invoices\InvTemplate.xls")
    Application.DisplayAlerts = True
    
    Dim invName As String
    Range("C9").Select
    invName = InputBox("What is the Invoice Name?")
    Range("C9").Value = invName
    invName = invName + "_" + CStr([M12].Value)
    ThisWorkbook.SaveAs ("C:\Documents and Settings\Marisa\Desktop\Invoices\" & invName & ".xls")
     
End Sub

 

[Ron Morris]

Hi,

Just by unprotecting the sheet, the user will be able to select previously locked cells so you can remove the line:

ActiveSheet.EnableSelection = xlUnlockedCells

Once you protect the worksheet again the cells will be locked.

Ron

 

[GregM]

Thanks for the imput Ron. Altho what you say seems logically true, that didn't change anything. Any other ideas?

I'm glad to attach the SS if that'll help. Like I said though, once I reopen the sheet which has been renamed, it is still PROTECTED, but the SELECT LOCKED CELLS is now checked on the Protect Sheet.

I guess the answer is to determine what I'm doing here that causes it to become checked, because I'm CERTAIN that it isn't checked in the initial, protected template.

 

[Ron Morris]

Hi,

Maybe you can change that initial line to read ActiveSheet.DisableSelection = xlUnlocked Cells and enter it after you Protect the Sheet.

Worth a try.

Ron