Microsoft Excel: Pivottabell i et beskyttet ark"

[howieD]

Heisann sveisann for tredje gang denne uka

 

Down to business.

 

Jeg har et regneark i excel med mange pivottabeller. Ca 15 stykker.

Jeg ønsker å beskytte dette regnearket mot at folk kan velge og redigere celler. Problemet oppstår når jeg slår på beskyttelse.

Når arbeidsboken åpnes får jeg beskjed "Kan ikke redigere Pivottabell i et beskyttet ark".

 

Jeg har søkt på Google, men fant ikk ut av det.

 

Antar at jeg behøver en kode som deaktiverer beskyttelsen ved oppstart, og etter refresh av alle tabellene (se kode under), så blir beskyttelsen aktivert igjen.

Noen som har et forslag på dette?

 

 

Dette er forøvrig all kode som er i ark2:

Klikk for å se/fjerne innholdet nedenfor

Private Sub Worksheet_Activate()

Dim pt As PivotTable

 

Set pt = ActiveSheet.PivotTables("Pivottabell5")

pt.RefreshTable

Set pt = ActiveSheet.PivotTables("Pivottabell6")

pt.RefreshTable

Set pt = ActiveSheet.PivotTables("Pivottabell4")

pt.RefreshTable

Set pt = ActiveSheet.PivotTables("Pivottabell7")

pt.RefreshTable

Set pt = ActiveSheet.PivotTables("Pivottabell8")

pt.RefreshTable

Set pt = ActiveSheet.PivotTables("Pivottabell10")

pt.RefreshTable

Set pt = ActiveSheet.PivotTables("Pivottabell9")

pt.RefreshTable

Set pt = ActiveSheet.PivotTables("Pivottabell11")

pt.RefreshTable

Set pt = ActiveSheet.PivotTables("Pivottabell12")

pt.RefreshTable

Set pt = ActiveSheet.PivotTables("Pivottabell13")

pt.RefreshTable

Set pt = ActiveSheet.PivotTables("Pivottabell14")

pt.RefreshTable

Set pt = ActiveSheet.PivotTables("Pivottabell15")

pt.RefreshTable

End Sub

 

 

Noen som vet hva som kan løse problemet?

Endret 21. april 2007 av Haavard82

[howieD]

Kan forklare mer detaljert:

 

Jeg har en arbeidsbok med Ark1, Ark2 og Ark3.

 

Ark1 fylles ut med verdier, og verdiene blir hentet inn i pivottabeller i Ark2.

 

Ark2 skal beskyttes fullstendig. Man skal bare kunne se på arket.

 

Ark3 henter verdier fra Ark2.

 

Glem Ark3. Det er ikke relevant her.

 

Denne makroen er å finne i Ark2:

 

Private Sub Worksheet_Activate()

 

Dim pt As PivotTable

Set pt = ActiveSheet.PivotTables("Pivottabell5")

pt.RefreshTable

Set pt = ActiveSheet.PivotTables("Pivottabell6")

pt.RefreshTable

Set pt = ActiveSheet.PivotTables("Pivottabell4")

pt.RefreshTable

Set pt = ActiveSheet.PivotTables("Pivottabell7")

pt.RefreshTable

Set pt = ActiveSheet.PivotTables("Pivottabell8")

pt.RefreshTable

Set pt = ActiveSheet.PivotTables("Pivottabell10")

pt.RefreshTable

Set pt = ActiveSheet.PivotTables("Pivottabell9")

pt.RefreshTable

Set pt = ActiveSheet.PivotTables("Pivottabell11")

pt.RefreshTable

Set pt = ActiveSheet.PivotTables("Pivottabell12")

pt.RefreshTable

Set pt = ActiveSheet.PivotTables("Pivottabell13")

pt.RefreshTable

Set pt = ActiveSheet.PivotTables("Pivottabell14")

pt.RefreshTable

Set pt = ActiveSheet.PivotTables("Pivottabell15")

pt.RefreshTable

 

End Sub

 

 

Når arbeidsboken nå blir åpnet fra filen, får jeg en dialogboks som har følgende informasjon: "Kan ikke redigere Pivottabell i beskyttet ark".

Jeg må trykke OK like mange ganger som det finnes tabellreferanser i makrokoden ovenfor. En gang pr.pivottabell.

 

Ark2 må bli beskyttet uten at jeg får den irriterende dialogboksen

Alt virker som det skal utenom det problemet.