VBA beveiliging

[Roma]

Beste,
Kan je met een macro de VBA beveiliging opheffen.
Zo ja wat is dan de macro
Alvast bedankt

 

[OctaFish]

Bedoel je de beveiliging van het VBA venster? Wat denk je zelf (even logisch nadenken )?

 

[Warme bakkertje]

Er bestaat code om zoiets te doen, maar ik denk niet dat het de bedoeling van dit forum is om deze hier te verspreiden.
Wie dan ook deze beveiliging heeft ingesteld zal daar wel z'n goede redenen voor gehad hebben.

 

[Roma]

Beste Rudi,
Bedankt voor je reactie.
Wat is de bedoeling: Ik heb een aantal formulieren in een bestand Na het verstrijken van de datum moet een formulier uit het bestand verwijderd worden. Uiteraard heb ik de toegangscode van het VBAproject.

 

[Warme bakkertje]

Wat bedoel je met formulieren, Werkbladen ????
Je zal toch het een en ander veel duidelijker moet verklaren want tot op heden klinkt dit alles als Chinees voor mij.

 

[Roma]

Ik heb een formule om een UserForm te verwijderen (UserForm1)

Sub verwijderUserform()
Dim VBComp As Object
 Set VBComp = ThisWorkbook.VBProject.VBComponents("UserForm1")
 ThisWorkbook.VBProject.VBComponents.Remove VBComp
End Sub

Ik kan deze niet verwijderen omdat ik mijn VBAproject heb beveiligd. Dat is het probleem(pje)

 

[snb]

Waarom wil je userforms uit een bestand halen ?

Sub M_snb()
 with ThisWorkbook.VBProject
    .VBComponents.remove .VBComponents("UserForm1")
 end with
End Sub

 

[Roma]

En nu als het VBAproject beveiligd is? (ik heb de code)

 

[snb]

Waarom ? Daar zijn waarschijnlijk eenvoudiger oplossingen voor.

 

[Warme bakkertje]

Ik heb eens rondgekeken en dit is geklooi van het hoogste niveau en zeker niet geschikt voor business-niveau.
Ik heb een code gevonden maar die moet gedraaid worden in een extern bestand, opent je beveiligd bestand en vult het paswoord in en geeft dan de VBEditor vrij.
Dan kan je de nodige wijzigingen aanbrengen en project terug beveiligen, alles opslaan en sluiten.
Dit is dus niet werkbaar.

 

[snb]

@WB

Als een userform na een bepaalde datum niet meer zou moeten werken kan dat in de initialize code van het userform zelf opgenomen worden.

 

[Roma]

Beste Rudi,
Bedankt voor deze zeer nuttige info. Ik weet nu waar ik aan toe ben en ga een andere manier zoeken om het op te lossen.
Nogmaals bedankt

 

[Warme bakkertje]

@ snb

Het was dan ook mijn bedoeling om een sterk ontradend antwoord te formuleren om alzo TS te bewegen een andere oplossing te zoeken.

@ Roma

Het voorstel van snb om het betreffende formulier op non-actief te zetten is zeker het overwegen waard, voor de formulieren zelf is het handmatig verwijderen de enige logische en doenbare oplossing denk ik

 

[Roma]

@snb en @ Rudi
Nogmaals bedankt voor jullie antwoorden.

Hoe kan ik kan initialize code in userform zetten?

 

[OctaFish]

Kijk eens in de gebeurtenis van je formulier; daar zit een Initialize bij.

Private Sub UserForm_Initialize()
'Hier de code
End Sub

 

[Roma]

dank