Risolto Nuova riga tabella con foglio protetto

[AntoFrancio]

Ciao a tutti,
ho preferito creare una tabella, anziché un intervallo di celle, per il fatto, che usando il TAB, mi aggiunge automaticamente, la riga nuova completa di formule ecc..
Il problema è che se proteggo il foglio, non me lo permette. Potete aiutarmi?
Vi allego il tentativo di tabella
Grazie ciao

 

[Baloon_50]

Ho aggiunto un foglio (Foglio1) in cui ci sono due pulsanti :
uno attiva la protezione
uno disattiva la protezione
Per lavorare, disattivi la protezione e quando ha finito la attivi
Per non far vedere i pulsanti, nascondi il foglio (tasto destro sul nome del foglio e poi nascondi)
Per vederli, riattiva il foglio (tasto destro sul nome del foglio e poi scopri)

La password fittizia che ho messo è : abc
per modificarlo vai in VBA e modifica.

Ciao.

 

[lukereds]

ciao,
alcune celle della tabella risultano sbloccate, motivo per cui non sono protette.
Seleziona tutta la tabella, formato celle, scheda protezione, flag "protetto" sì e funziona

 

[AntoFrancio]

ciao, grazie, per le risposte che mi avete dato.
Come al solito mi sono spiegata male; portate pazienza. Ci riprovo..
Io ho bisogno con foglio protetto e celle sia bloccate che sbloccate; di inserire righe nuove nella tabella d' esempio in allegato.
Se non avessi bisogno di proteggere le celle che contengono calcoli, il problema non ci sarebbe, perchè premendo il tabulatore posizionato nell'ultima cella della tabella, mi crea la riga successiva. Il fatto è che questa funzione non va con il foglio protetto.
Spero di essere riuscita a spiegarmi, altrimenti ci riprovo, non c''è problema...
grazie ancora.

 

[lukereds]

la tabella deve essere bloccata (a parte inserimento righe) o sbloccata? Se vuoi poter inserire nuove righe queste devono essere sbloccate

 

[Baloon_50]

Quanto ti ho proposto io è quello che ti serve :
togli la protezione al foglio (usando il pulsante) fai tutto ciò che devi (tra le altre cose anche inserire righe in tabella) e poi lo proteggi nuovamente (usando sempre il pulsante adeguato).

 

[AntoFrancio]

la prima colonna sbloccata il resto bloccato.

 

[AntoFrancio]

Baloon, il fatto è che la useranno più persone e ho paura che mi scrivano dentro le celle con le formule dopo aver tolto la protezione al foglio,

 

[alfrimpa]

Perchè non crei una userform per immissione, modifica e cancellazione dati rendendo inaccessibile e quindi non modificabile il foglio?

 

[Baloon_50]

Alfredo mi ha anticipato; considerando che viene utilizzato da altre persone, la cosa migliore è appunto una userform che non permetterà a nessuno di fare modifiche oltre il lecito.

Ciao.

 

[AntoFrancio]

a saperla creare ....

 

[alfrimpa]

a saperla creare ....

Comincia a guardare qui

[Tutorial VBA] - Popolare UserForm Con dati di una tabella ed inserire dati in un altro foglio

Eccomi con un altro piccolo tutorial. Questa volta vorrei parlare di come accedere ai dati di una tabella. Come inserirli in un UserForm Come scaricarli dal form ad un secondo luogo, come, per esempio, trascriverli in un altro foglio. Per prima cosa procuriamoci quello di cui abbiamo bisogno...

www.forumexcel.it

O guarda i video di @Gerardo Zuccalà (che saluto) da EM 111 a EM 114

Oppure potresti anche usare il modulo dati di Excel

Poi se hai problemi siamo qui.

 

[AntoFrancio]

perfetto! Ci provo. Grazie mille ciao.

 

[Bruno]

Ciao A @AntoFrancio

Ecco un esempio che puoi utilizzare solo con la nuova versione di Excel 365

Ho protetto l'ultima riga e ho aggiunto i miei totali personalizzati come esempio.
Ora seleziona il numero di riga per poi con click destro inserire la riga nella tabella.

Nessuna macro è richiesta ed il foglio è sempre protetto.
Fai una prova

 

[AntoFrancio]

Ciao A @AntoFrancio

Ecco un esempio che puoi utilizzare solo con la nuova versione di Excel 365

Ho protetto l'ultima riga e ho aggiunto i miei totali personalizzati come esempio.
Ora seleziona il numero di riga per poi con click destro inserire la riga nella tabella.

Nessuna macro è richiesta ed il foglio è sempre protetto.
Fai una prova

 

[AntoFrancio]

Ok! Ti ringrazio è una soluzione.

 

[lukereds]

la tabella deve poter essere modificata giusto? Allora sproteggi la tabella e n righe sotto, in modo da poter aggiungere tutte le righe che vuoi.
Grezzo ma efficace

 

[ggratis]

Per aggiungere o togliere le righe puoi usare due "pulsanti"...

ho preferito creare una tabella, anziché un intervallo di celle, per il fatto, che usando il TAB, mi aggiunge automaticamente, la riga nuova completa di formule ecc

Sub Aggiungiriga()
    With Sheets("NUOVO")
        .Unprotect ("abc")
        With .ListObjects("Tabella1")
            .ListRows.Add (1) 'aggiunge una riga in cima
            .ListRows.Add 'aggiunge una riga in fondo
        End With
        .Protect ("abc")
    End With
End Sub
Sub eliminariga()
    With Sheets("NUOVO")
        .Unprotect ("abc")
        With .ListObjects("Tabella1")
            .ListRows(1).Delete 'elimina la prima riga
            '.ListRows(.ListRows.Count).Delete 'elimina l'ultima riga
        End With
    End With
  Sheets("NUOVO").Protect ("abc")
End Sub

oppure con tutti i limiti del caso...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Me.ListObjects("Tabella1").DataBodyRange) Is Nothing Then
        Me.Unprotect ("abc")
    Else
        Me.Protect ("abc")
    End If
End Sub

 

[AntoFrancio]

ggratis, grazie! problema risolto. E' proprio quello che mi serve.
ciao e grazie a tutti.

 

[alfrimpa]

A @AntoFrancio

Lieto che tu abbia risolto ma ti consiglio comunque di “esplorare” il mondo delle userform che è affascinante