Opgelost Eén tabblad binnen werkblad beveiligen met wachtwoord

[tetterus]

Is het mogelijk om één tabblad binnen werkblad beveiligen met wachtwoord?
En is dit ook mogelijk in Excel online?

 

[edmoor]

Klik in het Excel menu op Controleren en kies vervolgens Blad beveiligen.
In Excel online, Engelse versie, klik je op Review en kiest dan Manage protection.

 

[tetterus]

Ik zal mijn vraag wat verduidelijken:
ik heb een sheet voor het boeken van uren, gegevens worden verzameld op een blad met uren geboekt per project, die sheet mag niet iedereen inzien, er moet dus 1 blad beveiligd worden zodat andere deze niet kunnen openen

 

[AD1957]

En hoe is de naam van het blad ?
zo iets:

Sub Verberg()
Sheets("Blad2").Visible = xlSheetVeryHidden 'wijzig Blad2 in jouw werkbladnaam
End Sub

Iedereen met een beetje kennis van VBA kan het blad echter weer zichtbaar maken.
VBA moet je dan beveiligen met een wachtwoord.

 

[edmoor]

Ik zal mijn vraag wat verduidelijken:
ik heb een sheet voor het boeken van uren, gegevens worden verzameld op een blad met uren geboekt per project, die sheet mag niet iedereen inzien, er moet dus 1 blad beveiligd worden zodat andere deze niet kunnen openen

Dan bedoel je dus niet Beveiligen maar Verbergen.
Zie #4.
Je kan dan ook het VBA Project met een wachtwoord beveiligen.

 

[popipipo]

Als je het celformaat van alle cellen op ;;; zet en daarna het blad beveiligd dan is dit ook niet te raadplegen.
Ik besef zelf wel dat dit niet in alle gevallen kan.

 

[tetterus]

Ik heb het zelf toch nog iets ander opgelost door:
- een knop met script te maken met verbergen/zichtbaar maken van de gevoelige inhoud i.c.m
- het beveiligen van het blad, als het blad beveiligd is werken de script knopen niet

Dank voor jullie hulp

 

[edmoor]

Uiteraard moet je dan in dezelfde macro eerst de beveiliging opheffen.
Dan de gewenste actie uitvoeren en de beveiliging terug zetten.

 

[tetterus]

Uiteraard moet je dan in dezelfde macro eerst de beveiliging opheffen.
Dan de gewenste actie uitvoeren en de beveiliging terug zetten.

Dat klopt.
Maar ik krijg het niet voor elkaar met VBA, daar heb ik ook niet heel veel verstand van.

 

[edmoor]

Dat kan met:

Sheets("Bladnaam").UnProtect "het wachtwoord"

Terug zetten van de beveiliging doe je met:

Sheets("Bladnaam").Protect "het wachtwoord"