Greyed out kolommen vergrendeling?

[JulesH]

Hallo Heren (en dames),

Vandaag opende ik een excel bestand dat gemaakt is door derden.
Dit bestand bestaat uit +/- 100 werkbladen.
Al deze werkbladen zijn voor een deel grijs gemaakt en niet bewerkbaar.

Dit is niet zo'n ramp maar ik heb data nodig die in de verborgen kolommen staat.
Hoe haal ik deze ''vergrendeling'' weg zodat ik kan zien wat er achter de verborgen kolommen schuilt?



Alvast bedankt:thumb:

 

[spaarie]

Tijdens het selecteren van de laatste kolom, schuif met je muis naar rechts.
Rechtermuisknop op de laatste kolom > 'zichtbaar maken'

 

[JulesH]

Bedankt voor het meedenken.
Echter zit hier een vergrendeling op denk ik, het is niet mogelijk om de kolommen zichtbaar te maken.
Er gebeurt namelijk helemaal niets.

 

[spaarie]

Als 'zichtbaar maken' ook grijs is i.p.v. zwart, dan kun je er van uit gaan dat het werkblad beveiligd is (misschien wel met een goede reden?)

 

[JulesH]

Zichtbaar maken is zwart zoals gewoonlijk.
Het blad is beveiligd geweest maar deze beveiliging heb ik opgeheven.
Dit bestand is ook speciaal gemaakt voor ons maar de leverancier van dit bestand is tijdelijk niet bereikbaar.

 

[spaarie]

Dan is mijn vermoeden dat er een ScrollArea staat ingesteld.
- Rechtermuisknop op betreffende tabblad en klik 'Programmacode weergeven'
- VBA Editor wordt geopend en linksonder heb je de eigenschappen van het betreffende tabblad
- Verwijder de inhoud achter ScrollArea

Als dit het niet is dan zou ik het, zonder Excel bestand, ook niet weten.
Misschien is het nog een optie om een kopie te maken van het bestand, verwijder de inhoud en overige tabbladen.
Dit kan door als voorbeeldbestand....

 

[JulesH]

Bedankt voor de (bijna) oplossing.
Ik zie in VBA dat er bij deze tabbladen macro 14 wordt geactiveerd.
Macro 14 bevat de volgende inhoud:

Sub Macro14()
Range("C5:C21,H5:H21,B2424,K24,F28:H31,F34:H38,D34:E38,F41:H43,F45:H46,F48:H51,F53:H53,F56:H60,F62:H64,F66:H67,F69:H69,F72:H75,F77:H79,F81:H82,F85:H88,F90:H92,F94:H95,F97:H101").Select
Range("F97").Activate
Selection.ClearContents
Range("K24").Select

Wat moet ik hieraan precies aanpassen zodat ik de overige cellen ook kan zien?
Of kan ik de complete ''range'' sectie verwijderen?

 

[spaarie]

Wat je plaatst is niet de gehele macro, want hier moet dan nog een 'End Sub' onderstaan.
Maar het gedeelte wat je plaatst heeft niks te maken met het niet tonen van kolommen....

Uitgelegd:

Sub Macro14()
[U]'selecteer een heleboel cellen....[/U]
Range("C5:C21,H5:H21,B2424,K24,F28:H31,F34:H38,D34:E38,F41:H43,F45:H46,F48:H51,F53:H53,F56:H60,F62:H64,F66:H67,F69:H69,F72:H 75,F77:H79,F81:H82,F85:H88,F90:H92,F94:H95,F97:H101").Select
[U]'activeer cel F97[/U]
Range("F97").Activate
[U]'verwijder selectie (in dit geval F97)[/U]
Selection.ClearContents
[U]'selecteer cel K24
[/U]Range("K24").Select

Is dit trouwens door een bedrijf/programmeur gemaakt? Want de macro slaat kant noch wal...

 

[JulesH]

Jammer dit te horen, ik dacht dat de oplossing nabij was.
Het is inderdaad gemaakt door een partij die hierin ''gespecialiseerd'' is.
Hierbij moet ik wel vermelden dat dit bestand gedateerd is, gecreëerd in 2006 á 2007.

 

[snb]

draai de macro:

Sub M_snb()
  for each sh in sheets
    sh.columns.hidden =false
    sh.rows.hidden =false
  next
End Sub