Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Ciao Antonio,
Egr. Norman, ho scaricato il tuo file e ho fatto la stessa cosa. Se mi posiziono sopra la cella è effettivamente invisibile e bloccata ma il suo contenuto compare nella barra della formula. è possibile che non si veda neanche nella barra della formula?
- Fai clic dx sulla linguetta del foglio
- Seleziona l'opzione Visualizza Codice
- Incolla il seguente codice:
'=========>>
Option Explicit
'--------->>
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range
Const myCells As String = "A1:A26"
Set Rng = Me.Range(myCells)
Application.DisplayFormulaBar = Intersect(Rng, Target) Is Nothing
End Sub
'<<=========
- Alt-IM per inserire un nuovo modulo di codice
- Nel nuovo modulo vuoto, incolla il seguente codice:
'=========>>
Option Explicit
Public Rng As Range
'--------->>
- Ctrl-R per accedere alla finestra Project Explorer ('Gestione progetti')
- Fai doppio clic sul modulo ThisWorkbook (Questa_cartella_di_Lavoro) del file e incolla il seguente codice:
'=========>>
Option Explicit
Const myCells As String = "A1:A26"
Const mySheet As String = "Foglio1"
'--------->>
Private Sub Workbook_Open()
Dim SH As Worksheet
Set SH = ThisWorkbook.Sheets(mySheet)
Set Rng = SH.Range(myCells)
End Sub
'--------->>
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFormulaBar = True
End Sub
'<<=========
- Alt-Q per chiudere l'editor di VBA e tornare a Excel
- Salva il file con l'estensione xlsm (macro abilitate)
Potresti scaricare il file aggiornato di prova Antonio20150522.xlsm a: **http://1drv.ms/1JHrEct**
Postscriptum:
Nota che ho modificato sia il file caricato su OneDrive che il suo link.
===
Regards,
Norman
