Ciao
non è semplice risponderti senza il file di esempio.
"
A naso":
nella Private Sub Worksheet_BeforeDoubleClick...
dovresti riproteggere il foglio, inserendo:
ActiveSheet.Protect Password:="Italia92a"
verso la fine:
errHandler:
ActiveSheet.Protect Password:="Italia92a"
Application.EnableEvents = True
Exit Sub
End Sub
nella Private Sub TempCombo_LostFocus()
mi "sembra" inutile:
ActiveSheet.Unprotect Password:="Italia92a", Contents:=False
quindi lo toglierei
nella Private Sub TempCombo_KeyDown....
non vedrei necessità di fare nulla.
...ma ripeto è tutto da vedere su un esempio concreto.
saluti
[Modificato da dodo47 03/09/2017 17:25]
Domenico
Win 10 - Excel 2016