beste edmoor deze code heb ik van u gekregen en werkt prima
maar mijn volgende vraag zo je dit aan kunnen passen zodat ik het blad is beveiligd zoals het nu is maar dat ik dus enkel cellen
vrij kan geven ik heb het als een geprobeerd met ( range ("A1:B40") .unlocked = true ) maar dat krijg ik dus ook al niet voor elkaar ps. range a1: b40 is een voorbeeld
maar als er een ander Username gebruikt wordt moet alles wel weer beveiligd zijn
Private Sub Workbook_Open()
If Environ("Username") = "lsc.b" Then
For Each sh In ThisWorkbook.Sheets
sh.UnProtect "153"
Next sh
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each sh In ThisWorkbook.Sheets
sh.Protect "153"
Next sh
End Sub
maar mijn volgende vraag zo je dit aan kunnen passen zodat ik het blad is beveiligd zoals het nu is maar dat ik dus enkel cellen
vrij kan geven ik heb het als een geprobeerd met ( range ("A1:B40") .unlocked = true ) maar dat krijg ik dus ook al niet voor elkaar ps. range a1: b40 is een voorbeeld
maar als er een ander Username gebruikt wordt moet alles wel weer beveiligd zijn
Private Sub Workbook_Open()
If Environ("Username") = "lsc.b" Then
For Each sh In ThisWorkbook.Sheets
sh.UnProtect "153"
Next sh
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each sh In ThisWorkbook.Sheets
sh.Protect "153"
Next sh
End Sub
Laatst bewerkt: