Note: The other languages of the website are Google-translated. Back to English

Come nascondere la formula ma visualizzare il risultato senza proteggere il foglio di lavoro in Excel?

In alcuni casi, potrebbe essere necessario nascondere le formule nel foglio di lavoro per uso privato. Questo articolo parla di nascondere le formule ma di visualizzare i risultati senza proteggere il foglio di lavoro in Excel.

Nascondi la formula ma visualizza il risultato senza proteggere il foglio di lavoro con il codice VBA


Nascondi la formula ma visualizza il risultato senza proteggere il foglio di lavoro con il codice VBA

Per nascondere le formule ma visualizzare i risultati senza proteggere un foglio di lavoro, eseguire le seguenti operazioni.

1. Nel foglio di lavoro è necessario nascondere le formule ma visualizzare i risultati, fare clic con il pulsante destro del mouse sulla scheda del foglio e selezionare Visualizza codice dal menu di scelta rapida.

2. Nel Microsoft Visual Basic, Applications Edition finestra, copia e incolla il codice VBA nella finestra del codice.

Codice VBA: nascondi la formula ma mostra il risultato senza proteggere il foglio di lavoro

Dim xDic As New Dictionary
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xCell As Range
    Dim xRg As Range
    Set xRg = Range("C1:C10")
    If xDic.Count <> xRg.Count Then
        For Each xCell In xRg
            xDic.Add xCell.Address, xCell.FormulaR1C1
        Next
    End If
    If (Target.Count = 1) And (Not Application.Intersect(xRg, Target) Is Nothing) And (Target.HasFormula) Then
        With Target
            .Value = .Value
        End With
    Else
        For Each xCell In xRg
            xCell.Formula = xDic.Item(xCell.Address)
        Next
    End If
End Sub

Note:: Nel codice, C1: C10 è l'intervallo di celle in cui vuoi nascondere le formule. Si prega di modificarlo in base alle proprie esigenze.

3. Quindi fare clic Strumenti > Riferimenti…. Controlla il Runtime di Microsoft Script casella e fare clic su OK nel pulsante Riferimenti - VBAProject finestra. Vedi screenshot:

4. premi il altro + Q i tasti per chiudere il file Microsoft Visual Basic, Applications Edition finestra.

D'ora in poi, quando fai clic sulla cella nell'intervallo specificato, la formula verrà nascosta immediatamente nella barra della formula.


Articoli correlati:


I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
fondo officetab
Commenti (20)
Rinomato 5 su 5 · Valutazioni 1
Questo commento è stato fatto dal moderatore sul sito
Ho provato a utilizzare il codice VBA e mi è stato visualizzato un messaggio di errore in cui si affermava che dovevo eseguire il debug della seguente parte del codice: "If xDic.Count <> xRg.Count Then"
Questo commento è stato fatto dal moderatore sul sito
Cara Jenessy,
Quale versione di Office usi?
Questo commento è stato fatto dal moderatore sul sito
anche per me stesso errore
versione per ufficio 2013
Questo commento è stato fatto dal moderatore sul sito
Buon Giorno,
Si prega di copiare l'intero script includendo la prima riga "Dim xDic As New Dictionary".
Perdere la prima riga nel codice causerà questo errore.
Questo commento è stato fatto dal moderatore sul sito
Anch'io ricevo lo stesso errore
Questo commento è stato fatto dal moderatore sul sito
Sono stato copiato in tutto il mondo ma continuo a dare un errore come tipo definito dall'utente non definito, quindi cosa posso fare
Questo commento è stato fatto dal moderatore sul sito
Contrassegnare un riferimento a una libreria di oggetti dati Microsoft Active X nell'editor VBA.


1. Apri l'editor VBA e vai su Strumenti | Riferimenti.


2. Scorri verso il basso fino a visualizzare la Libreria oggetti dati Microsoft Active X.


3. Se si dispone di più versioni, utilizzare la versione più recente. Le versioni corrisponderanno alle versioni di MDAC. L'unica volta in cui non vorresti utilizzare l'ultima versione è se stai distribuendo il progetto su una macchina che ha una versione precedente su di esso. Pertanto, se le macchine per cui si sta distribuendo solo hanno installato MDAC 2.6 e si dispone di MDAC 2.7, controllare il riferimento alla versione 2.6 della libreria di oggetti dati di Microsoft Active X per assicurarsi che il progetto funzioni sui computer a cui lo si distribuisce.
Plus
Runtime di script Microsoft
Questo commento è stato fatto dal moderatore sul sito
Continua a dire debug e si aggiorna in ogni secondo...
Questo commento è stato fatto dal moderatore sul sito
C'è anche un modo semplice.
Seleziona la cella o le celle in cui vuoi nascondere la formula o i dati.
Vai a Home --> Formato --> Formato celle --> Numero --> Personalizzato
In Tipo, Rimuovi Generale e inserisci """"
Il valore della cella o la formula non vengono visualizzati sullo schermo
Tuttavia apparirà nella barra della formula se selezioni la cella.
Questo commento è stato fatto dal moderatore sul sito
Ho provato a utilizzare il codice VBA ma dopo aver applicato questo codice il mio excel sta diventando lento e impiccato. Per favore aiutami a risolvere questo problema.
Questo commento è stato fatto dal moderatore sul sito
Se teniamo premuto il clic sinistro del mouse su una cella, la formula viene visualizzata finché non rilasci il clic sinistro. Altrimenti dovrebbe funzionare bene.
Questo commento è stato fatto dal moderatore sul sito
dopo questo codice vba applica il nuovo risultato della formula di somma non visualizzato nella cella, per favore aiuta ....
Questo commento è stato fatto dal moderatore sul sito
Grazie. Formula funzionata.
Questo commento è stato fatto dal moderatore sul sito
Ciao Im gracy, sto cercando di nascondere la formula in una colonna particolare senza password per proteggere il foglio. ho copiato e incollato l'intero codice e modificato le celle ma non sono ancora in grado di nascondere la formula. Per favore, puoi aiutare.

Questo commento è stato fatto dal moderatore sul sito
la formula ha funzionato ma il problema è quando chiudiamo il foglio e lo riapriamo che VBA non ha funzionato...
Questo commento è stato fatto dal moderatore sul sito
Ciao, per continuare a utilizzare questo VBA in futuro, dopo aver aggiunto il codice, salva la cartella di lavoro come cartella di lavoro abilitata per Excel. Fai clic su Compila il > Salva con nome. Nella finestra di dialogo Salva con nome, selezionare Cartella di lavoro abilitata per Excel dal Salva con nome digitare l'elenco a discesa, quindi fare clic su Risparmi pulsante. E quindi utilizzare questa cartella di lavoro con abilitazione macro di Excel in futuro.
Questo commento è stato fatto dal moderatore sul sito
Grazie per questo codice, avevo davvero bisogno di qualcosa del genere
Rinomato 5 su 5
Questo commento è stato fatto dal moderatore sul sito
dia tetap caricamento ya ko ?
Questo commento è stato fatto dal moderatore sul sito
saya da coba sesuai coding nya, bisa berjalan, tetapi di layar ketika saya klik ke tempat yang dimaksud ada keluar tanda loading, (tanda bulat berkedip). File saya mmg 18 MB, bagaimana caranya agar tidak keluar tanda kedip tersebut ?
Questo commento è stato fatto dal moderatore sul sito
Ciao akkia,
Il problema che hai citato non è riprodotto nel mio caso. Posso chiederti quale versione di Excel stai usando?
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL