*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Blokkeren van werkblad  (gelezen 6539 keer)

0 leden en 1 gast bekijken dit topic.

Offline Dankes

  • Volledig lid
  • **
  • Berichten: 177
  • Oplossing.be
Blokkeren van werkblad
« Gepost op: 23 september 2005, 16:01:19 »
Heb een sheet gemaakt waar men een aantal zaken moet invullen. Het aantal cellen dat men moet invullen is niet veel zodat men niet hoeft te scrollen. Hoe kan ik er dan ook voor zorgen dat men niet kan scrollen zodat men niet ergens anders kan geraken binnen de sheet?
Gelogd
NEC Versa Premium                 NEC COMPUTERS INTERNATIONAL           , S3 ProSavage DDR, Windows XP Home SP2, mobile AMD Athlon(tm) XP-M 2000+, 223 MB RAM, HDD:19 GB, NTFS, Internet Explorer 7.0, Microsoft Outlook, Norton Antivrus

Offline firmin

  • Ervaren lid
  • ***
  • Berichten: 442
  • Geslacht: Man
  • Excel Specialist
Re:Blokkeren van werkblad
« Reactie #1 Gepost op: 23 september 2005, 20:15:35 »
U zegt weinig over de andere gegevens, die niet aan wijzigingen (in te vullen)onderhevig zijn.
Het uitsluiiten van scrollen is niet mogelijk , denk ik.
Er zijn wel andere mogelijkheden :
1 de rijen en kolommen die niet noodzakelijk zijn verbergen.
Hoe :  selecteer de rijen (op het cijfer dat het rijnummer aangeeft) alle te verbergen rijen worden dus zwart gekleur  Format -- Rijen --  Hide  om ze terug zichtbaar te maken unhide
          voor de kolommen dezelfde procedure
2 via een procedure in VBA

Firmin
Gelogd
PB easynote LE69KB,AMD quad-core,1000GB HDD,AMD Radeon HD8330,8GB DDR3
Windows 10,office 2007
MSE, Internet Explorer 11

Offline barthold

  • Volledig lid
  • **
  • Berichten: 171
  • ExWorks.be: Free Excel tools.
Re:Blokkeren van werkblad
« Reactie #2 Gepost op: 24 september 2005, 22:57:06 »
Blokkeren van de scroll area is toch mogelijk zonder VBA, maar op een minder voor de hand liggende plaats...

Daavoor moet je in de VBE (Visual Basic editor) de scroll area voor de desbetreffende sheet deiniëren.

Procedure:
> rechterklik op de sheet en kies "View Code"
> normaal zie je nu ook links onderaan het Properties venster voor die sheet, indien niet zichtbaar, druk F4
> in de property "ScrollArea" vul je dan gewoon de beperkte toegalaten scroll area in (bv. A1:F30)

Je verlaat de VBE door ALT+Q. dan zal je merken dat je niet meer kan scrollen en dat je enkel de cellen van die beperkte range zal kunnen selecteren.

Bart
Gelogd
WinXP - Excel 2000/XP/2003

Offline spyder

  • Ambassadeur
  • *****
  • Berichten: 5.265
  • PC probleem zit meestal tussen scherm en rugleun
Re:Blokkeren van werkblad
« Reactie #3 Gepost op: 25 september 2005, 11:55:36 »
Hoi Bart,

thnx. 8)
Zo simpel, ................ maar ge moet het weten.

Die gaat mij nog zeer dikwijls van pas komen, zeker weten. ;)

groetjes
Gelogd
Windows 7 Ultimate Unknow NLD
Intel(R) Core(TM) i7 CPU         870  @ 2.93GHz 2934
P7P55D-E PRO
NVIDIA GeForce GTX 470 1280MB 1680 x 1050
HD 1 : INTEL SSDSA2M080G2GC (80GB)
HD 2 : ST31500341AS (1,5TB)
HD 3 : ST320006 41AS (2TB)
browser: Maxthon  mail:Thunderbird AV: Bitdefender
Scarlet user

