Macro's in beveiligd excelwerkblad (2013)

Question

Hallo Ik wil Kolommen verbergen en dat met een macro in een beveiligd werkblad weergeven.

Ze werken prima in een niet beveiligd werkblad.

Ik krijg de volgende foutmelding:  Selection.EntireColumn.Hidden = True

Dit is de volledige tekst. Wat zie ik over het hoofd?

Misschien kun je me verder helpen?

Alvast bedankt

T.Lips

Answer 1

L.Tips,

Om de code te kunnen zien is het niet nodig de beveiliging van het werkblad op te heffen.

Met Alt+F11 kom je, ook met een beveiligd werkblad, in de VBA-omgeving.

Overigens is het wachtwoord: aaa

Vanmorgen om 8:15 uur heb ik de code nog wat gefatsoeneerd.

Jan

Answer 2

Hallo,

Je moet eerst de protectie wegnemen.

Sub test()

   Sheets("Sheet1").Unprotect Password:="xyz"

   ''' uw code

   Sheets("Sheet1").Protect Password:="xyz"

End Sub

Je kan dan best ook de code beveiligen.

In de Engelse versie: tools, VBAProject Properties, Protection, Lock project for viewing.

Answer 3

Hallo,

Je moet eerst de protectie wegnemen.

Sub test()

   Sheets("Sheet1").Unprotect Password:="xyz"

   ''' uw code

   Sheets("Sheet1").Protect Password:="xyz"

End Sub

Je kan dan best ook de code beveiligen.

In de Engelse versie: tools, VBAProject Properties, Protection, Lock project for viewing.

Beste JP,

Bedankt, maar eh.....

Hoe pas ik het toe?

Ik ben geen  vba expert.

Als ik maar van één macro de teksten heb denk ik het wel te redden.

vrgroet

T.Lips

Answer 4

Hallo,

Je moet in je Macro_1 in het begin je werkbladbevieliging opheffen met

Sheets("Sheet1").Unprotect Password:="xyz"

en op het einde van je macro opnieuw instellen:

Sheets("Sheet1").Protect Password:="xyz"

"Sheet1" moet natuurlijk verwijzen naar het juiste werkblad.

Answer 5

JP,

Zou het niet handiger zijn om gebruik te maken van UserInterfaceOnly:=False?

En dan bij voorkeur geen selecties verbergen, maar Ranges?

Jan