unlock the selected cell

Hello to all.
The workbook is now blocked, only the blue cells are not blocked
you can select a cell of the yellow range and unlock only the selected?
then another button to re-lock the cell again.
I attach an example.
I hope I explained.
max_max
--------------------------------------------------------------------------
Ciao a tutti.
Il workbook ora è bloccato, solo le celle blu non sono bloccate
è possibile selezionare una celle del range giallo e sbloccare solo la selezionata?
poi un'altro pulsante per ribloccare di nuovo la cella.
Aleggo un esempio.
max_max

Hello Rollis,
my message error ....
If the cell block is united not work.
max_max
-----------------------------------------
Ciao rollis,
un mio errore di messaggio....
Se la cella da bloccare è unita non funziona.
max_max

another change the macro must unlock from the row3
-------------------------------------------------------------
un'altra modifica la macro deve sbloccare dalla riga3

I badly explained myself?

Please Login or Register  to view this content.

not work, merged cells.
max_max

The example workbook.

The example workbook.

Hello Winon,
the macro seems perfect
I have to try the macro in the my office tomorrow.
Thank you.
max_max

Thanks Winon
it works.
thank you.
max_max

Hello,
Winon your macro is perfect.
it is possible a change?
Now with the UNLOCK button will lock the entire Range ("B7:K31")
you can select only a range of cell blocks only this cell?
max_max
--------------------------------------------------------------------------
Ciao,
winon la tua macro è perfetta.
é possibile una modifica?
Ora con il pulsante UNLOCK si blocca tutto il range Range("B7:K31")
è possibile selezionando solo una cella del range si blocchi solo questa cella?
max_max

Not block the entire range

With ActiveSheet.Range ("B7: K31")
ActiveSheet.Range ("B7: K31"). Locked = False 'Change range to suit.
If ActiveSheet.Range ("B7: K31"). Locked = False Then

but only the selected cell.
max_max

Hello Winon,
it's perfect.
A change:
add in macro

Please Login or Register  to view this content.

there are no unlocked cells.
max_max

I mean:

if in the range B7: K31 there are no locked cells on T2 = message "no locked cell"
max_max

Ops,
I've seen the changes of Rollis.
thanks Rollis,
it is OK.