impedire modifiche cella allo scadere di una data

Versione Completa Stampa Cerca Utenti Iscriviti Condividi :

Excel Forum » Excel Forum » » Soluzioni Excel Domande e Risposte

marcoc.1986

00lunedì 14 marzo 2016 04:46

Ciao,
qualcuno sa dirmi come posso fare a fare in modo che alcune celle al termine di una determinata data non possano più essere modificate o cancellate? Le celle contengono testo.
Non so se sono riuscito a spiegarmi...ho una foglio con sette colonne, la prima riga di ogni colonna è una data le altre celle sono tutte testo. Io avrei bisogno che allo scadere della data riportata sopra le celle sotto corrispondenti alla colonna non siano più modificabili né cancellabili. Grazie in anticipo se qualcuno sa aiutarmi.

Marius44

00lunedì 14 marzo 2016 08:51

Ciao Marco
nel modulo di classe del foglio interessato metti questa macro nell'evento Change

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Long
    If Not Intersect(Target, Range("A2:B2")) Is Nothing Then
        c = Target.Column
        If Cells(1, c) < Now() Then
            MsgBox "Cella non modificabile", 0 + 16, "Errore"
            Application.EnableEvents = False
            Application.Undo
            Application.EnableEvents = True
        End If
    End If
End Sub

Ovviamente devi adattare l'intervallo alle righe che ti interessano.
Fai sapere. Ciao,
Mario

marcoc.1986

00lunedì 14 marzo 2016 18:35

impedire modiche celle contenenti testo allo scadere di una determinata data

Grazie Mauro ma proprio non riesco a venirne a capo probabilmente è colpa mia che non riesco a mettere giù bene la macro ma è la prima volta che devo inserirne una e proprio non me ne intendo (nel senso che non riesco ad adattare l'intervallo e la macro non funziona).
Posso inviarti il file o una foto del foglio?

Marius44

00lunedì 14 marzo 2016 18:54

Forse è meglio se alleghi il file

Ciao,
Mario

Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 05:40.