Macro che permetta di bloccare le celle piene

[rocco.iannini]

Buongiorno a tutti, mi sono appena iscritto in questo bellissimo forum che è una inesauribile miniera di gemme preziose. Grazie a chi permette tutto ciò.
Ecco il mio problema. beh, il mio primo problema è che sono proprio negato con excel.., ma il mio problema attuale è questo:
ho predisposto una tabella dove inserire una serie di dati che poi vengono utilizzati per stampare delle fatture.
Quindi ogni volta che devo stampare una fattura entro nella tabella e scrivo i dati nella prima riga libera. Una volta finita di scrivere i dati mi piacerebbe poter disporre di una macro che facesse le seguenti cose:
sprotegge il foglio, riconosce tutte le celle che hanno un contenuto, le blocca, riprotegge il foglio, salva il file di excel e si sposta sulla scheda fattura.
Spero di essere stato abbastanza chiaro, ma di sicuro si è capito il mio livello di conoscenza di excel. Grazie a tutti voi in anticipo.

[alfrimpa]

Ciao Rocco

Sei stato chiaro ma per fornirti un aiuto più mirato allega un tuo file di esempio (senza dati sensibili) che sia coerente con la struttura del tuo e con la tua richiesta.

[rocco.iannini]

Volentieri, ma non ho nemmeno trovato il modo di allegare il file...

[alfrimpa]

Ciao Rocco

Per allegare un file puoi utilizzare un sito di file sharing tipo Filedropper o Dropbox.

Una volta che avrai inserito il file sul sito questo ti restituirà un link che copierai ed incollerai qui sul forum.

A titolo di esempio ti mostro una macro che fa quello che hai chiesto che andrà comunque adattata alla tua situazione.

Codice: Seleziona tutto

Sub BloccaPiene()
Dim rng As Range
Dim cel As Range
Set rng = Range("a1:g20")
ActiveSheet.Unprotect
ActiveSheet.Cells.Locked = False
For Each cel In rng
    If cel.Value <> "" Then
        cel.Locked = True
    End If
Next cel
ActiveSheet.Protect
End Sub

[rocco.iannini]

Ciao Alfredo, non so come ringraziarti, la tua macro è esattamente ciò che mi serviva!!
Adesso ho un altro problema, ma aprirò una nuova discussione.
Grazie ancora della disponibilità e della competenza. Rocco.

[alfrimpa]

Beh se sei riuscito a far funzionare la macro non eri così negato con Excel