Un codice in VBA per condizionare compilazione di celle

[fantina]

Buondì,
ho un modulo in formato excel che spedisco e che mi viene ritornato compilato con dati anagrafici vari.
I compilatori omettono regolarmente un paio di campi che per me sono fondamentali quindi vorrei che non fossero in grado di salvare l'intero file in mancanza di questa compilazione. Ecco i dettagli dei vincoli:
1. ho una cella (unita, in posizione riga 5, colonne R:T) che i compilatori lasciano vuota: qui ho solo bisogno di obbligarli a compilarla
2. ho un'altra cella (unita, in posizione riga 9, colonne I:O) che viene sempre popolata ma a volte con 11 caratteri a volte con 16: solo in questo secondo caso vorrei creare l'obbligo a popolare una (qualunque) delle due celle predisposte una in riga 37/Col I l'altra in riga 39/Col I

C'è modo di subordinare il salvataggio di tutti gli altri dati al rispetto delle condizioni sopra?

Sarebbe un aiuto grandissimo! Grazie

[Anthony47]

Userai una macro di tipo Workbook_BeforeSave (sul modulo ThisWorkbook), in cui farai i controlli, se Ok procedi col save, se nok emetti un messaggio e impedisci il save; qualcosa come:

Codice: Seleziona tutto

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'controlla le varie situazioni di errore:
Mess="Errore su cella XYZ: deve essere nmop"   'Messaggio rellativo al controllo che vai a eseguire
If (ERRORE 1) then goto NoSalva
Mess="Errore su cella abc, inserire non so cosa"
If (ERRORE 2) then goto NoSalva
'...
' tutte le varie condizioni di errore
'
Exit sub               'Uscita se nessun errore, procedi con Salva
  NoSalva:
  msgbox(Mess)
  Cancel=true       'Cancella salvataggio
End Sub

Se vuoi essere generosa puoi anche inserire una macro di Worksheet_Change (sul modulo del foglio di lavoro) con cui, man mano che l' utente compila alcune celle, ricordi che e' necessario compilare anche le celle subordinate; una cosa analoga la puoi fare con Convalida, impostando una convalida assurda (tipo Numero compreso tra 12345 e 12346) e poi un messaggio di errore di tipo "Informativo" su che cosa e' necessario fare come prossimo step.

Mi pare che sei abbastanza autonoma, dovrebbero bastare questi spunti; se serve altro posta ancora.
Ciao.

[fantina]

grazie anthony, intanto ti confermo che ho ricevuto e mi ci sto debitamente picchiando. Mi ci picchio ancora un po' e se non torna tutto ti faccio sapere...

[fantina]

Ciao Anthony ho aspettato che tu facessi in pace un po' di feste prima di tornare a rompere, non riesco ad applicare il codice che mi hai dato....
Però con Convalida come mi hai suggerito sono riuscita ad applicare molti avvisi e blocchi quindi ora mi rimane solo il problema della cella R5 che me la lasciano sempre vuota, spesso non viene neppure selezionata. Quindi ho bisogno che non salvino il file se R5 è vuota, con relativo messaggio di errore, ma mi dovresti rispiegare meglio il codice che mi hai dato.
Già che ci sei mi dici come proteggere le impostazioni di Convalida in modo che nessuno le modifichi e come assoggettare il codice a una password (o altro metodo di protezione) sempre per lo stesso scopo? Grazie infinite per la tua pazienza!

[Anthony47]

Molto generosa ad avermi dato qualche giorno di riposo...
Se il problema residuo e' R5 vuota potrebbe bastare questa:

Codice: Seleziona tutto

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'controlla le varie situazioni di errore:
If Sheets("Foglio1").Range("R5").value<>"" then exit Sub     '<<< Verificare Nome Foglio
Mess="La cella R5 su Foglio1 non e' stata compilata; file NON  SALVATO"   
Cancel=true       'Cancella salvataggio
End Sub



Da mettere sul modulo di codice ThisWorkbook.
Tuttavia invece che il test di "vuoto" sarebbe meglio inserire il test di corretto valore in R5.

Ciao.

[fantina]

fatto e funziona, ma ancora mi manca un pezzo perchè il salvataggio ubbidisce perfettamente e non è possibile salvare il file ma il messaggio di alert non esce (ce la farò vedrai...)
Non posso vincolare R5 al dato corretto perchè è un'informazione che ha solo il compilatore, è un dato che fa parte di una tabella che lista quasi mille item: purtroppo posso solo fargli scrivere qualcosa, la validità di quel qualcosa non saprei come vincolarla.

Grazie!

[Anthony47]

In effetti il messaggio non esce perche' non c' e' l' istruzione: invece di Mess="La cella R5 su Foglio1 non e' stata compilata; file NON SALVATO" metti

Codice: Seleziona tutto

Msgbox("La cella R5 su Foglio1 non e' stata compilata; file NON  SALVATO")


Ciao

[fantina]

WOW!
Tutto a posto! grazie!

[fantina]

... già, ma come lo salvo....

[Anthony47]

Ha ha ha...
Devi compilare anche tu R5!

Eventualmente potrai cancellare R5 all' apertura con

Codice: Seleziona tutto

Private Sub Workbook_Open()
Sheets("Foglio1").Range("R5").clearcontents
End Sub


Ma attenta anche qui agli effetti collaterali

Oppure ti fai queste macro:

Codice: Seleziona tutto

sub uno()
Application.EnableEvents = False
end Sub

Sub due()
Application.EnableEvents = True
end Sub


Per salvare: lanci la macro "uno"; salvi; lanci la macro 2 per riabilitare gli eventi.

Oppure ancora:
In una cella segreta, es Z1, scrivi una frase segreta, es Salva!
Poi in testa alla tua macro Before_Save inserisci

Codice: Seleziona tutto

If Sheets("Foglio1").Range("Z1").value="Salva!" then exit Sub


E azzeri questa cella all' apertura con

Codice: Seleziona tutto

Private Sub Workbook_Open()
Sheets("Foglio1").Range("Z1").clearcontents
End Sub


Basta.
Ciao.

[fantina]

Perfetto Anthony, ho optato per il secondo comando. Grazie infinite!