Find Cells with Formulas, Range on Active Worksheet and Lock them

[Tsinos]

Create a VBA .

- On an Active Worksheet
- Range ("C1:D258")
- Unlock all the cells within that Range.
- Finds cells with Formulas within that Range.
- Locks the Cells with Formulas
- Does not require a password (no protection).

The aim is to protect the sheet so that users can insert information on cells but have no access to the cells which has formulas. Once I have manually locked the Sheet, they can only access the unlocked cells.

I have been trying to implement a code, but not successfully. Hope to get some help.
Thank you.

[Marc L]

As by default all the cells are locked …

[Tsinos]

I have not realized that. Thank you for your remark, I edited the question accordingly.

[Marc L]

(removed, misread)

[Marc L]

A VBA demonstration as a beginner starter :

Sub Demo1() 
    With [C1:D258] 
        .Locked = False 
        .SpecialCells(xlCellTypeFormulas).Locked = True 
    End With 
End Sub  

► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄

[Tsinos]

Wow - you just blew my mind! I did not even know that PHP can also be used on Excel. That only proves 1) how little I know about Excel 2) how powerful tool Excel is.
@Marc L, thank you so much for the code. It works perfectly!

[Marc L]

No you misread as I wrote « A VBA demonstration » no nothing to do with the PHP code tags …

Thanks for the rep' !