Lock cells with a random password

[JSavo]

Hi

I need a way to lock cells permanently, so not even I can get back into it.

e.g. Lock cells A1 to A10. I can't know the password. I can't alter the VBA code to get back in.

Is this possible?

Cheers!

 

[Misca]

You can try something like:

    Dim PassWord As String    Dim i As Integer
    Dim k As Integer
    Dim l As Integer
    
    l = Int((20 - 10 + 1) * Rnd + 10)   'Random length between 10 and 20
    
    For k = 1 To l
    
    i = Int((125 - 48 + 1) * Rnd + 48)
    
    PassWord = PassWord & Chr(i)
    
    Next k
    
    ActiveSheet.Protect (PassWord)

The protection applies for the whole sheet, not just certain cells. Use the Format Cells / Protection to set which cells you want to lock / unlock.

 

[JSavo]

That seems to work! Thanks very much.