alle werkbladen ineens beveiligen

[cremerhm]

Hallo allemaal,

Heb een document met circa 40 tabbladen.
In de tabbladen zijn veel kolommen met formules welke niet aangepast mogen worden.

Hoe kan ik ervoor zorgen dat alle werkbladen ineens beveiligd worden met hetzelfde wachtwoord? De cellen die niet aangepast mogen worden staat bij celeigenschappen al op "geblokkeerd".

Natuurlijk dien ik de beveiliging er ook ineens vanaf te kunnen halen als ik aanpassingen moet doorvoeren.

---

Nog een andere vraag (anders moet ik 2 topics starten);

Hoe zorg ik ervoor dat er in een cel alleen getallen geschreven mogen worden?
En dus geen tekst...... (graag met een melding erbij dat een bepaald invoerformaat aangehouden moet worden).

Tx in advance!

 

[Roncancio]

Vraag 1.

Dim WS As Worksheet

    For Each wSheet In Worksheets
        WS.Protect Password:="helpmij"
    Next

Vraag 2.

Via datavalidatie.
- Kies voor Data - Valideren ...
- Selecteer Geheel Getal.

Bij tabblad Foutmelding kan je zelf aangeven wat er moet komen te staan als men een verkeerde invoer geeft.

Met vriendelijke groet,


Roncancio

 

[Confictius]

Heb je iets aan : bestand>opslaan als>extra>algemene opties. Daar kun je wachtwoorden invoeren voor schrijven en /of openen van je doc.

vraag2: data>valideren kies daar voor "geheel getal"

 

[Warme bakkertje]

Private Sub Workbook_Open()
    Dim sh As Worksheet
        For Each sh In ThisWorkbook.Sheets
            sh.Protect Password:="cremerhm", UserInterfaceOnly:=True
        Next
End Sub

Edit: als het nu nog niet duidelijk is
Mvg

Rudi

 

[cremerhm]

Private Sub Workbook_Open()
    Dim sh As Worksheet
        For Each sh In ThisWorkbook.Sheets
            sh.Protect Password:="cremerhm", UserInterfaceOnly:=True
        Next
End Sub

Edit: als het nu nog niet duidelijk is
Mvg

Rudi

Ten eerste: dank voor de reactie's!

Met bovenstaande code lukt het me om de werkbladen ineens te beveiligen.
Maar.....als ik de code eruit haal en het bestand weer opnieuw open blijven alle werkbladen beveiligt. Hoe haal ik de beveiliging er ineens vanaf?

 

[Roncancio]

Private Sub Workbook_Close()
    Dim sh As Worksheet
        For Each sh In ThisWorkbook.Sheets
            sh.[B]Un[/B]Protect Password:="cremerhm", UserInterfaceOnly:=True
        Next
End Sub

Met vriendelijke groet,


Roncancio

 

[Warme bakkertje]

Sub Onbeveiligd()
    Dim sh As Worksheet
        For Each sh In ThisWorkbook.Sheets
            sh.Unprotect Password:="cremerhm"
        Next
End Sub

Edit: weer niet snel genoeg
Mvg

Rudi

 

[cremerhm]

Jullie zijn helemaal geweldig!!

TX!