Beveiliging opheffen en terug instellen

[Bart Smith]

Ik heb een inventarissysteem gemmakt in excel.
Ik zou graag een ddel van de cellen beveiligen zodat er niet kan gewijzigd worden aan bepaalde waarden.
Ik heb 2 kolommen (C4 tot C35 en D4 tot D35) welke moeten gewijzigd worden door de gebruiker.
Ik heb nog een kolom waarin de nieuwe voorraad staat (Beveiligde cel).
Nu zou ik willen dat wanneer er op de knop "actualiseren" geklikt wordt, de beveiliging van het bald opgeheven wordt, de voorraad aangepast wordt en de beveiliging van het blad opnieuw ingesteld wordt.

Kan iemand mij verder helpen?

Hier de code zoals deze nu onder de knop "actualiseren" zit.



Sub Beveiliging_opheffen()
ActiveSheet.Unprotect
End Sub

Sub MacroLeegBlad()
Dim rBereik As Range
Application.ScreenUpdating = False
For Each rBereik In ActiveSheet.Range("F4:F35")
rBereik.Value = rBereik.Value - rBereik.Offset(0, -2).Value
Next
ActiveSheet.Range("C435").ClearContents
Application.ScreenUpdating = True
End Sub

Sub MacroCopy()
Dim rBereik As Range
Dim lRij As Long
lRij = Worksheets("Detail").Range("C65536").End(xlUp).Row + 1 Application.ScreenUpdating = False
For Each rBereik In ActiveSheet.Range("D435")
If rBereik.Value <> "" Then
ActiveSheet.Range("B" & rBereik.Row & " " & rBereik.Row).Copy
Worksheets("detail").Range("B" & lRij & " " & lRij).PasteSpecial Paste:=xlPasteValues
lRij = lRij + 1
End If
Next
Sheets("Detail").Columns("B:B").EntireColumn.AutoFit
Sheets("Detail").Columns("B:B").ColumnWidth = 40#
Application.CutCopyMode = False
MacroLeegBlad
Application.ScreenUpdating = True
End Sub

Sub Beveiliging_instellen()
ActiveSheet.protect
End Sub

Bedankt voor jullie tijd ....

 

[Hoornvan]

Bart Smith,

Zo zou het moeten werken.
De volgende keer graag de code tussen de tags, de code selecteren en hier boven op # klikken.

Sub MacroLeegBlad()
Dim rBereik As Range
Application.ScreenUpdating = False
ActiveSheet.UnProtect Password:="Verzinmaarwat"

 [COLOR="Red"]Plaats hier uw code[/COLOR]

ActiveSheet.Protect Password:="Verzinmaarwat"
Application.ScreenUpdating = True
End Sub

Of zo.
'haal de beveiliging van het blad

Application.ScreenUpdating = False
Sheets("gegevens").Unprotect

[COLOR="Red"]Plaats hier uw code[/COLOR]

sheets("gegevens").Protect
Application.ScreenUpdating = True

 

[Revdutchie]

Misschien een stomme vraag, maar als je een button hebt om dat te doen, waarom is de sheet dan protected ?

Ik bedoel, iedereen kan dan toch op die knop drukken ?

Groeten,
Jacques

 

[Bart Smith]

Misschien een stomme vraag, maar als je een button hebt om dat te doen, waarom is de sheet dan protected ?

Ik bedoel, iedereen kan dan toch op die knop drukken ?

Groeten,
Jacques

Inderdaad, maar het is de bedoeling om de cellen met artikelnummers, aangepaste voorraad, normale stock, namen en verwijzingen te vergrendelen zodat deze niet kunnen gewijzigd worden en er ook niet kan "gefoefeld" worden in de stock.

Code wordt straks eens geprobeerd.....

 

[Revdutchie]

Ja, maar voor actualiseren hoef je toch niet de bladbeveiliging op te heffen ?

Groeten,
Jacques

 

[trucker10]

Zonder VBA ( macro ) maak een tweede tabblad en verwijs daarnaar , vul vanaf dat tabblad de nieuwe voorraad aan beveilig beiden tabbladen of zet het hidden , eventueel vanaf een ander workbook ietsjes meer werk > veiliger