Eliminare righe in un foglio protetto

Question

In un foglio protetto (alcone colonne sono lasciate sprotette per inserimento manuale dati, altre protette in cui ci sono delle formule) è possibile eliminare intere righe?

Ho provato in fase di protezione a spuntare la voce "Elimina righe", ma non mi consente di farlo, penso per via delle colonne protette.

Grazie 1000 e un saluto a tutto il forum.

Ciao Antonio

Answer 1

Ciao Antonio,

con una macro potresti fare in questo modo di cancellare la riga su cui è correntemente posizionato il cursore.

---

Sub eliminarighe()

    Dim sh As Worksheet

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    If Application.Selection.Count > 1 Then Exit Sub

    If MsgBox("Vuoi cancellare la riga " & Application.ActiveCell.Row & "?" _

        , vbQuestion + vbYesNo, "... elimina righe ...") = vbYes Then

        With sh

            .Unprotect Password:="TuaPassword"

                Application.ActiveCell.EntireRow.Delete

            .Protect Password:="TuaPassword"

        End With

    End If

    Set sh = Nothing

End Sub

---

Da inserire in un nuovo modulo e da richiamare con apposito pulsante di comando (pulsante modulo).

Se invece del pulsante modulo utilizzi un pulsante di comando activex puoi utilizzare questo codice da inserire nell'evento click del pulsante:

---

Private Sub CommandButton1_Click()

    If Application.Selection.Count > 1 Then Exit Sub

    If MsgBox("Vuoi cancellare la riga " & Application.ActiveCell.Row & "?" _

        , vbQuestion + vbYesNo, "... elimina righe ...") = vbYes Then

        Me.Unprotect Password:="TuaPassword"

            Application.ActiveCell.EntireRow.Delete

        Me.Protect Password:="TuaPassword"

    End If

End Sub

---

David

Answer 2

Grazie infinite e buona giornata.

Ciao Antonio