Ga naar inhoud

script beveiligen meerdere tabbladen; celeigenschappen niet


homevis
 Delen

Aanbevolen berichten

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.

Link naar reactie
Delen op andere sites

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?

Link naar reactie
Delen op andere sites

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.

 

aangepast door homevis
Link naar reactie
Delen op andere sites

 Delen

×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.