Formattare

Hai un problema con Excel?

Nuova discussione

Formattare
di Paolo62 (utente non iscritto) data: 27/07/2014 20:58:06
Mi occorrerebbe che al superamento di una certa data, tutte le celle formattate con il colore arancione al suo interno tutti i caratteri diventino dello stesso colore cosi da divenire invisibile
di Lucas87 data: 28/07/2014 08:13:55
Ciao
Con le striminzite informazioni che hai fornito l'unica cosa che è possibile suggerirti è che il codice sotto serve a cambiare il colore del testo...poi a cosa vada applicato e che colore tu voglia lo sai solo tu...
Allega un file di esempio e spiega meglio cosa vuoi ottenere e magari sarà possibile trovare un modo per applicarlo...
Font.ColorIndex
di Paolo62 (utente non iscritto) data: 28/07/2014 21:03:40
Innnazitutto grazie a Lucas87 per la celere risposta
Provvedo a dare maggiori informazioni come gentilmente richiesto.
Allora...
ad esempio, ho le celle da c5 a j17 formattate di base con il riempimento colore arancio e il testo blu
nella cella I2 ho la formula che mi da in automatico la data odierna: oggi()
Mi occorre che ad esempio al superamento del 31/12/2014 come data odierna il testo nelle celle da c5 a j17 prenda la stessa colorazione del riempimento in modo tale che il testo a questo punto diventi illeggibile per le persone che non mi hanno effettuato dovuta richiesta di uso del foglio.
Se poi... c'e possibilità con un codice di bloccare l'utilizzo del foglio al superamento di una certa data ancora meglio. Anticipatamente grazie a tutti quelli che mi risponderanno. Paolo

di Lucas87 data: 29/07/2014 08:27:43
Ciao
Molto meglio...
I codici sotto vanno messi nell'evento Open in ThisWorkbook.
Quello che hai chiesto è il primo codice (forse il colore giusto non è il 46...devi vedere tu)
In alternativa c'è il secondo codice che rende invisibile il testo
Se chi non ha l'autorizzazione non può usare il foglio allora tanto vale fare tutto questo. Il terzo codice chiede una password (ora è psw) dopo la data stabilita: se non è corretta il foglio viene chiuso.
Il problema delle macro però è che possono essere disattivate quindi non sono il massimo per proteggere il foglio. Quello che si può fare è mettere prima una protezione con password al foglio e, tramite codice, toglierla se la data odierna è antecedente quella stabilita.
Chi non ha l'autorizzazione non deve vedere i dati o è sufficiente che non possa utilizzarli/modificarli/copiarli?

If Date > "31/12/14" Then
    Range("c5:j17").Font.ColorIndex = 46
End If


If Date > "31/12/14" Then
    Range("c5:j17").NumberFormat = "???"
End If

If Date > "31/12/14" Then
    If InputBox("Inserire password") <> "psw" Then
        ThisWorkbook.Close savechenges:=0
    End If
End If

Vuoi Approfondire?