Exel beveiligen ??

[Gr@smaaier]

Ik wil graag de opmaak van mijn werk in Excel kunnen beschermen maar dat er wel gegevens ingevuld kunnen worden en het werk kan worden gesaved. Alleen als ik een wachtwoord intyp dat ik de layout kan veranderen van mijn werkblad. Hoe pak ik dit aan ?

Alvast bedankt voor de hulp. :thumb:

 

[W Bloemendal]

Ik heb een bestand gemaakt waar bij het blad tegen per ongeluk cellen over schrijven beveiligd is moet er iets gewijzigd worden dan word het blad beschermd.
Dan is het niet mogelijk om bepaalde cellen te veranderen.


hier de beveiliging

Sheets("ACHTSPIL").Select
ActiveSheet.Unprotect
Cells.Select
Selection.Locked = True
Selection.FormulaHidden = False
Selection.Interior.ColorIndex = xlNone
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoRestrictions
Range("a1").Select


hier de bescherming

' bescherming achtspil
'

Sheets("ACHTSPIL").Select
Cells.Select
ActiveSheet.Unprotect
Selection.Locked = False
Selection.FormulaHidden = False
Rows("1:3").Select
Selection.Locked = True
Selection.FormulaHidden = False
Selection.Interior.ColorIndex = 40
Application.Goto Reference:="MachineA1"
Selection.Locked = True
Selection.FormulaHidden = False
Application.Goto Reference:="MachineA2"
Selection.Locked = True
Selection.FormulaHidden = False
Application.Goto Reference:="MachineA3"
Selection.Locked = True
Selection.FormulaHidden = False
Application.Goto Reference:="MachineA4"
Selection.Locked = True
Selection.FormulaHidden = False
Application.Goto Reference:="MachineA5"
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowInsertingRows:=True, AllowDeletingRows:=True
ActiveSheet.EnableSelection = xlUnlockedCells

van de te beschermen cellen heb ik een naamvak van gemaakt

als je in de beveiliging een wachtwoord in kan verwerken dan is het blad niet met de normale beveiliging opheffen te ontgrendelen.

maar dat weet ik niet hoe dat moet, ik heb geprobeerd om een macro op te nemen met een wachtwoord maar dat lukt me niet

wim

 

[Dnereb]

een voorbeeldje van code om alle bladen en het werkboek te beveiligen....
Ga hier wel eerst in een leeg werkboek mee klooien want de kans dat je het wachtwoord niet meer weet is niet denkbeeldig.

Option Explicit
Sub LockAll()

Dim Ws As Worksheet
Dim WW As String

WW = InputBox("Geef een Wachtwoord:", "Wachtwoord demo.")

For Each Ws In ThisWorkbook.Worksheets
    Ws.Protect WW
Next
ThisWorkbook.Protect WW, True, True

End Sub

Sub UnLockAll()

Dim Ws As Worksheet
Dim WW As String

WW = InputBox("Geef een Wachtwoord:", "Wachtwoord demo.")

For Each Ws In ThisWorkbook.Worksheets
    Ws.Unprotect WW
Next
ThisWorkbook.Unprotect WW

End Sub

 

[DIEZEL]

een voorbeeldje van code om alle bladen en het werkboek te beveiligen....
Ga hier wel eerst in een leeg werkboek mee klooien want de kans dat je het wachtwoord niet meer weet is niet denkbeeldig.

Maar nu ook niet weer zo'n ramp! Zie:
http://www.helpmij.nl/forum/showthread.php?t=252212

 

[W Bloemendal]

sorry dit is mijn vraag niet maar hier wil ik toch op in gaan.

ik wil eigenlijk dat mijn macro beschermen terwijl mijn blad met een wachtwoord beveiligd is de beveiliging er af haalt en er later met de macro beveilig er weer het wachtwoord opzet.

zodat de beveilging er niet met extra beveiliging eraf te halen is dan kan er niet iemand de echt te beveiligen cellen wijzigen.

wim

 

[W Bloemendal]

ik heb het al gevonden

WW = InputBox("Geef een Wachtwoord:", "Wachtwoord demo.")

dit vervangen door WW = wachtwoord

wim