Ga naar inhoud

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


Stijn126
 Delen

Aanbevolen berichten

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.

aangepast door Passer
Titel van je topic even duidelijker gemaakt voor de lezers
Link naar reactie
Delen op andere sites


Ik kan eventjes niet volgen.

Quote

Het gaat om een document met meer dan 24 tabbladen. 

Dit is duidelijk maar de volgende quote echter niet.

Quote

moet ik dus ooit per document (30) meer dan 24 x een wachtwoord ingeven.

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

Quote

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

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)

 

 

Link naar reactie
Delen op andere sites

  • Passer wijzigde de titel naar Hoe - via ingave in VBA - in verschillende documenten een wachtwoord in één keer laten verwijderen?
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: image.png.cfae88f750755c23b5f428b4f9a3682c.png

aangepast door Passer
Link naar reactie
Delen op andere sites


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.:xd:

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

aangepast door dotchiejack
Link naar reactie
Delen op andere sites

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.:xd:

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!

Link naar reactie
Delen op andere sites


Doe mee aan dit gesprek

Je kunt dit nu plaatsen en later registreren. Indien je reeds een account hebt, log dan nu in om het bericht te plaatsen met je account.

Gast
Reageer op dit topic

×   Geplakt als verrijkte tekst.   Plak in plaats daarvan als platte tekst

  Er zijn maximaal 75 emoji toegestaan.

×   Je link werd automatisch ingevoegd.   Tonen als normale link

×   Je vorige inhoud werd hersteld.   Leeg de tekstverwerker

×   Je kunt afbeeldingen niet direct plakken. Upload of voeg afbeeldingen vanaf een URL in

 Delen

×
×
  • Nieuwe aanmaken...