Excel bestand te (deels te ) beveiligen, waar een VBA in staat

[Tijsss]

Beste mensen,
Is het mogelijk om je excel bestand te (deels te ) beveiligen, waar een VBA in staat. Ter verduidelijkheid: Er mogen sommige bepaalde cellen veranderd worden en de VBA code kan worden uitgevoerd, maar de rest (bepaalde formules) moet afgeschermd zijn. Want nu geeft die een fout melding bij het beveiligde excel bestand, als ik met VBA wil uitvoeren.
Gr. Tijs

VBA Code

Private Sub Worksheet_Change(ByVal Target As Range)

Sheets("Planning").Select
    If Range("M1").Value = "Intern" Then
    Columns("M:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("B:D").Select
    Range("D1").Activate
    Selection.EntireColumn.Hidden = False
    Range("A7:Q7").Select
    Range("Q7").Activate
    Selection.AutoFilter
    Range("M1").Select
    ElseIf Range("M1").Value = "Klant" Then
    Range("A7:Q7").Select
    Range("Q7").Activate
    Selection.AutoFilter
    Range("O:O,N:N,L:L,C:C").Select
    Range("C1").Activate
    Selection.EntireColumn.Hidden = True
    Range("M1").Select
    End If
End Sub

 

[pasan]

begin je code met Unprotect en onderaan zet je Protect.
je haalt dus even de beveiliging van het werkblad eraf zodat afzonderlijke cellen niet meer geblokkeerd worden.

 

[Tijsss]

Beste Pasan,

Bedankt voor je antwoord, maar..
Hij werk niet omdat (denk ik) de code cellen aanspreekt die ik vergrendeld heb,
waarnaar hij een foutmelding geeft en je de foutoplossing kunt draaien.
Met jou oplossing vraag die om het passw, druk je naarna op annuleren geeft die alsnog de foutmelding met de foutoplossing.

 

[jkpieterse]

Uiteraard geef je (in VBA) bij de unprotect en de protect methode ook het wachtwoord mee...
Worksheets("Blad1").Unprotect "JeWachtwoord"

 

[Tijsss]

Top:thumb:, hij werkt!
dank u.

Gr Tijs