Bloccare e nascondere il contenuto di singole celle

Question

Salve, vi chiedo se è possibile bloccare e contemporaneamente nascondere il contenuto di singole celle in excel sia che si trovino in una stessa riga o colonna sia che si trovino in diverse righe o colonne. il tutto senza nascondere le colonne o le righe

Grazie

Answer 1

Salve Norman e grazie per la risposta. Tu sei chiaro, io non sono esperto! Proverò a seguire i passaggi e poi se del caso posterò quanto mi risulta.

Answer 2

Ciao Antonio,

Ciao Norman, non riesco proprio a capire dove e come copiare la macro. Puoi descrivermi tutti i passaggi. Grazie

Chiedo scusa se le mie istruzioni non erano sufficientemente chiare. Riproverò!

• Fai clic dx sulla linguetta del foglio

Quindi, dal menu risultante, 

• Seleziona l'opzione Visualizza Codice
• Incolla il seguente codice:

'=========>>

Option Explicit

'--------->>

Private Sub Worksheet_Activate()

    Application.DisplayFormulaBar = Intersect(ActiveCell, Rng) Is Nothing

End Sub

'--------->>

Private Sub Worksheet_Deactivate()

    Application.DisplayFormulaBar = True

End Sub

'--------->>

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Application.DisplayFormulaBar = Intersect(Rng, Target) Is Nothing

End Sub

'<<=========

• Alt-IMper inserire un nuovo modulo di codice

Oppure, dal menu nella parte superiore della finestra, seleziona l'opzione Inserisci

Nota che, nella mia versione inglese, Inserisci diventa Insert. Quindi, dal sottomenu risultante, seleziona l'opzione Modulo.

Nella tua versione italiana:

• Nel nuovo modulo vuoto, incolla il seguente codice:

'=========>>

Option Explicit

Public Rng As Range

'--------->>

• Ctrl-R per accedere alla finestra Project Explorer ('Gestione progetti')

Oppure, sceglie   Gestione progetti  dal menu Visualizza.

• 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 provaAntonio20150522.xlsm a: http://1drv.ms/1JHrEct

Spero di essere stato più chiaro.

===

Regards,

Norman

Answer 3

Ciao Norman, non riesco proprio a capire dove e come copiare la macro. Puoi descrivermi tutti i passaggi. Grazie

Answer 4

Ciao Antonio,

Grazie Norman, proverò a fare quanto suggerito. Poi posterò il risultatoGrazie per adesso 

Come già nel mio file di prova scaricato su Onedrive, il codice nel modulo di codice del foglio (fai clic sulla linguetta del foglio | Visualizza codice) avrebbe dovuto essere:

'=========>>

Option Explicit

'--------->>

Private Sub Worksheet_Activate()

    Application.DisplayFormulaBar = Intersect(ActiveCell, Rng) Is Nothing

End Sub

'--------->>

Private Sub Worksheet_Deactivate()

    Application.DisplayFormulaBar = True

End Sub

'--------->>

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Application.DisplayFormulaBar = Intersect(Rng, Target) Is Nothing

End Sub

'<<=========

===

Regards,

Norman

Answer 5

Grazie Norman, proverò a fare quanto suggerito. Poi posterò il risultato

Grazie per adesso