impedire salvataggio file excel celle vuote

[edyna74]

salve a tutti,
mi serve una mano per un foglio excell che deve essere compilato obbligatoriamente in alcune celle .
Vorrei che chi compila la prima cella del foglio (ad es. B17) e quindi tutte successive (fino a K17) il foglio non possa stamparlo col pulsante "STAMPA".
Credo che debbano essere create due macro? Una per inibire il salvataggio ed una per controllare se le celle sono tutte complete?
Es. se non compili la cella B17, allora devi per forza compilare tutte le celle seguenti fino alla K17.
Devo quindi mettere un pulsante STAMPA sul foglio?
Devo consegnare un lavoro oggi e non so come fare.......AIUTO
spero di non avere chiesto una cosa difficile

[alfrimpa]

Ciao Edyna74

Non c'è bisogno di creare due macro; si possono utilizzare gli eventi BeforePrint del foglio e BeforeSave della cartella di lavoro per impedire la stampa del foglio o il salvataggio del file qualora non sia compilato l'intero intervallo B17:K17.

Magari se alleghi un file di esempio (con filedropper o dropbox) potrà essere più facile proseguire nel discorso.

Alfredo

[Anthony47]

Non ho capito se il problema e' impedire il salvataggio o la stampa o ambedue. Comunque se alleghi un file di esempio, come gia' suggerito da alfredo, possiamo risolvere prima; per come fare guarda qui: viewtopic.php?f=26&t=103893&p=605487#p605487

Ciao

[alfrimpa]

Anthony penso entrambe le cose.

[edyna74]

grazie mille per il vostro interessamento ed aiuto
non posso allegare il file in quanto cintiene dati sensibili.....
però vi scrivo l'unica macro che ho creato (ho già creato il bottone stampa)
la prima parte funziona benissimo
la seconda no
per semplicità ho messo una formula di check alla fine dell'area di lavoro e quindi nella cella J16, che restituisce un flag (ü) se tutti I campi sono compilati
quindi la seconda parte della macro non mi funziona mi dice sempre che I dati non sono tutti compilati quando invece lo sono
di seguito vi incollo il testo della mia macro:

Codice: Seleziona tutto

Sub Telaio4_Click()

' Telaio4_Click Macro
'If Range("b16:k16") = "" Then
    MsgBox ("I Campi obbligatori non sono tutti compilati "): Exit Sub
 
 'end if
 
  '("J16") = ü then
 
  'MsgBox ("Campi obbligatori compilati - stampa"):
   ' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _


End Sub

[alfrimpa]

Ciao Edyna

Premesso che la tua istruzione: "If Range("b16:k16") = "" Then" dà errore di run-time 13 Tipo non corrispondente, ti direi di provare la sottostante macro da associare ad un pulsante; stesso discorso lo si può fare per il salvataggio del file.

Va da sé che se non si utilizza il pulsante ma il normale comando di Stampa questa viene eseguita anche se il range è incompleto.

Fammi sapere.

Codice: Seleziona tutto

Sub StampaCondizionata()
Dim miorange As Range
Dim cel As Range
Dim verifica As Boolean
Set miorange = Range("b16:k16")
For Each cel In miorange
    If cel.Value = "" Then
        verifica = True
    End If
Next cel
    If verifica = True Then
        MsgBox "Range incompleto"
        Else
        ActiveSheet.PrintOut
    End If
End Sub