Offline Dankes

  • Volledig lid
  • **
  • Berichten: 177
  • Oplossing.be
Re:Blokkeren van werkblad
« Reactie #4 Gepost op: 26 september 2005, 11:03:39 »
Citaat van: barthold op 24 september 2005, 22:57:06
Blokkeren van de scroll area is toch mogelijk zonder VBA, maar op een minder voor de hand liggende plaats...

Daavoor moet je in de VBE (Visual Basic editor) de scroll area voor de desbetreffende sheet deiniëren.

Procedure:
> rechterklik op de sheet en kies "View Code"
> normaal zie je nu ook links onderaan het Properties venster voor die sheet, indien niet zichtbaar, druk F4
> in de property "ScrollArea" vul je dan gewoon de beperkte toegalaten scroll area in (bv. A1:F30)

Je verlaat de VBE door ALT+Q. dan zal je merken dat je niet meer kan scrollen en dat je enkel de cellen van die beperkte range zal kunnen selecteren.

Bart

Tx, het werkt perfect.
Gelogd
NEC Versa Premium                 NEC COMPUTERS INTERNATIONAL           , S3 ProSavage DDR, Windows XP Home SP2, mobile AMD Athlon(tm) XP-M 2000+, 223 MB RAM, HDD:19 GB, NTFS, Internet Explorer 7.0, Microsoft Outlook, Norton Antivrus

Offline viking123

  • Nieuw lid
  • Berichten: 3
  • Oplossing.be
Re:Blokkeren van werkblad
« Reactie #5 Gepost op: 26 september 2005, 16:27:49 »
Een andere goede truc is xlSheetVerryHidden, ook te activeren via VB en op deze wijze kan de sheet niet in unhide zichtbaar gemaakt worden.
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline Dankes

  • Volledig lid
  • **
  • Berichten: 177
  • Oplossing.be
Re:Blokkeren van werkblad
« Reactie #6 Gepost op: 28 september 2005, 20:07:42 »
Citaat van: Dankes op 26 september 2005, 11:03:39
Tx, het werkt perfect.

Een probleempje....als ik de sheet afsluit en daarna terug opstart dan is die blokkade weg. Ik moet terug altijd die code ingeven.
Gelogd
NEC Versa Premium                 NEC COMPUTERS INTERNATIONAL           , S3 ProSavage DDR, Windows XP Home SP2, mobile AMD Athlon(tm) XP-M 2000+, 223 MB RAM, HDD:19 GB, NTFS, Internet Explorer 7.0, Microsoft Outlook, Norton Antivrus

Offline barthold

  • Volledig lid
  • **
  • Berichten: 171
  • ExWorks.be: Free Excel tools.
Re:Blokkeren van werkblad
« Reactie #7 Gepost op: 28 september 2005, 20:31:21 »
Inderdaad, blijkbaar een gekend probleem...

Enfin, je kan dit omzeilen door programmatisch telkens die scrollarea opnieuw te zetten...

Bijvoorbeeld op het moment dat de sheet geactiveerd wordt:
Private Sub Worksheet_Activate()
Me.ScrollArea = "$A$1:$D$10"
End Sub

Deze code plaats je dan in de code module van de sheet zelf.

Bart
Gelogd
WinXP - Excel 2000/XP/2003

Offline Dankes

  • Volledig lid
  • **
  • Berichten: 177
  • Oplossing.be
Re:Blokkeren van werkblad
« Reactie #8 Gepost op: 29 september 2005, 20:13:59 »
Citaat van: barthold op 28 september 2005, 20:31:21
Inderdaad, blijkbaar een gekend probleem...

Enfin, je kan dit omzeilen door programmatisch telkens die scrollarea opnieuw te zetten...

Bijvoorbeeld op het moment dat de sheet geactiveerd wordt:
Private Sub Worksheet_Activate()
Me.ScrollArea = "$A$1:$D$10"
End Sub

Deze code plaats je dan in de code module van de sheet zelf.

