Beveiligen met behoud van bewerken geselecteerde cellen

[marcel31281]

Beste forumleden,

Ik heb onderstaande code om in 1x alle bladen te beveiligen, nu kreeg ik de vraag of het nog wel mogelijk kon zijn om nog wel de cellen te kunnen bewerken (kleur, lettertype etc.)
Nu heb ik wat dingen geprobeerd, maar als ik dan de macro weer uitvoer blokkeert Excel weer alles

Sub BeveiligAlleSheets()
Dim sh As Object
Dim JePassword As String

JePassword = "*****l" 'zet tussen de quotes je eigen password

For Each sh In ThisWorkbook.Sheets
sh.Protect Password:=JePassword
Next sh

End Sub

 

[edmoor]

Klik met rechts op de betreffende cellen en kies Celeigenschappen.
Klik op de tab Bescherming en vink daar Geblokkeerd uit.

Dat kan je eventueel ook in je macro doen.
Neem er dan een macro voor op om te zien hoe dat moet.

 

[marcel31281]

Bedankt voor je reactie,


Alleen de cellen zijn niet geblokkeerd, het gaat om de cellen die ze reeds al mogen bewerken. Alleen willen ze in deze cellen ook het lettertype en de kleur kunnen wijzigen.

 

[edmoor]

Maak er dan dit van:

sh.Protect DrawingObjects:=True, _
    Contents:=True, _
    Scenarios:=True, _
    AllowFormattingCells:=True, _
    Password:="******"

 

[emields]

Of bekijk dit eens.
https://www.helpmij.nl/forum/announcement.php?f=5

 

[marcel31281]

bedankt

 

[marcel31281]

Of bekijk dit eens.
https://www.helpmij.nl/forum/announcement.php?f=5

?? ik weet heus wel hoe het werkt hier, bij deze vraag was in mijn ogen een voorbeeldbestand onnodig.

Maar ja je hebt altijd azijn pissers, waarbij elk regeltje nageleefd moet worden

Fijne avond verder nog

 

[emields]

Vermijd de knop 'quote', omdat dan steeds weer hele teksten onnodig gekopieerd worden.

staat er nochtans ook in.