Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Aangeven dat iemand niets mag doen in een cel.  (gelezen 2478 keer)

0 leden en 1 gast bekijken dit topic.

Offline Jannie

  • Lid
  • *
  • Berichten: 48
  • Oplossing.be
Aangeven dat iemand niets mag doen in een cel.
« Gepost op: 14 september 2004, 12:43:12 »
Hallo,

Ik heb ik in een cel een automatische teller.
Die geeft met opslaan van de offerte steeds een oplopend nummer.

Worksheets("Offerte").Activate
    Range("B14").Value = OfferteNummer + 1


Prima, maar je kan nog wel zelf iets in B14 typen, dat wil ik niet.
Hoe kan ik dit met code afvangen?

Vergrendelen of beveiligen werkt niet want dan doet de automatische teller het niet meer.

Groet Jannie

Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline Oldy

  • Ervaren lid
  • ***
  • Berichten: 295
Re:Aangeven dat iemand niets mag doen in een cel.
« Reactie #1 Gepost op: 14 september 2004, 13:53:05 »
Dag Jannie,

Ik zou zo iets proberen.
In de macro van de teller verandering, even de beveiliging af zetten.
Bij het beëindigen van de macro de beveiliging terug op zetten.

Ongeveer zo iets :

Sub Teller()

  ActiveSheet.Unprotect

  De Uitvoering van uw Teller procedure

  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
  ActiveSheet.EnableSelection = xlNoSelection

End Sub

Als het dit is wat je bedoeld.

HP Pavillion Desktop 595 P0002NB
Intel(R) Core(TM) i7-9700F CPU @ 3.00GHz   3.00 GHz
SSD 512 GT1030
Ram 16Gb
Seagate 3,5 inch 1 Tb Sata 7200 rppm
2019
64-bits besturingssysteem, x64-processor
Windows 10 Home - Versie : 21H2

Offline Jannie

  • Lid
  • *
  • Berichten: 48
  • Oplossing.be
Re:Aangeven dat iemand niets mag doen in een cel.
« Reactie #2 Gepost op: 14 september 2004, 16:04:34 »
Hallo Oldy,

Ja in principe wel, maar ik heb dus maar 1 cel beveiligd.
En als de macro uigevoerd is, is het hele werkblad beveiligd.
Dit is niet de bedoeling.
Heb je ook een oplossing dat ik na de uitvoering van de code voor de teller alleen die ene cel weer beveiligd is?

Groet Jannie
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline Oldy

  • Ervaren lid
  • ***
  • Berichten: 295
Re:Aangeven dat iemand niets mag doen in een cel.
« Reactie #3 Gepost op: 14 september 2004, 21:02:12 »
Hallo Jannie,

Dit is maar een denkwijze van mij hoor.
In het menu Opmaak Cellen
Alle cellen blokkering af
De cel “A” blokkeren
Terug beveiligen

Sub Teller()

    ActiveSheet.Unprotect
   
    Teller procedure
   
    Cells.Select
    Selection.Locked = False
    Selection.FormulaHidden = False
    Range("A1").Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

Iets in dit genre misschien ?
HP Pavillion Desktop 595 P0002NB
Intel(R) Core(TM) i7-9700F CPU @ 3.00GHz   3.00 GHz
SSD 512 GT1030
Ram 16Gb
Seagate 3,5 inch 1 Tb Sata 7200 rppm
2019
64-bits besturingssysteem, x64-processor
Windows 10 Home - Versie : 21H2

Offline Oldy

  • Ervaren lid
  • ***
  • Berichten: 295
Re:Aangeven dat iemand niets mag doen in een cel.
« Reactie #4 Gepost op: 14 september 2004, 21:03:28 »
De volgorde moet misschien wel wat anders ?
HP Pavillion Desktop 595 P0002NB
Intel(R) Core(TM) i7-9700F CPU @ 3.00GHz   3.00 GHz
SSD 512 GT1030
Ram 16Gb
Seagate 3,5 inch 1 Tb Sata 7200 rppm
2019
64-bits besturingssysteem, x64-processor
Windows 10 Home - Versie : 21H2

Offline Oldy

  • Ervaren lid
  • ***
  • Berichten: 295
Re:Aangeven dat iemand niets mag doen in een cel.
« Reactie #5 Gepost op: 14 september 2004, 21:15:18 »
Maar als je bij opmaak cellen, de teller cel blokkering aan zet en de rest van het werkblad allemaal uit, is dat dan niet voldoende ?
Gewoon beveiliging op en af in de macro.
HP Pavillion Desktop 595 P0002NB
Intel(R) Core(TM) i7-9700F CPU @ 3.00GHz   3.00 GHz
SSD 512 GT1030
Ram 16Gb
Seagate 3,5 inch 1 Tb Sata 7200 rppm
2019
64-bits besturingssysteem, x64-processor
Windows 10 Home - Versie : 21H2

Offline Jannie

  • Lid
  • *
  • Berichten: 48
  • Oplossing.be
Re:Aangeven dat iemand niets mag doen in een cel.
« Reactie #6 Gepost op: 15 september 2004, 09:25:25 »
Hallo Oldy,

Bovenstaande werkt ook niet.

Maar heb het ondertussen zelf opgelost.

Bij valideren in het menu Data geef je bij Toestaan: aangepast aan.
Bij instellingen:De code voor de teller in formule.
Bij Foutmelding: Stijl op stoppen;
Dan kun je ook nog een boodschap meegeven.

Groet Jannie
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

 


www.combell.com