Beveiliging

[elda]

Beste helpers,

hoe kan men een bepaald werkblad van excelbeveiligen?
Concreet komt het erop neer dat een PC meerdere gebruikers heeft. Ik wil nu een welbepaald werkblad van excel beveiligen, zodat niemand anders dit werkblad kan openen of gegevens hierin kan veranderen.
Is dit mogelijk?

Hartelijk dank voor de reacties en hulp


Jaak

 

[A.J.]

Heel makkelijk.
Extra--->beveiliging en daar kun je kiezen om het blad te beveiligen of de werkmap te beveiligen.

Succes,
Fonz

 

[martin van de mortel]

Goeiemorgen Fonz,

Ik heb een vraagje aan jou.
Ik wist hoe je die beveiliging moest doen (dacht ik) want ik heb ook een aantal excel mappen met een wachtwoord vergrendeld.

Ik wilde het nog even nakijken voordat ik een antwoord op deze vraag wilde geven, maar het vreemde is nu dat ik toch nog een map gewoon kan openen ook als ik er een wachtwoord op zet.

Zie ik iets over het hoofd?

Kijk maar eens naar het plaatje, dan zou het toch goed moeten zijn?

grt.

Martin

 

[martin van de mortel]

plaatje

 

[jpvs]

Hier staat een kant en klaar goed voorbeeld :

http://home.planet.nl/~schni000/Excel/excel.htm

Vragen om een Wachtwoord
Compleet voorbeeld met Userform dat om wachtwoord vraagt.

Naam : Peter Wachtwoord is 12aapje3
Jan WW is Josje84
Klaas WW is mijnvrouw
De wachtwoorden zijn dus ook hoofdletter ongevoelig.(de namen niet)?


Ook in ThisWorkbook staat :

Private Sub Workbook_Open()
'Vervang xlVeryHidden door True om de werkbladen
'allen zichtbaar te maken.
For Each ws In Worksheets
If ws.Name <> "Voorblad" Then
ws.Visible = xlVeryHidden
End If
Next
Range("D6").Select
End Sub

Pierre

 

[elda]

Hartelijk dank voor jullie fantastische hulp

 

[A.J.]

Daar is deze site voor.
Geen dank.

Fonz :thumb:

 

[elda]

Beste JPVS,

ben even naar de site gegaan, door jou voorgeteld. Vind dat wachtwoordprogrammaatje iets fantatsisch.
Mijn vraag is nu: hoe kan ik dit aanpassen naar eigen behoeften, dus hoe kan ik daar eigen namen van gebruikers invoegen,

Alvast bedankt voor de hulp

Jaak

 

[jpvs]

Open het bestand, ga naar VBA met Alt + F11.
Ga nu naar ThisWorkbook daar zie je deze listing staan :

Private Sub Workbook_Open()
'Vervang xlVeryHidden door True om de werkbladen
'allen zichtbaar te maken.
For Each ws In Worksheets
If ws.Name <> "Voorblad" Then
ws.Visible = True 'xlVeryHidden
End If
Next
Range("D6").Select
End Sub

heb een accent voor xlVeryHidden gezet en True ervoor gedaan.
Sla het bestand op en sluit het.
Open terug het bestand en alle tabbladeren zijn nu zichtbaar
Klik op Invoegen in de werkbalk en voeg een Werkblad in (eventueel verander je de naam)
Ga nu naar het tabblad "Mensen" en vul de naam van het zojuist geplaatste blad in (onder Klaas) en het nieuwe wachtwoord.
Vergeet niet True te veranderen naar xlVeryHidden en terug op te slaan.

Pierre

 

[elda]

Sorry JPVS, maar geraak er echt niet in hoor.
Ben op dat gebied nog echt een bleuke.
Een mogelijkheid is om een niet beveiligde exemplaar door te sturen naar ùijn emailadres.

Groetjes uit het zonnige Vlaanderen

Jaak

 

[jpvs]

Heb het bestand hier onder gezet met alle tabbladeren open?

Pierre

 

[elda]

Hatelijk dank JPVS
Moesten alle kerels ziojn zoals jij, wat zou het toch makkelijker leven zijn


Jaak