Ciao @frank_ciccio

hai una serie di richieste ancora aperte. In quelle in cui hai avuto riscontro positivo, dovresti segnarle come RISOLTO

Altrimenti c'è rischio che ti vengano bloccate le nuove richieste.

Grazie.

ciao

mi dispiace

non nel file allegato, ma in un'altro.

mica abbiamo visto l'altro 

la risposta è inerente al file che hai allegato

dovresti allegare i file esattamente come sono nell'originale

alex

fermo restante che hai ragione

Altrimenti c'è rischio che ti vengano bloccate le nuove richieste.

che mi risulti sono regole di altri forum non di questo

(onestamente ne conosco solo uno che applica il blocco)

sempre che non mi sia sfuggito qualche cosa del regolamento

il paragrafo 7 e 12 non parlano di blocchi ma invitano a chiudere le discussioni

Ciao @gianfranco55

cerco di spiegarmi meglio...purtroppo dietro a una tastiera non è mai semplice   

Quando hai detto: "che mi risulti sono regole di altri forum non di questo"...non so a quale forum ti riferisca ma se è quello che penso io, in verità non è proprio vero. Nel senso che non sono regole ma c'è un giudizio insindacabile dei moderatori.

In un regolamento, qualunque esso sia, in parallelo agli articoli, ci devono essere delle sanzioni...altrimenti che regolamento sarebbe?

Nei circa 20 articoli del regolamento di questo forum, come hai ben citato, ci sono i seguenti:

7) Dare un riscontro sulla domanda
Non lasciare la tua domanda "in sospeso" dopo aver trovato la soluzione giusta. Una volta trovata una risposta utile, la discussione va marcata come "risolta" premendo l'apposito pulsante in fondo alla discussione.

-------------------------------------------------------------------------------------------------------------------------

12) Chiudere le discussioni aperte
Quando una discussione è chiusa, è bene impostarla su "Risolta" mediante l'apposito menu a tendina in cima alla prima discussione. Solo gli utenti registrati possono marcare come risolta una discussione; pertanto gli utenti non registrati dovranno chiedere che ciò venga fatto per loro. 

Quindi il regolamento prevede che l'OP debba ottemperare a quanto scritto, ma se non lo fa dovrebbe incorrere in una sanzione, proprio perché ha violato un regolamento. Ora, sempre nel regolamento, c'è questo articolo:

15) Mutua collaborazione
Una Comunità è un luogo virtuale dove “convivono” centinaia di persone, per questo sono necessarie delle regole.
I Moderatori e, più in generale il gruppo di Staff, composto da Amministratore e Moderatori, hanno l’ingrato compito di far rispettare il presente regolamento.
Tutti sono tenuti ad ottemperare a quanto richiesto dallo Staff, perché spesso dietro una osservazione ci sono delle motivazioni anche tecniche di gestione del portale. E’ questo un impegno che il Team porta avanti nel tempo libero. Essere collaborativi è utile perché fa perdere meno tempo a tutti e consente una gestione efficace e puntuale della Comunità di ExcelVBA.

Come vedi in grassetto ho evidenziato il fatto che le regole vanno rispettate e che i Moderatori hanno il compito di farle rispettare.

Siccome non esistono vere e proprie sanzioni ma allo stesso tempo c'è bisogno di farle rispettare, allora i Moderatori possono applicare, laddove sia necessaria, la giusta sanzione, proprio per far rispettare il regolamento.

Gli unici modi per poterlo fare sarebbero:

- avviso

- richiamo

- blocco della richiesta

- blocco dell'utente

- cancellazione dell'utente

Quindi in conclusione, non esistono vere è proprie sanzioni scritte in questo forum ma si ha comunque facoltà, in base all'art. 15, di trovare un modo per farle rispettare...chiaramente partendo da un semplice avviso, così com'è stato fatto.

Scusa la disamina prolissa ma volevo essere il più chiaro possibile.   

ciao

è perchè eliminando una riga vengono toccate più celle

e mandano in debug la macro messa nel foglio1

(if not intersect.........va in debug se selezioni più celle)

ovviamo al problema così

`Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ex

If Not Intersect(Target, Range("B5:B" & Rows.Count)) Is Nothing Then

If Target.Value <> "" Then
  
       Range("A" & Target.Row & ":Q" & Target.Row).Interior.Color = xlNone
       Else
       Range("A" & Target.Row & ":Q" & Target.Row).Interior.Color = RGB(234, 234, 234)
 End If
End If
ex:  Exit Sub
End Sub`

ho visto che hai protetto il foglio

ma se la colonna B deve essere usata perchè non la escludi dalla protezione

poi il pulsante ha scritto cancella ma di fatto elimina non cancella

Il maestro delle formule @gianfranco55 è passato al VBA   

Io avrei lasciato tutto come all'inizio e avrei modificato solo la macro ordina

`Sub ordina_ascendente_archivio_input() 'data creazione
Dim I
'foglio archivio input abbin. elimina righe

    ActiveWorkbook.Worksheets("Archivio_input").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Archivio_input").Sort.SortFields.Add Key:=Range( _
        "B5:B303"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Archivio_input").Sort
        .SetRange Range("A4:Q303")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
 For I = 5 To 303
     If Range("B" & I) = "" Then
        Range("A" & I & ":Q" & I).Interior.Color = RGB(234, 234, 234)
 End If
 Next
 
 ActiveSheet.Protect "987654"
End Sub`

Ciao @frank_ciccio

secondo me non hai bisogno di tutto quel codice. Ti basta la Formattazione Condizionale.

Allora prova a seguire questi passaggi:

1) Elimina innanzitutto ogni codice negli eventi dei Fogli

2) Seleziona l'intervallo A5:Q fino alla fine del foglio (per farlo velocemente, dopo che hai selezionato il range A5:Q5, tieni premuto SHIFT + CTRL e premi la freccia direzionale verso il basso. Premi tante volte finché non arrivi all'ultimo rigo del Foglio.

3) Selezionato il range, colora il fondo di grigio

4) Sempre a range selezionato, vai in scheda Home --> Formattazione Condizionale --> Nuova Regola --> Scrivi questo =$B5<>"" nel rigo delle formule --> Poi premi su "OK"

adesso vedrai che quando scrivi qualcosa in una cella incolonna "B" , quel rigo, da A a Q, diventa bianco. Se cancelli ciò che è scritto, sempre in colonna "B", il rigo torna grigio.

5) Inserisci questo codice al posto di quello che hai già in tuo possesso:

Option Explicit

Sub eliminarigaselezionata1_input()
Dim avviso As Byte

If ActiveCell.Row < 5 Then
    MsgBox "Le prime 4 righe non possono eliminare!!!", vbCritical, "ATTENZIONE!"
    Exit Sub
End If

If Trim(Range("A5")) = "" Then
    MsgBox "Non c'è niente da eliminare!", vbExclamation, "AVVISO"
    Exit Sub
 End If

avviso = MsgBox("elimino riga < " & ActiveCell.Row & " > selezionata?", vbYesNo + vbQuestion, "ATTENZIONE!")
If avviso = vbNo Then Exit Sub

Application.ScreenUpdating = False
ActiveSheet.Unprotect "987654"

ActiveCell.EntireRow.ClearContents 'elimina solo una riga

Call ordina_ascendente_archivio_input

ActiveCell.Offset(1).Select '<-- nuova riga inserita

ActiveSheet.Protect Password:="987654", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True

Application.ScreenUpdating = True

End Sub

Sub ordina_ascendente_archivio_input() 'data creazione
'foglio archivio input abbin. elimina righe

    ActiveWorkbook.Worksheets("Archivio_input").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Archivio_input").Sort.SortFields.Add Key:=Range( _
        "B5:B303"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Archivio_input").Sort
        .SetRange Range("A4:Q303")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
End Sub

Poi altra cosa...come avviene la protezione del Foglio? Lo fai manualmente la prima volta oppure all'avvio del File nell'evento Open del WorkBook c'è l'istruzione che protegge?

Se così fosse, puoi evitare ogni qual volta di inserire nelle varie macro Unprotect e poi Protect.

Quando fai ricorso al metodo Worksheet.Protect, tra i parametri opzionale esiste UserInterfaceOnly che se lo imposti a TRUE fai sì che il Foglio rimane comunque protetto ma le macro restano libere di agire su di esso. Così ti eviti ogni volta di sproteggere e proteggere il Foglio.