• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Werkblad beveiligen met 1 sheet uitgezonderd

Status
Niet open voor verdere reacties.
S

Shorty75

Gebruiker
Lid geworden
10 dec 2009
Berichten
20
Hoi Allemaal,

Ik wil graag het hele werkblad beveiligd hebben, maar één sheet moet daarvan uitgezonderd blijven, omdat men anders geen plaatjes in het tabblad kan plaatsen.

Alvast bedankt




Ik heb nu dit staan:

Sub Werkmap_Beforeclose()

'Werkmap structuur beveiliging aan

ActiveWorkbook.Protect Password:="Wachtwoord"
ActiveWorkbook.Save
End Sub

Sub Beveiliging_aan()

'Tabbladen beveiliging aan

Dim sh As Worksheet
Application.ScreenUpdating = False
For Each sh In Worksheets
sh.Protect Password:="Wachtwoord", UserInterfaceOnly:=True
Next
Worksheets(1).ScrollArea = ""
Application.ScreenUpdating = True
End Sub
 
Code: 
Sub prot()
For Each sh In ThisWorkbook.Sheets
 If sh.Name <> "Je sheetnaam die je niet wil beveiligen" Then sh.Protect "WW", UserInterfaceOnly:=True
Next
End Sub
 
Sorry voor de wat late reactie,

maar super bedankt jVeer. Hiermee kan ik weer verder. top
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan