Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Ciao David,
Prova qualcosa del genere:
Home | Scheda Sviluppatore | Inserisci | Controlli Modulo
Seleziona un pulsante e aggiungerlo al foglio di interesse.
- Alt-F11 per aprire l'editor di VBA
- Alt-IM per inserire un nuovo modulo di codice
- Nel nuovo modulo vuoto, incolla il seguente codice:
'=========>>
Option Explicit
'--------->>
Public Sub AumentaTabella()
Dim SH As Worksheet
Dim Rng As Range
Dim myTable As ListObject
Const PWord As String = "Pippo" '<<=== Modifica
Const NomeDellaTabella As String = "Tabella7" '<<=== Modifica
Set SH = ActiveSheet
With SH
Set myTable = SH.ListObjects(NomeDellaTabella)
Set Rng = myTable.Range
.Unprotect Password:=PWord
With Rng
myTable.Resize .Resize(.Rows.Count + 1)
End With
With myTable.Range
.Cells(.Rows.Count - 1, 1).Select
End With
.Protect Password:=PWord
End With
End Sub
'<<=========
- Alt-Q per chiudere l'editor di VBA e tornare a Excel.
- Fai clic dx sul pulsante | Assegna Macro
- Seleziona AumentaTabella | OK
Sostituisci Pippo con la tua password e sostituisci Tabella7 con il nome della tua tabella.
Da ora in poi, potresti inserire una riga al fondo della tabella facendo clic sul pulsante, nonostante che il foglio sia protetto.
Ai fini delle mie prove ho usato il file che ho già caricato nel tuo altro thread recente, ossia David20150911.xlsm a:
e ho usato la tabella sul foglio **Magazzino.**Pertanto, anzichè creare un nuovo modulo standard, ho incollato il nuovo codice nel modulo standard esistente Module1 e ho aggiornato il file caricato.
===
Regards,
Norman