Hoe - via ingave in VBA - in verschillende documenten een wachtwoord in één keer laten verwijderen?

[Stijn126]

Ik heb een document gemaakt in Excel365.

Dit is een Excel werkblad met Macro's. Daar dit vol berekeningen en formules zit moet je eerst een wachtwoord invullen alvorens een Macro wordt uitgevoerd.

Daar er 30 personen moeten invullen vermijd ik zo dat ik om de haverklap formules moet herstellen.

Het gaat om een document met meer dan 24 tabbladen. 

Daar ik jaarlijks en soms per maand zaken moet wijzigen (andere paramaters) moet ik dus ooit per document (30) meer dan 24 x een wachtwoord ingeven.

Hoe kan ik dit in VBA ingeven dat alle wachtwoorden in één keer verdwijnen zodat ik aanpassingen kan doen.

In de fora vind ik een oplossing doch slechts voor documenten van voor 2016.

20 juni 2022 aangepast door Passer
Titel van je topic even duidelijker gemaakt voor de lezers

[Stijn126]

Op 20/6/2022 om 15:34, dotchiejack zei:

Ik kan eventjes niet volgen.

Dit is duidelijk maar de volgende quote echter niet.

Je spreekt eerst over een document. (zie eerste quote)

In de tweede quote spreek je over 30 documenten??

Eventjes de termologie:

Je hebt een werkboek wat jij hierbij waarschijnlijk  bedoeld met document.

(andere populaire benamingen zijn bestand,file workbook)

In een werkboek heb je werkbladen

(andere populaire benamingen zijn tabblad, sheet, worksheet)

Mijn vraag is

Heb je nu dertig excelbestanden,één voor iedere gebruiker of heb je één bestand met 24 tabbladen waar dertig personen veranderingen in aanbrengen, en heeft iedereen een eigen paswoord(of zoiets)

Een tweede vraag

Wat heb je gevonden als eventuele oplossing?

(het lijkt mij sterk dat het niet meer werkt na 2016,moest je zeggen na 2003 of eventueel nog na 2010 zou ik het nog kunnen begrijpen)

Of eventueel de Office versie (32 bit of 64 bit) dat kan wel.

HAAL GEEN TWEE DINGEN DOOR ELKAAR!!

Microsof Windows32 of  64 bit is compleet iets anders dan Office 32 of 64 bit.

Ik heb al jaren een Windows 64 bit versie maar ik werk nog altijd met een Office 32 bit versie. (en geloof mij vrij, ik heb een paar bestanden die serieus wat rekenkracht vragen)

 

 

Beste,

Mijn excuses:

Het document bevat 24 tabladen

Ik heb voor elk personeelslid zulk een document, 30 personeelsleden

Wanneer ik bvb een formule dien aan te passen dien ik dus telkens:

1) elk document te openen

2) Via met wachtwoord beveiligde Macro, van elk tabblad beveiliging weg te halen

 

Noot: het gaat om dermate belangrijke data dat:

1) Er geen geknoei in de formules mag gebeuren

2) Data niet individueel aangepast kan/mag worden

 

Tot 2016 Kan je in VBA dit toevoegen:

(Deze tekst verwijderd omdat het een formule bevatte - voor versies 2016 en vroeger - om de wachtwoordbeveiliging te omzeilen. Passer

Werkt niet in mijn Excel: 

23 juni 2022 aangepast door Passer

[Stijn126]

Op 21/6/2022 om 17:08, dotchiejack zei:

Een paar zaken, de geposte code is om wachtwoorden die je niet kent te achterhalen, daar werk ik niet aan mee.

Dit is voor stouterikken en mijn naam is Ikke-Ben-Braav.

Ik ga echter van de veronderstelling uit dat je het (de )wachtwoord(en) kent dan kan je volgende codes gebruiken.

 

Om de beveiliging van alle tabbladen af te halen:

Public Sub geenWW()
On Error GoTo oeps
unWW = InputBox("Geef wachtwoord in.")
For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.Unprotect Password:=unWW
Next
Exit Sub
oeps: MsgBox "Er is een probleem - controleer je wachtwoord, capslock, enz."
End Sub

 

Om de tabbladen terug te beveiligen:

Public Sub welWW()
top:
WW = InputBox("Wachtwoord?")
reWW = InputBox("Bevestig wachtwoord")
If Not (WW = reWW) Then
MsgBox "Wachtwoorden komen niet overeen."
GoTo top
End If
For i = 1 To Worksheets.Count
If Worksheets(i).ProtectContents = True Then GoTo oeps
Next
For Each s In ActiveWorkbook.Worksheets
s.Protect Password:=WW
Next
Exit Sub
oeps: MsgBox "Ik denk dat u enkele bladen hebt die al beschermd zijn. Deblokkeer alle bladen en voer dan deze macro uit."
End Sub

Open het bijgeleverde bestand en open dan een van je dertig bestanden. Voer dan de macro's uit terwijl je in een van je eigen documenten staat. Mijn bijlage laat je gewoon open staan en hoef je verder niet naar om te zien.

 

wachtwoordjes pleite.xlsm 15 kB · 1 download

Dit is wat ik nodig had, bedankt een grote hulp!

[kweezie wabbit]

Is het probleem opgelost en heb je verder geen vragen meer, geef dan een seintje zodat we het topic kunnen afsluiten.

[Stijn126]

Dit mag afgesloten. Had al wat gezocht hoe dit te doen maar kan dit precies niet vinden.

[kweezie wabbit]

OK, dan sluiten we af.

Succes niog.