Auteur Topic: macro werkt niet bij beveiligd werkblad (gelezen 3814 keer)

MarcF · « **Gepost op:** 19 maart 2021, 11:51:07 »

Howdy,

beginner aan de slag :-)
De macro werkt niet als het werkblad beveiligd is, wel als ie niet beveiligd is.
Hoe dit oplossen ?

Groeten !
Marc

Haije · « **Reactie #1 Gepost op:** 19 maart 2021, 11:58:09 »

Begin de macro met u protect en eindig met protect

MarcF · « **Reactie #2 Gepost op:** 19 maart 2021, 12:20:20 »

Hey Haije,

macro is niet 'opgenomen', wel in code die ik op dit forum gevonden heb.
Dit is de code:

Sub legecel()
Application.Goto Columns(5).Find(Cells.SpecialCells(11))
End Sub

Waar en hoe voeg ik 'unprotect en protect' toe ?

grtz!

MarcF · « **Reactie #3 Gepost op:** 19 maart 2021, 12:59:27 »

Opgelost!

RedHead · « **Reactie #4 Gepost op:** 19 maart 2021, 13:15:49 »

Fijn dat het is opgelost en welkom op het forum.

Kijk ook 'ns naar de nettere oplossing met het ThisWorkbook.open event. Daar komt dan zoiets....
Sheets("naam van jouw sheet").protect UserInterfaceOnly:= True

mvdvlist · « **Reactie #5 Gepost op:** 20 maart 2021, 20:33:10 »

Toch is het veiliger om dit in de module te doen. Dan wordt namelijk ook direct na uirtvoeren van de module weer beveiligd.

Probeer dit eens:

Sub legecel()
Worksheets("JeNaam").UnProtect "evt wachtwoord tussen aanhalingstekens"
Application.Goto Columns(5).Find(Cells.SpecialCells(11))
Worksheets("JeNaam").Protect "evt wachtwoord tussen aanhalingstekens"
End Sub

Het wachtwoord mag je weglaten, maar dan kan iedereen de beveiliging opheffen...

RedHead · « **Reactie #6 Gepost op:** 20 maart 2021, 21:41:58 »

Mvdvlist, het lijkt mij zéker niet veiliger om je password in een VBA module achter te laten. En waarom zou je ook? Met de UserInterfaceOnly mag de programmatuur alles doen waar een gebruiker dat niet mag. Daarbij laat je dus ook nergens een password zichtbaar achter.

Maar goed, ieder zijn (M/V) eigen favoriete methode hè?

SoftAid · « **Reactie #7 Gepost op:** 20 maart 2021, 21:49:26 »

Is het mogelijk dat beveiligen van een Excel-bestand (bijna) niet mogelijk is.
Als TS dit werkblad wenst te beveiligen tegen foute invoer, tja dan kan het.
Je kan het uiterste er uit halen met de code van RedHead, en deze toepassen op alle werkbladen.
Dan lijkt het op deze:

Code: [Selecteer]

Private Sub Workbook_Open()
Dim wSheet As Worksheet
	For Each wSheet In Worksheets
		wSheet.Protect Password:="Secret", UserInterFaceOnly:=True
Next wSheet
End Sub

Zo kan je geen Sheets toevoegen om op die manier de VBA-editor te openen, en het wachtwoord te lezen.

Niet dat dit waterdicht is, maar zoals al zei, kan het wel waterdicht zijn?

Groeten,

SoftAid

Montagnard · « **Reactie #8 Gepost op:** 21 maart 2021, 07:59:00 »

Citaat van: SoftAid op 20 maart 2021, 21:49:26

Is het mogelijk dat beveiligen van een Excel-bestand (bijna) niet mogelijk is.
SoftAid

ik ben ooit eens toen ik nog werkte een wachtwoord vergeten van een Excel bestand , eigenlijk was het een redelijk belangrijk bestand voor mij dus vroeg ik iedereen om raad , een "IT'er" van op "den bureau" nam het bestand mee en een kwartierke later was ie daar terug met het wachtwoord ofwel was het verwijderd , dat weet ik niet meer maar in ieder geval kon ik mijn bestand weer gebruiken....

Mvg,
Montagnard.

SoftAid · « **Reactie #9 Gepost op:** 21 maart 2021, 12:46:30 »

De vraag van TS is beantwoord, dus denk ik dat we dit topic als opgelost mogen beschouwen.

Verder ingaan op (het opheffen van) beveiliging van (Excel) documenten lijkt me niet evident, omdat we met bepaalde antwoorden, andere reacties (en tools/methodes) kunnen naar boven brengen die schadelijk kunnen zijn.

Reacties hoe je een Excel-bestand zo maximaal mogelijk kan beveiligen zijn natuurlijk steeds welkom, liefst met een (versleuteld) voorbeeldbestandje

SoftAid

Montagnard · « **Reactie #10 Gepost op:** 21 maart 2021, 14:51:56 »

heb dit topic nog eens van in het begin doorgenomen en TS stelt in zijn 1ste post dat ie geen macro kan uitvoeren als er een werkblad beveiliging is ?

in mijn "Budget" programma (bijgesloten) is er een werkblad beveiliging maar de beide macro's (valideren) en (afsluiten , via de € afbeelding links boven) werken wél ?
en ik heb op die beveiliging nu ook eens een paswoord gezet , alsook op de VBA code , ben dus benieuwd of dit zomaar te "kraken" is ? het paswoord is niet té moeilijk gemaakt , kan natuurlijk een stuk ingewikkelder gemaakt worden.

ik ben benieuwd ?

Mvg,
Montagnard.

SoftAid · « **Reactie #11 Gepost op:** 21 maart 2021, 15:44:18 »

Hallo Montagnard,

is bijlage open?

SoftAid

Montagnard · « **Reactie #12 Gepost op:** 21 maart 2021, 15:48:42 »

denk het niet......heb zowel geprobeerd om blad beveiliging op te heffen als aan de vba code te geraken , zie afbeeldingen...
Mvg,
Montagnard.

SoftAid · « **Reactie #13 Gepost op:** 21 maart 2021, 16:45:27 »

Hallo Arnold,

Nee, geraak er nog niet in. Wel in je werkblad Sheet1 maar dan is ook de 95% van de data "partitto", en dat kan niet de bedoeling zijn...

2016 is al beter beveiligd dan mijn oude 2007.
Ik probeer het later toch nog wel eens....
Vandaag te veel werk aan het forum zelf (Spring update

)

Groeten,

SoftAid

Montagnard · « **Reactie #14 Gepost op:** 21 maart 2021, 16:47:43 »

Citaat van: SoftAid op 21 maart 2021, 16:45:27

2016 is al beter beveiligd dan mijn oude 2007.
SoftAid

nog altijd geen nieuwere versie ?

Montagnard.

Help!

Menu

Hulp bij posten

Zoeken

Recente topics