Automatisch beveilgen van cellen

Beste experts
Ik zoek volgende mogelijkheid.
we hebben een 'invul excel bestand, waar we telkens ectra regels invullen.
op einde van het werk, slaan we op en sluiten bestand.
als we opnieuw iets moeten toevoegen, doen we bestand terug open, vullen we aan, en sluiten we opnieuw.
en zo verder.

Nu de vraag: is het mogelijk, dat de 'ingevulde velden' bij afsluiten, automatisch beveiligd worden opdat deze niet aangepast kunnen worden.
de gele en blauwe velden worden ingevuld manueel
(tenzij je het paswoord kent om de beveiliging af te zetten)

Dan heb je een macro nodig die dat doet bij afsluiten van het document. En dat betekent dat het document alleen nog maar werkt als de gebruikers de macro's aan mogen zetten. In een streng beveiligde werkomgeving is dat niet altijd toegestaan, en dan gaat het verhaal dus niet op. Overigens vind ik het een vergaande manier van medewerkers niet vertrouwen . Ik zou de oplossing dan eerder zoeken in het aantrekken van capabel personeel :d.

dat capabel personeel maakt deel uit van het meubilair, dus daar geraak ik niet omheen.
maar de bedoeling is om ervoor te zorgen, dat reeds ingevulde data, niet zomaar kan aangepast worden.
ik kan wel de sheets beveiligen met Macro, maar weet niet of het mogelijk is om enkel de reeds 'ingevulde velden' te beveiligen...

Ik zou het ook anders doen, maar goed...
Selecteer het hele blad en zet in de cel eigenschappen alle cellen op ongeblokkeerd.
Gebruik iets als: Range("??").Locked = True in ThisWorkbook Before_Close() ,bv een Loop met oa: En schakel de beveiliging van het blad in.


Overigens kun je met al die samengevoegde cellen op problemen wachten, temeer omdat die ook in de selectie voor VBA vallen...

Bjorkie zei:

Beste experts
Ik zoek volgende mogelijkheid.
we hebben een 'invul excel bestand, waar we telkens ectra regels invullen.
op einde van het werk, slaan we op en sluiten bestand.
als we opnieuw iets moeten toevoegen, doen we bestand terug open, vullen we aan, en sluiten we opnieuw.
en zo verder.

Nu de vraag: is het mogelijk, dat de 'ingevulde velden' bij afsluiten, automatisch beveiligd worden opdat deze niet aangepast kunnen worden.
de gele en blauwe velden worden ingevuld manueel
(tenzij je het paswoord kent om de beveiliging af te zetten)

Klik om te vergroten...

Ik heb dit wel eens gebruikt omdat er ook mensen zijn die heel goed zijn in hun werkgebied, maar knullig met Excel.
Ook deze mensen zijn waardevol.

Excelspecialisten kunnen deze code hoogstwaarschijnlijk comprimeren tot enkele regels maar voor mij voldeed hij destijds.



Private Sub Workbook_BeforeClose(Cancel As Boolean)
'
Sheets("registratie").Select
ActiveSheet.Unprotect Password:="1234"
Range("A1").Select
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
Selection.Locked = True
Selection.FormulaHidden = False
Range("A1").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
ActiveSheet.Cells(Cells(50000, 1).End(xlUp).Row + 1, 1).Select


End Sub

Hoi Allen,

ik kreeg het op deze manier niet echt goed werkende.
maar ik heb dit wel gevonden


deze moet ik enkel nog aanpassen op elk tabblad, en klaar.
toch, bedankt voor jullie input :thumb: