Sorteerknoppen werken niet i.c.m. bladbeveiliging

[mdk]

Hallo allemaal!

Ik heb een overzicht gemaakt voor de uitslagen van onze wielervereniging, met sorteerknoppen met behulp van visual basic. Verder staan er formules in verschillende kolommen die ik wil verbergen en blokkeren met bladbeveiliging.
Als ik dat toepas werken de sorteerknoppen niet.

Weet iemand hoe ik dat zou kunnen oplossen, bestaat er een mogelijkheid om bladbeveiliging aan te zetten terwijl de knoppen het gewoon blijven doen?

Ik heb het bestand bijgevoegd.

Alvast bedankt voor het meedenken!

Groetjes,
MDK

 

[Warme bakkertje]

Private Sub Workbook_Open()
Sheets("Blad1").Protect UserInterfaceOnly:=True
End Sub

Mvg

Rudi

 

[mdk]

Private Sub Workbook_Open()
Sheets("Blad1").Protect UserInterfaceOnly:=True
End Sub

Ik heb deze code in de sheet erbij gezet, en de bladbeveiliging dan aangezet, want dat is de bedoeling dan toch? Helaas werkt het niet dan....

Of heb ik iets fout gedaan? Ik heb de sheet bijgevoegd!
ww=test

Bedankt voor het meedenken maar weer ;-)

Groetjes,
MDK

 

[Warme bakkertje]

Bij deze

Mvg

Rudi

 

[mdk]

Rudi,

Enorm bedankt! Het werkt nu inderdaad.

Kun je uitleggen wat je gedaan hebt, want wat ik ook kijk of uitprobeer...ik kan niet ontdekken hoe ik dit nu in een andere sheet voor elkaar zou kunnen krijgen..!

Groetjes,
MDK

 

[trucker10]

Druk Alt F11 en kijk bij ThisWorkbook .

 

[mdk]

Ja, dat snap ik.
Maar dan zie ik wat hij heeft gedaan, niet hoe hij het heeft gedaan.

Moet ik eerst bladbeveiliging aanzetten, of later pas....
Welke stappen moet ik verder doorlopen?

Dat zou ik heel graag willen weten, nu leer ik een trucje, maar ik wil het trucje snappen...snap je?!

Groetjes,
MDK

 

[Superzeeuw]

MDK,

Als je alles had gelezen dan had je het denk ik wel begrepen.
Punt is wel dat de macro's geactiveerd zijn bij openen document!

Private Sub Workbook_open()
Sheets("Blad1").Protect Password:="test", UserInterfaceOnly:=True
End Sub

Regel1: Deze actie start wanneer je het bestand opent (macro's wel activeren)
Regel2: Blad1 wordt beveiligd met een wachtwoord (test) en dan alleen de userinterfaces
Regel3: Macro module stopt.

Grtz.

 

[mdk]

Oké, misschien moet ik mijn vraag nu anders formuleren:
Ik wil nóg een sheet maken met dezelfde codes, hoe pak ik dat dan aan?

Ik open het bestand, schakel macro's in en zet de bladbeveiliging uit. Ik ga naar de ontwerpmodus en maak een nieuwe klassemodule aan in VB met de codes van Rudi.
Ik sla dit op, zet de bladbeveiliging weer aan, en mijn sorteerknoppen werken dan niet....
Ik doe dus in het proces iets fout, want verder ziet alles er hetzelfde uit als het bestand zoals Rudi dat voor me gemaakt had...

Daarom was ik dus op zoek naar hoe ik het moet doen....
Kan iemand me toch nog helpen?

Groetjes,
MDK

 

[Superzeeuw]

MDK,

Wat Rudi heeft gemaakt werkt goed :thumb: maar wanneer je bladbeveiliging uitzet en daarna weer aanzet zal bij het handmatig aanzetten van de beveiliging de code van Rudi niet geactiveerd worden.
Nu zul je iets moeten maken dat de module van Rudi aangestuurd wordt en dan wordt de bladbeveiliging weer ingesteld middels de macromodule van Rudi.

Als je alle bladen wilt beveiligen kan dat met de volgende code:
Private Sub Workbook_open()
Dim WS As Worksheet
Set WS = Sheets(1)
For Each WS In Worksheets
WS.Protect Password:="test", UserInterfaceOnly:=True
Next WS
Set WS = Nothing
End Sub

Tip1: maak een knop op een werkblad die je koppelt aan de de module van Rudi.
Tip2: wanneer je cel a1 aanklikt dat de module van rudi geactiveerd wordt.

Grtz.

 

[Warme bakkertje]

MDK, open je bestand en rechtsklik op het excel-logo links van Bestand. Selecteer Programmacode weergeven en plak onderstaande macro hierin. Maak nu je sheet helemaal klaar voor gebruik. Rechtsklik terug op Excel-logo en wederom Programmacode weergeven selecteren. Plaats nu je cursor ergens in de macro en druk op F5. Alle bladen zijn nu beveiligd. Sla je werk op.

Private Sub Workbook_open()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Protect Password:="test", UserInterfaceOnly:=True
Next
Set sh = Nothing
End Sub

Mvg

Rudi

 

[Superzeeuw]

Rudi,

Hoe krijg jij zo'n mooie box om je code heen?

Grtz.

 

[trucker10]

bedoel je dit zoals in de bijlage ? klik op het picto onder de " opnieuw pijl "

en plaats je code er tussen

 

[Warme bakkertje]

Selecteer je volledige code en klik dan op het hekje (#)

Mvg

Rudi

 

[Superzeeuw]

Rudi en Trucker10,

Vriendelijk bedankt voor de snelle reactie.

Hierbij een test met het #-je, wanneer het er niet uitziet doe ik iets verkeerd.

Sub Test()
MsgBox "Test"
If Test = "Wrong" Then MsgBox "Try Again"
End Sub#

Dit is de tweede test met de Quote selectie

Test
Test
Test
en nog een Test

Grtz

 

[Superzeeuw]

Jammer,

Test met #-je mislukt, nu een herkansing.

Nog eens.
Want opgeven is zo simpel.
De aanhouder wint.

Grtz.

 

[Superzeeuw]

Heren,

Sorry voor de vervuiling maar nogmaals vriendelijk bedankt het werkt.

Top

 

[mdk]

Rudi,

Dank je voor je uitleg. Ik snap precies wat ik zou moeten doen, ware het niet dat ik Excel 2007 gebruik en daar geen excel logo ergens op een balk zie staan...!

Wat nu?!

Gr.
MDK

 

[Warme bakkertje]

ALT-F11 en in Projectvenster links ThisWorkbook aanklikken

Mvg

Rudi

 

[mdk]

Beste heren,

Ik ben heel lang aan het stoeien geweest, maar ik kom er niet uit.
Het bestand van Rudi (test1) werkt.
Mijn bestand (dinsdagA) werkt niet en ik kan niet ontdekken wat ik nu fout doe...
ww=test

Ik heb al jullie aanwijzingen wel 30 keer bekeken, geprobeerd, maar ik doe toch iets niet goed...

Kan iemand mij helpen?

Alvast bedankt weer!

Groetjes,
MDK