werkblad beveiligen

[mtb]

heluuup

in een exel bestand heb ik 2 werkbladen, een werkblad waar alle bestanden en knoppen in staan om de macro's te bedienen, en het andere werkblad als hulpblad waar die macro's steeds naar toe verwijzen.

probleemstelling:
als ik het hulpblad verberg dan werken de macro's niet meer op het andere werkblad (geeft aan dat die de macro's niet kan vinden), hoe los ik dit op want ik wil wel dat het hulpblad verborgen blijft.

 

[ExcelExpert]

Dit heeft waarschijnlijk te maken met het door de macro selecteren van cellen in het verborgen werkblad.

Als je bijvoorbeeld iets tegenkomt wat lijkt op:

Sheets("Blad1").Select
Range("A1").Select
Selection.Copy

Moet je dit vervangen door:

Sheets("Blad1").Range("A1").Copy

 

[mtb]

vergeten te vermelden dat op het hulpblad ook macro's staan die op verwerkt zijn in de macro op het werkblad, hierdoor staan er wel veel verwijzingen zoals jij die beschrijft in de macro op het werkblad, betekent dat ik dan alle

Sheets("Blad1").Select
Range("A1").Select
Selection.Copy

moet vervangen door

Sheets("Blad1").Range("A1").Copy

zoals jij aangaf in jouw oplossing?

is er geen makkelijkere methode???

 

[ExcelExpert]

Je zou iedere keer voordat je de code uitvoert het blad zichtbaar kunnen maken en nadat je de macro code hebt uitgevoerd het blad weer verbergen.

'Start
Sheets("blad1").Visible = xlVisible

'
' Hier jouw code
'

'Einde
Sheets("blad1").Visible = xlHidden 'of xlVeryHidden

Als je helemaal wilt dat het blad onzichtbaar blijft en je verder ook geen acties van de macro ziet kun je nog instellen: Application.ScreenUpdating = False en dan bij het einde Application.ScreenUpdating = True.

 

[mtb]

bedoel je dat de macro moet beginnen en eindigen met een van de twee door jouw gegeven oplossingen, dus voordat die met de daadwerkelijke uitvoering van de macro begint!

 

[ExcelExpert]

Yup, vlak na Sub ... de "Start" code inplakken en vlak voor End Sub de "Einde" code invoegen, natuurlijk wel met de naam van jouw werkblad in plaats van Blad1.

 

[mtb]

bedankt, hij doet het



:thumb: