Foglio protetto ma comando inserisci tabella Pivot attivo

Question

Buongiorno a tutti come faccio in una macro a dirgli di lasciare attivo il comando Inserisci, Tabella Pivot?

Ho provato così ma non funziona

    DrawingObjects:=True, Contents:=True, Scenarios:=True, _

    AllowFormattingCells:=True, AllowFormattingColumns:=True, _

    AllowFormattingRows:=True, AllowFiltering:=True, AllowSorting:=True, _

    AllowUsingPivotTables:=True

Molte grazie a tutti

Answer 1

Buongiorno a tutti come faccio in una macro a dirgli di lasciare attivo il comando Inserisci, Tabella Pivot?

Ho provato così ma non funziona

    DrawingObjects:=True, Contents:=True, Scenarios:=True, _

    AllowFormattingCells:=True, AllowFormattingColumns:=True, _

    AllowFormattingRows:=True, AllowFiltering:=True, AllowSorting:=True, _

    AllowUsingPivotTables:=True

Molte grazie a tutti

 

Quel settaggio riguarda l'utilizzo di una tabella pivot esistente, non la creazione di una nuova tabella pivot. Infatti le specifiche del parametroAllowUsingPivotTables(guida del vb di Excel, Worksheet.Protect Metodo) recitano:

Se ha valore True, sarà possibile utilizzare i rapporti di tabella pivot nel foglio di lavoro protetto. Il valore predefinito èFalse.

Non credo sia possibile fare quanto chiedi se non implementando tu un pulsante/un tasto di scelta rapida. Qui sotto un semplice esempio:

Public Sub m()

    Dim sh As Worksheet

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With sh

        .Unprotect

        Application.Dialogs(xlDialogPivotTableWizard).Show

        .Protect

    End With

    Set sh = Nothing

End Sub

---

--

La soluzione, il codice ed i files sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dalla soluzione proposta se usata impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare la soluzione in files importanti.

--

Mauro Gamberini - Microsoft© MVP(Excel)

http://www.maurogsc.eu/

Answer 2

mi sembra un'ottima soluzione! Ottima serata ;)

 

 

;-) Anche a te.

---

--

La soluzione, il codice ed i files sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dalla soluzione proposta se usata impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare la soluzione in files importanti.

--

Mauro Gamberini - Microsoft© MVP(Excel)

http://www.maurogsc.eu/

Answer 3

mi sembra un'ottima soluzione! Ottima serata ;)