Bart

Het lukt niet ofwel heb ik het niet goed gedaan. Heb in bijlage de sheet gezet. Kan je daar eens zien wat ik verkeerd gedaan heb?
Gelogd
NEC Versa Premium                 NEC COMPUTERS INTERNATIONAL           , S3 ProSavage DDR, Windows XP Home SP2, mobile AMD Athlon(tm) XP-M 2000+, 223 MB RAM, HDD:19 GB, NTFS, Internet Explorer 7.0, Microsoft Outlook, Norton Antivrus

Offline barthold

  • Volledig lid
  • **
  • Berichten: 171
  • ExWorks.be: Free Excel tools.
Re:Blokkeren van werkblad
« Reactie #9 Gepost op: 30 september 2005, 00:32:47 »
De code wordt enkel uitgevoerd bij het worksheet_activate event. Als je de workbook opent en blad1 is al geselecteerd en je verspringt eerst niet van sheet, wordt dat event niet geactiveerd. Bv: ga eerst eens naar blad2 en dan terug naar blad1, dan zal het wel werken...

Als blad1 steeds het geselecteerde blad zal blijven , kan je de scrollarea laten definiëren bij het workbook_open event:
Private Sub Workbook_Open()
ThisWorkbook.Sheets(1).ScrollArea = "$A$1:$I$33"
End Sub

Dus niet op sheet niveau, maar op workbook niveau...
Aangepast voorbeeld in bijlage...

Bart
Gelogd
WinXP - Excel 2000/XP/2003

Offline Dankes

  • Volledig lid
  • **
  • Berichten: 177
  • Oplossing.be
Re:Blokkeren van werkblad
« Reactie #10 Gepost op: 30 september 2005, 15:51:33 »
Citaat van: barthold op 30 september 2005, 00:32:47
De code wordt enkel uitgevoerd bij het worksheet_activate event. Als je de workbook opent en blad1 is al geselecteerd en je verspringt eerst niet van sheet, wordt dat event niet geactiveerd. Bv: ga eerst eens naar blad2 en dan terug naar blad1, dan zal het wel werken...

Als blad1 steeds het geselecteerde blad zal blijven , kan je de scrollarea laten definiëren bij het workbook_open event:
Private Sub Workbook_Open()
ThisWorkbook.Sheets(1).ScrollArea = "$A$1:$I$33"
End Sub

Dus niet op sheet niveau, maar op workbook niveau...
Aangepast voorbeeld in bijlage...

Bart

Deze snap ik nu...
En als het niet bij 1 blad blijft maar er meerdere moeten geblokkeerd worden?
Gelogd
NEC Versa Premium                 NEC COMPUTERS INTERNATIONAL           , S3 ProSavage DDR, Windows XP Home SP2, mobile AMD Athlon(tm) XP-M 2000+, 223 MB RAM, HDD:19 GB, NTFS, Internet Explorer 7.0, Microsoft Outlook, Norton Antivrus

Offline Dankes

  • Volledig lid
  • **
  • Berichten: 177
  • Oplossing.be
Re:Blokkeren van werkblad
« Reactie #11 Gepost op: 30 oktober 2005, 17:21:33 »
Citaat van: Dankes op 30 september 2005, 15:51:33
Deze snap ik nu...
En als het niet bij 1 blad blijft maar er meerdere moeten geblokkeerd worden?

Heb dus een excelsheet met een tiental bladen.
Elk blad moet afzonderlijk geblokkeerd worden.
Zoals hierboven beschreven gaat het voor 1 werkblad maar hoe moet het dan voor die anderen?
Gelogd
NEC Versa Premium                 NEC COMPUTERS INTERNATIONAL           , S3 ProSavage DDR, Windows XP Home SP2, mobile AMD Athlon(tm) XP-M 2000+, 223 MB RAM, HDD:19 GB, NTFS, Internet Explorer 7.0, Microsoft Outlook, Norton Antivrus
Pagina's: [1]   Omhoog
 


www.combell.com