Help!

Problemen met uw pc? De vrijwilligers van Oplossing.be zoeken gratis met u mee! 8)

Meer weten over Oplossing.be?

Hoe stel ik een vraag?

Hulp bij posten

Recent

Auteur Topic: Commandbutton in Userform  (gelezen 2202 keer)

0 leden en 2 gasten bekijken dit topic.

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 610
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Commandbutton in Userform
« Gepost op: 03 november 2019, 15:07:58 »
Beste oplossers,

Ik probeer al een ganse dag op één of ander manier een Excel werkmap met 14 tabbladen deze 14 samen de cellen te beveiligen.
Ik had deze code gevonden maar ik krijg steed de melding dat er na, Private Sub Cmd_9_Click(), een End Sub verwacht wordt, maar dat kan toch niet?

Private Sub Cmd_9_Click()
Sub Beveilig_Alles()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Protect Password:="Woord"
Next
End Sub


Sub OntGrendel()
ww = InputBox("Wachtwoord?")
For Each sh In Worksheets
sh.Unprotect Password:=ww
Next
Sheets("Balans1").Select
End Sub

Met dank bij voorbaat
Jean-Pierre.
Windows 10 Pro   NLD 64bit, Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800, PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080, NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: Samsung SSD 850 EVO 250GB
Nr: 3 Model: WDC WD2003FZEX-00SRLA0
Geheugen 16 Gb
AV: Avast Free
FW: Windows Firewal Enabled: True

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 17.688
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Commandbutton in Userform
« Reactie #1 Gepost op: 03 november 2019, 16:15:47 »
JeanPierre,

je hebt in je bovenste macro 2 x Sub() achter elkaar staan.
Daarom geeft hij die foutmelding.

Private Sub Cmd_9_Click()
Sub Beveilig_Alles()


End sub

Verwijder de regel: Sub Beveilig_Alles() en je zal de foutmelding niet meer krijgen.


:) SoftAid :)             
Wegens veelvuldig melden van dubbelposten, het posten op verschillende help-fora van dezelfde vraag, zijn de gedragsregels op dit forum aangepast. Dubbelposten dient in de toekomst op voorhand gemeld te worden, met een melding en een link naar het topic op de andere site. De helpers wensen een weinig respect voor de inspanningen die ze doen om mensen te helpen. Je doet jezelf ook een plezier. Door je dubbelposten te melden wordt je vraag mogelijk op meerdere fora beantwoord.

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 610
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Commandbutton in Userform
« Reactie #2 Gepost op: 03 november 2019, 17:04:01 »
Hey SoftAid,

Zit ik daar nen ganse dag mee bezig, ik ken er niet veel van maar ik vindt het dramatisch dat ik dit niet opgemerkt heb...….  :-[

Héél erg bedankt en nog een gezellige avond.  :thumbsup:

Grts,
Jean-Pierre.
Windows 10 Pro   NLD 64bit, Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800, PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080, NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: Samsung SSD 850 EVO 250GB
Nr: 3 Model: WDC WD2003FZEX-00SRLA0
Geheugen 16 Gb
AV: Avast Free
FW: Windows Firewal Enabled: True

 


www.combell.com