Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Werkbladen beveiligen - extra opties  (gelezen 3803 keer)

0 leden en 1 gast bekijken dit topic.

Offline Gretorax

  • Lid
  • *
  • Berichten: 56
  • Oplossing.be
Werkbladen beveiligen - extra opties
« Gepost op: 13 november 2006, 14:55:06 »
Het is niet de eerste keer dat beveiliging aan de orde komt en ik heb op deze thread al een deel van het probleem kunnen oplossen maar niet alles.

Ik wil een werkmap met een 15-tal werkbladen in 1 keer kunnen beveiligen (dat is al in orde) maar na het beveiligen mag de gebruiker enkel en alleen onvergrendelde cellen kunnen selecteren en wijzigen.
Vergrendelde/beveiligde cellen mogen dus niet geselecteerd kunnen worden. Dit lukt wanneer ik elk blad manueel beveilig, maar wanneer ik de macro toepas zijn al die instellingen weer verdwenen.

Weet iemand raad?
Windows 10 Pro NLD 64bit | Intel(R) Core(TM) i7-4702MQ CPU @ 2.20GHz 800 | Intel(R) HD Graphics 4600 1024MB | HD Nr: 1 Model: Samsung SSD 840 EVO  Nr: 2 Model: WDC WD10JPVX-22JC3T0

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.284
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re:Werkbladen beveiligen - extra opties
« Reactie #1 Gepost op: 13 november 2006, 18:04:26 »
Gretorax, Ik ga er van uit dat je de code hebt gebruikt zoals die staat beschreven in de andere thread. Als je dan het codeblok Sub Protect() vervangt voor deze...Sub Protect()
    Const Paswoord = "UwPaswoord"
    Dim Blad
    For Each Blad In ActiveWorkbook.Sheets
        Blad.Protect Password:=Paswoord, DrawingObjects:=True, Contents:=True, Scenarios:=True
        Blad.EnableSelection = xlUnlockedCells
    Next
End Sub
...komt vast alles goed.  ;)

Vergeet trouwens dan niet om de protectie van de cel te verwijderen waar de gebruiker schrijfrechten heeft.

Groet, Leo
______________________________

Groet, Leo

Offline Gretorax

  • Lid
  • *
  • Berichten: 56
  • Oplossing.be
Re:Werkbladen beveiligen - extra opties
« Reactie #2 Gepost op: 15 november 2006, 22:50:49 »
Hey Leo

bedankt voor de oplossing. Nu werkt dat deel al zoals ik zou willen.

Voor het opheffen van de beveiliging in de andere macro heb ik een controle ingebouwd zodat enkel diegenen die het beveiligingswachtwoord kennen de beveiliging kunnen opheffen. Je weet toevallig niet of je de input in een inputbox door sterretjes kan laten vervangen? Of moet ik daarvoor een formulier aanmaken?
Windows 10 Pro NLD 64bit | Intel(R) Core(TM) i7-4702MQ CPU @ 2.20GHz 800 | Intel(R) HD Graphics 4600 1024MB | HD Nr: 1 Model: Samsung SSD 840 EVO  Nr: 2 Model: WDC WD10JPVX-22JC3T0

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.284
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re:Werkbladen beveiligen - extra opties
« Reactie #3 Gepost op: 16 november 2006, 08:33:06 »
Gretorax, De input omzetten naar sterretjes tijdens het typen is (volgens mij) inderdaad géén eigenschap van de functie of methode inputbox. Je zal hier echt een aparte form voor moeten aanmaken.

Groet, Leo
______________________________

Groet, Leo

Offline Firebirdy

  • Ambassadeur
  • *****
  • Berichten: 2.408
  • Geslacht: Man
Re:Werkbladen beveiligen - extra opties
« Reactie #4 Gepost op: 16 november 2006, 12:04:28 »
In VB was er een eigenschap passwordchar (of gelijkaardig) die je kon instellen bij textboxen. Misschien is er hier een dergelijke eigenschap?

Edit: even snel gegoogled, het komt oa hier voor.

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.284
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re:Werkbladen beveiligen - extra opties
« Reactie #5 Gepost op: 16 november 2006, 15:18:32 »
Firebirdy, Dat klopt! Vanuit VBA kan je heel eenvoudig op een UserForm de eigenschap van het besturingselement TextBox de waarde '*' bij PasswordChar meegeven. Als je dan dit Form aanroept via een gebeurtenis, en je tikt in de aanwezige TextBox je password, zie je sterretjes ipv het ingetikte woord verschijnen.

Groet, Leo
______________________________

Groet, Leo

Offline Gretorax

  • Lid
  • *
  • Berichten: 56
  • Oplossing.be
Re:Werkbladen beveiligen - extra opties
« Reactie #6 Gepost op: 16 november 2006, 17:46:39 »
Bedankt voor de hulp Redhead en Firebirdy.

Een eenvoudig formuliertje bijmaken zal inderdaad de oplossing zijn.

Topic afgesloten wat mij betreft :)
Windows 10 Pro NLD 64bit | Intel(R) Core(TM) i7-4702MQ CPU @ 2.20GHz 800 | Intel(R) HD Graphics 4600 1024MB | HD Nr: 1 Model: Samsung SSD 840 EVO  Nr: 2 Model: WDC WD10JPVX-22JC3T0

 


www.combell.com