Macro werkt niet na beveiligen blad

[bugsgunny]

Beste mensen,

Ik zou graag voor het volgende probleem gebruik willen maken van jullie kennis.

Ik heb in een excel bestand via VBA een knop gemaakt waarmee ik een kolom kan verbergen en ook weer zichtbaar kan maken.
Dit werkt zoals het hoort, maar op het moment dat ik het blad heb beveiligd geeft VBA een foutmelding als ik de gemaakte funtie gebruik.

Om precies te zijn 'Fout 1004 tijdens uitvoering: Eigenschap Hiddden van klasse Range kan niet worden ingesteld'

Wat kan ik hier aan doen?

Mocht de uitleg niet voldoende zijn, dan maak ik graag een voorbeeldje voor jullie.

Ik ben zeer benieuwd wat jullie oplossing is.

Alvast bedankt!!

Met vriendelijke groet,

Bugsgunny

 

[Warme bakkertje]

Zet onderstaande in ThisWorkbook, opslaan, afsluiten en terug heropenen. Pas eventueel de bladnaam aan.

Private Sub Workbook_Open()
    Sheets("Blad1").Protect UserInterfaceOnly:=True
End Sub

 

[bugsgunny]

Zet onderstaande in ThisWorkbook, opslaan, afsluiten en terug heropenen. Pas eventueel de bladnaam aan.

Private Sub Workbook_Open()
    Sheets("Blad1").Protect UserInterfaceOnly:=True
End Sub

Super!

Het werkt. Nu kan ik het rustig anderen ook laten gebruiken zonder dat ze per ongeluk cellen kunnen wijzigen.


Bedankt!

Met vriendelijke groet,

Bugsgunny