excel bladen beveiligen met vba en celeigenschappen nog te bewerken

[zeron]

Ik gebruik momenteel een excel bestand waarbij ik verschillende bladen wens te beveiligen met een vba script. Na beveiliging moeten de gebruikers die het paswoord voor ontgrendeling niet kennen toch volgende zaken kunnen uitvoeren, de vergrendelde en ontgrendelde cellen kunnen selecteren, alsook de celeigenschappen.

Als ik blad per blad beveilig in Excel dan kan ik dit selecteren. Via controleren, blad beveiligen en dan te selecteren wat alle gebruikers van dit blad mogen doen. In mijn huidig vba script beveilig ik alles en heb ik geen mogelijkheden hiervoor.

Wie heeft hiervoor een oplossing.
Alvast bedankt.

 

[HSV]

Bv. met:

Het wachtwoord is hier ww.

Sub hsv()
Dim sh As Worksheet
 For Each sh In Sheets(Array("Blad1", "blad2"))
  sh.Protect "ww", 1, 1, 1, 1, 1, 1, 1
 Next sh
End Sub

 

[zeron]

xxxxx ipv wachtwoord

Bedankt.

Het werkt perfect.
Kan je mij ook een script geven waarbij je bij de ingave van het ww ****** ziet in plaats van het wachtwoord zelf.

Alvast nogmaals bedankt.

 

[zeron]

Probleem met invoegen van tekeningen in een beveiligd blad met vba

Ik heb gisteren een vba scriptje ontvangen dat perfect werkt. Alleen merk ik op dat ik geen tekeningen meer in een beveiligd blad kan zetten. Heb je hiervoor eventueel een oplossing.

Mvg
Ronny

 

[VenA]

Zet de eerste 1 eens op 0 in de code van HSV. (objecten bewerken toestaan)

 

[zeron]

wachtwoord niet zichtbaar ******

Bedankt voor de info het werkt correct.

Kan je mij ook een script geven waarbij je bij de ingave van het ww ****** ziet in plaats van het wachtwoord zelf.

Alvast nogmaals bedankt.

 

[HSV]

Wordt toch al weergegeven als punten/stippen?

 

[zeron]

******* zichtbaar bij ingaven wachtwoord

Harry,

Momenteel tik je het wachtwoord in en zie ik het wachtwoord bij intypen en dat is niet de bedoeling. Ik had hier liever ******* gezien of iets anders.

Met vriendelijke groeten,
Ronny
ps nog bedankt voor de hulp van gisteren.

 

[HSV]

Graag gedaan Ronny,

Stuur eens een plaatje waar je dit typt.
Hier krijg ik alleen zwarte punten te zien en geen wachtwoord in het default fenster.

 

[zeron]

Harry,

Heb je hier iets aan ?

Bedankt alvast.

Met vriendelijke groeten,
Ronny

 

[HSV]

Als dat het standaard venster is om je wachtwoord in te voeren dan zal dat niet gaan.
Ik bezit nog Excel 2007 en hierin zijn het gewoon punten.

Wat je kan doen is een Userform aanroepen om het wachtwoord te ontgrendelen.
Het wachtwoord in het bestand is wachtwoord.

 

[zeron]

werken met buttonsin excel opgenomen in vba script

Als ik op de button beveiligen klik kan ik alle gewenste tabbladen beveiligen met een ingegeven code.
Als ik dit herhaal maar met een ander ingegeven code dan is het blad beveiligd met de laatst ingegeven code.
Hoe kan ik dit voorkomen. Als er al een beveiligde code is ingegeven dan zou een volgende code niet meer aanvaard mogen worden. Weet iemand hiervoor een oplossing voor in mijn vba script.
Alvast bedankt.

 

[HSV]

Test het zo maar eens.