• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

beveiliging tegen starten macro

  • Onderwerp starter Onderwerp starter mbn
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.
M

mbn

Gebruiker
Lid geworden
20 mrt 2007
Berichten
62
Ik heb onder een knop een macro staan. Deze macro mag alleen bedienbaar zijn nadat er in een bepaalde cel de waarde 1 staat (dit is de uitkomst van een berekening).

Hoe moet dat?

Gr Andre
 
Wigi zei:
Pierre

dit is iets beter:

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    CommandButton1.Enabled = (Range("A1") = 1)
End Sub

Wigi
Klik om te vergroten...

Ik heb de code in this workbook gezet

Private Sub Worksheet_Invoerblad2(ByVal Target As Range)
oke.Enabled = (Range("A1") = 1)
End Sub

Daarbij is Invoerblad2 het werblad en oke de naam die in de knop staat of moet dat de naam wezen van de macro die geblokkeerd moet worden?

Gr Andre
 
Je moet dit gebruiken zoals ik al eerder aangaf:

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    CommandButton1.Enabled = (Range("A1") = 1)
End Sub

oke is de naam van de knop.

"Ik heb de code in this workbook gezet"

Dag mag daar niet staan. Je moet de code plakken in de module van het werkblad waar je het nodig hebt. In jouw geval, Invoerblad2.

Wigi
 
Wigi,

Knap gedaan, hoe korter hoe beter niet waar?

Pierre
 
Wigi zei:
Je moet dit gebruiken zoals ik al eerder aangaf:

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    CommandButton1.Enabled = (Range("A1") = 1)
End Sub

oke is de naam van de knop.

"Ik heb de code in this workbook gezet"

Dag mag daar niet staan. Je moet de code plakken in de module van het werkblad waar je het nodig hebt. In jouw geval, Invoerblad2.

Wigi
Klik om te vergroten...

Ik ben hier helaas nog niet goed genoeg in, al wou ik dat graag.
Je zegt plak het in de module van het werkblad (Invoerblad2). Welke module bedoel je?
Bedoel je de macro die onder de knop zit?
Je hebt CommandButton1 in je code staan, is dit iets specifieks of meot hier de naam van mijn knop (oke) komen te staan?

Gr Andre
 
Vervang CommandButton1 door oke

In VBA, in de Project Explorer bij je bestandje, zie je toch staan:

Blad1 (Invoerblad2)

of iets dergelijks. (de bladnaam Blad1 kan verschillen)

Dubbelklik daarop en plak de code.

Nu duidelijk?

Wigi
 
Wigi zei:
Vervang CommandButton1 door oke

In VBA, in de Project Explorer bij je bestandje, zie je toch staan:

Blad1 (Invoerblad2)

of iets dergelijks. (de bladnaam Blad1 kan verschillen)

Dubbelklik daarop en plak de code.

Nu duidelijk?

Wigi
Klik om te vergroten...

Ik heb lang gezocht maar heb nu gevonden waar ik die code moest plakken. Echter hij komt met foutmelding dat de knop niet goed is. Misschien maak ik de knop niet goed aan? Ik zag in het bestandje van die ander dat ik niets met de knop kon. Ik kon met de rechter muisknop ook niets kiezen, bv de te starten macro toevoegen. Doe ik iets fout?

gr Andre
 
Ik heb het gevonden. Je moest inderdaad de naam van je marco in de vba code van de knop plaatsen.

Bedankt allemaal
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan