Protection

[sandernoteborn]

Heeft iemand een oplossing voor mijn protection probleem.

Mijn excelblad bevat macro's die kolommen hiden en unhiden! Ik heb bepaalde velden waar ik iets in kan vullen en andere velden wil ik graag protecten. Ik heb bij de velden die ingevuld mogen worden de LOCK eraf gehaald en zo ook voor een aantal macro's die naar bepaalde cellen verwijzen. Echter de macro's die kolommen uitvoeren of iets dergelijks die wil hij niet meer uitvoeren als ik de sheet protect!

Iemand enig idee hoe ik de macro's wel kan laten werken met een sheetprotection? Aangezien de optie Macro's niet in het lijstje staat bij de protection. Hier heb ik alleen aangevinkt: Allow Unlocked cells!

Iemand een idee hoe ik de macro's ook met protection kan laten werken?

Alvast bedankt!

 

[Jan van Asseldonk]

Op een beveiligd blad kun je geen rijen, kolommen of cellen toevoegen of verwijderen. Verwijder daarom aan het begin van de macro de beveiliging en zet deze er aan het eind weer op.

 

[sandernoteborn]

Op een beveiligd blad kun je geen rijen, kolommen of cellen toevoegen of verwijderen. Verwijder daarom aan het begin van de macro de beveiliging en zet deze er aan het eind weer op.

Das een optie. Iemand enig idee hoe of wat je boven de macro moet zetten en eronder om de beveiliging eraf te halen en weer erop?

 

[sandernoteborn]

Opgelost! De tip was voldoende: aan het begin en einde van de macro respectievelijk;

worksheet.Unprotect en Worksheet.protect gebruiken

Dank!

 

[W Bloemendal]

met de volgende macro kan je het blad beschermen zodat een bepaald gedeelte niet veranderd kan worden.

Sub MacroD()

Sheets("blad1").Select
ActiveSheet.Unprotect
Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
Rows("1:3").Select
Selection.Locked = True
Selection.FormulaHidden = False
Selection.Interior.ColorIndex = 40
Application.Goto Reference:="naamvak1"
Selection.Locked = True
Selection.FormulaHidden = False
Application.Goto Reference:="naamvak2"
Selection.Locked = True
Selection.FormulaHidden = False
Application.Goto Reference:="naamvak3"
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowInsertingRows:=True, AllowDeletingRows:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

nu kunnen er wel regels toegevoegd worden.
naamvak 1 2 en 3 zijn cellen of aantal cellen die niet gewijzigd mogen worden.
deze moet je dan een naam geven.

wim