script beveiligen meerdere tabbladen; celeigenschappen niet

[homevis]

Ik heb meerdere bestanden met elke tien tabbladen.

Deze kan ik ieder afzonderlijk beveiligen met wachtwoord en de celeigenschappen vrij laten.

 

Maar hoe kan ik dit met een script via visual basic?

[dotchiejack]

Beveiligen:

 

Sub tabbladen_beveiligen()
top:
WW = InputBox("Wachtwoord?")
HWW = InputBox("Herhaal wachtwoord")
If Not (WW = HWW) Then
MsgBox "Wachtwoorden komen niet overeen!"
GoTo top
End If
For i = 1 To Worksheets.Count
If Worksheets(i).ProtectContents = True Then GoTo oops
Next
For Each s In ActiveWorkbook.Worksheets
s.Protect Password:=WW
Next
Exit Sub
oops: MsgBox "Ik denk dat u een aantal bladen hebt die al beveiligd zijn. Deblokkeer alle bladen en voer dan deze macro uit."
End Sub

 

Vrijgeven:

 

Sub tabbladen_vrijgeven()
top:
On Error GoTo oops
VWW = InputBox("Geef je wachtwoord in:")
For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.Unprotect Password:=VWW
Next
Exit Sub
oops: MsgBox "Er is een probleem - controleer je wachtwoord, capslock, enz."
GoTo top
End Sub

 

Code in een gewone module.

[homevis]

Merci voor je reactie.  

 

Dit werkt om alle tabbladen te vergrendelen maar dan kan ik nog niet in de celeigenschappen van de niet beveiligde cellen ...

Manueel kan je dit slecteren; 'celeigenschappen' ...  Maar kan dit ook ineens via een aanpassing van dit script?

[homevis]

- Dit is omdat ik zo aan collega's vrijheid geef om de arcering aan te passen van de vrije cellen... - 

[dotchiejack]

Verander

s.Protect Password:=WW

 in

 

s.Protect Password:=WW, AllowFormattingCells:=True

 

als het alleen over arcering gaat zou dit voldoende moeten zijn.

[dotchiejack]

Je moet wel antwoorden als je wilt dat ik je verder help.

Zonder voorbeeld blijft het koffiedik kijken en daar heb ik geen zin in.

Maak een schermafdruk van volgend scherm, dan weet ik te minste wat ik in de code moet zetten.

 

 

 

[homevis]

Hey Philiep

 

Wederom bedankt voor je tips!  Ik ben in se veel op de baan en ben dus niet steeds achter men pc.

 

Het gaat dus inderdaad om wat je in voorgaande printscreen toont.

De eerste drie vinkjes zouden moeten aangeduid worden en niet enkel de eerste twee.

 

Collega's willen sommige onbeveiligde cellen kunnen aanpassen; bvb al dan niet markeren/arceren.

 

22 maart 2022 aangepast door homevis

[homevis]

Off topic...  

 

Zijn deze scripts van buiten te leren, of is hier een lijst van?   Het is natuurlijk makkelijk om hier een vraag te stellen, maar misschien kan ik het in de toekomst zelf bedenken.