ho un codice capace di aggiungere una riga cliccando un pulsante e che protegge la tabella ogni volta che aggiungo una riga. Questo è il codice
- Codice: Seleziona tutto
Public Sub InserisciRiga()
Dim oTabella As ListObject
Const miaPassword As String = "MAG"
Const miaTabella As String = "Tabella1"
With ActiveSheet
Set oTabella = .ListObjects(miaTabella)
.Unprotect Password:=miaPassword
oTabella.ListRows.Add
.Protect DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, _
Password:=miaPassword
End With
End Sub
Il mio problema è che facendo cosi non riesco ad usare il filtro automatico della tabella anche se flaggo usa filtro automatico in fase di inserimento protezione manuale. Esiste un codice da aggiungere a questo esistente che mi consenta di usare il filtro nonostante la protezione impostata dalla macro?
Grazie mille
Fabio