foglio protetto - operazioni consentite: raggruppare date su pivot

Discussione:

(troppo vecchio per rispondere)

ale

2015-07-31 07:59:54 UTC

ciao a tutti,
ho un foglio protetto e vorrei, nonostante sia protetto poter raggruppare le date in una pivot.
qualche idea.
grazie come sempre.
ciao
ale

ale

2015-07-31 08:44:33 UTC

Permalink

Post by ale
ciao a tutti,
ho un foglio protetto e vorrei, nonostante sia protetto poter raggruppare le date in una pivot.
qualche idea.
grazie come sempre.
ciao
ale

agganciata ad un pulsante ho trovato questa:

ActiveSheet.Unprotect Password:="0"
Range("A16:AQ16").Select
Selection.AutoFilter
Range("D16").Select
ActiveSheet.Protect Password:="0", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowUsingPivotTables:=True, UserInterfaceOnly:=True, AllowDeletingRows:=True, AllowFormattingColumns:=True, EnableOutlining:=True, AllowFiltering:=True

in pratica a questa pivot vorrei poter fare i filtri e i raggruppamenti per data sempre sulle colonne. Pare che funziona, nel senso che inserisce e toglie il filtro e la possibilità dei raggruppamenti, solo che mi da

errore di run time 1004 errore definito dall'applicazione o dall'oggetto

anche se, nonostante tutto, mi mette e toglie a dovere i filtri e raggruppamenti, ma vedo che la protezione non la rimette...mentre se nell'ultima parte dei permessi inserisco solo

ActiveSheet.Protect Password:="09", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True, AllowUsingPivotTables:=True

non mi permette il raggruppametno, ma filtro e metti/toglie protezione funziona alla grande...
consigli?
ciao
ale

ale

2015-08-03 07:27:00 UTC

Permalink

Post by ale

Post by ale
ciao a tutti,
ho un foglio protetto e vorrei, nonostante sia protetto poter raggruppare le date in una pivot.
qualche idea.
grazie come sempre.
ciao
ale

ActiveSheet.Unprotect Password:="0"
Range("A16:AQ16").Select
Selection.AutoFilter
Range("D16").Select
ActiveSheet.Protect Password:="0", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowUsingPivotTables:=True, UserInterfaceOnly:=True, AllowDeletingRows:=True, AllowFormattingColumns:=True, EnableOutlining:=True, AllowFiltering:=True
in pratica a questa pivot vorrei poter fare i filtri e i raggruppamenti per data sempre sulle colonne. Pare che funziona, nel senso che inserisce e toglie il filtro e la possibilità dei raggruppamenti, solo che mi da
errore di run time 1004 errore definito dall'applicazione o dall'oggetto
anche se, nonostante tutto, mi mette e toglie a dovere i filtri e raggruppamenti, ma vedo che la protezione non la rimette...mentre se nell'ultima parte dei permessi inserisco solo
ActiveSheet.Protect Password:="09", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True, AllowUsingPivotTables:=True
non mi permette il raggruppametno, ma filtro e metti/toglie protezione funziona alla grande...
consigli?
ciao
ale

penso che l'unica soluzione sia quella di costruirsi due pulsanti.
sul primo (per raggruppare) mettere una cosa tipo

ActiveSheet.Unprotect
     Selection.Group Inizio: = True, fine: = True, Periodi: = Array (False, False, False, _
         False, True, False, False)
     ActiveSheet.Protect DrawingObjects: = TRUE Contenuto: = True, Scenarios: = True

e sull'altro, per dividere, mettere

ActiveSheet.Unprotect
     Selection.Ungroup
     ActiveSheet.Protect DrawingObjects: = TRUE Contenuto: = True, Scenarios: = True

ciao
ale

ale

2015-08-03 07:32:22 UTC

Permalink

Post by ale

Post by ale
ciao a tutti,
ho un foglio protetto e vorrei, nonostante sia protetto poter raggruppare le date in una pivot.
qualche idea.
grazie come sempre.
ciao
ale

penso che l'unica soluzione sia quella di costruirsi due pulsanti.
sul primo (per raggruppare) mettere una cosa tipo
ActiveSheet.Unprotect
     Selection.Group Inizio: = True, fine: = True, Periodi: = Array (False, False, False, _
         False, True, False, False)
     ActiveSheet.Protect DrawingObjects: = TRUE Contenuto: = True, Scenarios: = True
e sull'altro, per dividere, mettere
ActiveSheet.Unprotect
     Selection.Ungroup
     ActiveSheet.Protect DrawingObjects: = TRUE Contenuto: = True, Scenarios: = True
ciao
ale

ma c'è un ma: se provi a raggruppare delle date già raggruppate no problem, mentre se provi a dividere delle date già divise mi va in errore...l'unica è (quando provi a dividere) farle prima riaggruppare e poi dividerle...ma non mi piace...alternativev?
ciao
ale

casanmaner

2015-08-03 07:45:30 UTC

Permalink

Non ho ben capito cosa tu voglia fare :-)
Ma tu vuoi che il foglio risulti protetto ma consentendo all'utente di applicare fitri/raggruppamenti?
Oppure vuoi che su un foglio protetto, tramite macro, vengano effettuati filtri e raggruppamenti "preimpostati"?

Nel secondo caso potresti provare ad impostare, tramite l'evento workbookopen, la protezione dei fogli impostando la proprietà UserInterfaceOnly:=True.
In questo modo per la maggior parte delle azioni non c'è bisogno di sproteggere il foglio per svolgere operazioni sullo stesso che richiedono che lo stesso sia sprotetto.
Esempio:
Private Sub Workbook_Open()
Me.Worksheets("Foglio1").Protect Password:="TuaPassword", UserInterfaceOnly:=True
End Sub

Ora il Foglio1 risulta protetto ma se ad es. da VBA vuoi impostare un filtro automatico questo viene impostato senza richiedere la sprotezione del foglio.
Il filtro verrà applicato ma non sarà possibile per l'utente modificare lo stato dello stesso.

ale

2015-08-03 08:06:07 UTC

Permalink

ciao casanmaner...riguardo la tua domanda sto cercando di effettuare filtri e raggruppamenti "preimpostati" (la seconda).
ho provato con UserInterfaceOnly:=True ma non mi permette i raggruppamenti...
per i filtri bene o mal ho risolto...
mentre per i raggruppamenti per mia fortuna li devo fare ben determinati (da mese a giorno o da giorno a mese) per cui...non mi piace il fatto che devo prima riaggruppare e poi dividere (visto che mi va in errore)...ma non fa niente...va talmente veloce che non si vede
ciao
ale