Draaitabel verversen op beveiligd tabblad

[maancape]

Hallo,

Ik wil in excel 2021 een tabblad beveiligen om de formules die er staan te beschermen. Nu staat er echter ook een draaitabel met grafiek op datzelfde tabblad en als ik het tabblad heb beveiligd waarbij ik een code wil gebruiken, dan geeft excel de foutmelding :

"Deze opdracht kan niet worden uitgevoerd terwijl een beveiligd blad een ander draaitabelrapport bevat dat is gebaseerd op dezelfde brongegevens. ALS u de beveiliging van het blad met het andere rapport wilt verwijderen, klikt u op het bladtabblad en klikt u vervolgens op Beveiliging blad opheffen (tabblad Revisie, groep Beveiligen). probeer de opdracht vervolgens opnieuw uit te voeren".

Is hier een oplossing voor?

 

[Verwijderd lid 192067]

Probeer je de draaitabel te verversen middels VBA? Je kunt er dan voor kiezen om in de code tijdelijk de beveiliging van het blad op te heffen.

Dat werkt ongeveer als volgt:

Sub DraaitabelVerversen()
Dim Password As String

Password = "wachtwoord"

'Unprotect Worksheet
  With ActiveSheet
    If .ProtectContents Or .ProtectDrawingObjects Or .ProtectScenarios Then
      On Error GoTo InvalidPassword
      .Unprotect Password
      Reprotect = True
      On Error GoTo Err_Handler
    End If
  End With

[hier dan de code die je draaitabel ververst]

'Protect Worksheet
Reprotect:
  If Reprotect = True Then ActiveSheet.Protect Password:=Password, UserInterfaceOnly:=True, AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True

Exit Sub

Err_Handler:
  MsgBox Err.Description, vbExclamation, "Fout " & Err.Number
  GoTo Reprotect

End Sub