beveiliging en buttons

[poeckie]

hallo,

ik kreeg zopas een antwoord op m'n vraag hoe ik een commandbutton toch kan gebruiken in een beveiligde sheet.

toen schreef Paul het volgende ( waarvoor dank )

"ActiveSheet.Protect ("wachtwoord") UserInterfaceOnly:=True"

kan er me iemand zeggen waar ik dit moet plaatsen.
getracht dit in de macro te zetten maar krijg steeds " syntax fouten"

alvast bedankt

gr Poeckie

 

[Road Dogz]

hallo,

ik kreeg zopas een antwoord op m'n vraag hoe ik een commandbutton toch kan gebruiken in een beveiligde sheet.

toen schreef Paul het volgende ( waarvoor dank )

"ActiveSheet.Protect ("wachtwoord") UserInterfaceOnly:=True"

kan er me iemand zeggen waar ik dit moet plaatsen.
getracht dit in de macro te zetten maar krijg steeds " syntax fouten"

alvast bedankt

gr Poeckie

Moet het dubbelpunt niet achterwege gelaten worden?
"ActiveSheet.Protect ("wachtwoord") UserInterfaceOnly:=True"

 

[Finch]

Zet eens een komma voor Userinterfaceonly. Dan zal het wel werken.

 

[poeckie]

hallo,


werkt nog steeds niet, zie hier het voorbeeld van hetgeen ik geplaatst heb:

Sub chauffeur()
'
' chauffeur Macro
' Macro recorded 8/06/2008 by Marc Vanpoecke
'

'
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("B67:K67").Select
Selection.Insert Shift:=xlDown
ActiveSheet.Protect ("char"), UserInterfaceOnly = True
End Sub

 

[Ginger]

poeckie,

Sheets([naam van de sheet die beveiligd moet zijn]).Protect Password:="char", UserInterfaceOnly:= True

(ongetest!)

Enne.... Dit moet je bij het ThisWorkbook_Open event zetten.

Groet, Leo

EDIT: Poeckie, waarom ben je een 2e Topic begonnen??? Wil je je andere aub op opgelost zetten! Dit is héél verwarrend!

 

[Warme bakkertje]

Schrijf regel als volgt

ActiveSheet.Protect Password:="char", UserInterFaceOnly:=True

Kijk ook eens op volgende link of in de helpsectie van VBA onder Protect voor verdere informatie.

http://www.ozgrid.com/VBA/excel-macro-protected-sheet.htm

Mvg

Rudi

Juist te laat
@ Ginger Volgens VBA Help niet noodzakelijk bij workbook_open

 

[Finch]

hallo,


werkt nog steeds niet, zie hier het voorbeeld van hetgeen ik geplaatst heb:

[/COLOR]

oh ja, die haakjes rond het password moeten ook weg.

 

[poeckie]

sorry jongens,

ik blijf maar steeds foutmeldingen krijgen.
is er geen andere manier om een document te beveiligen en toch deze buttons te gebruiken?

ik vermoed dat ik op een totaal verkeerde manier mijn code neerzet.

gr. Poeckie


BTW: vorige issue is op gelost gezet, sorry voor de verwarring

 

[Ginger]

Poeckie, Ik zie in dit hele kleine stukje code wel het deel waar je weer voor de beveiliging zorgt, maar waar zorg je er voor dat de sheet de dingen kan doen die je vóór je protect staan???

Groet, Leo

 

[poeckie]

hallo,

bedoel je dat mijn beveiligingscode op de verkeerde plek is gezet?
of eerder dat er een stuk te weinig in staat?

gr. Poeckie

 

[Warme bakkertje]

Beste Poeckie

ik heb mijn worksheet beveilgd en een range opgegeven waardoor de gebruikers toch in staat zijn om een aantal zaken in in te geven.
eveneens heb ik een aantal commandbuttons opgezet met een macrofunctie om rijen in te voegen.

Het is deze beveiliging die voor conflicten zorgt.
Verwijder allereerst deze beveiliging. Selecteer nu het bereik dat je nog wil kunnen wijzigen en ga naar celeigenschappen > Bescherming en verwijder het vinkje bij geblokkeerd.
Voeg dan volgende code toe aan This Workbook waar Blad1 de naam is van het betreffende werkblad.

Private Sub Workbook_Open()
Worksheets("Blad1").Protect Password:="char", UserInterFaceOnly:=True
End Sub

Sla alles op en sluit je bestand. Bij het heropenen zou alles naar wens moeten zijn
Op deze manier is je blad beveiligd maar kan in het opgegeven bereik toch gewijzigd worden, alsook blijven je knoppen werken.
En zoals Leo altijd zegt "Probeer dit eerst uit op een copie"

Mvg

Rudi