Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Commandbutton in Userform  (gelezen 10340 keer)

0 leden en 1 gast bekijken dit topic.

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • 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: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • 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 :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • 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: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

 


www.combell.com