Opdracht knop beveiligen met een paswoord

[Scallebe]

Beste ontwikkelaars,

Ik wil mijn opdrachtknop beveiligen met een paswoord zodat alleen de persoon die hem moet gebruiken kan activeren.

Ik heb volgende code :

Private Sub CommandButton21_Click()

         Response = InputBox("Uw wachtwoord a.u.b.")
            If Response <> "12345" Then MsgBox "Je ingave was fout": Exit Sub
            End If

    ChDir "C:\Users\Pascal\Desktop\CCF 23-2-2015"
        Application.DisplayAlerts = False
            ActiveWorkbook.SaveAs Filename:="C:\Users\Pascal\Desktop\CCF 23-2-2015\Versie Kolonel.xlsm", _
                FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        Application.DisplayAlerts = True
        Application.DisplayAlerts = False
            ActiveWorkbook.ExclusiveAccess
        Application.DisplayAlerts = True
            ActiveWorkbook.Save
    MsgBox "Update geslaagd!!! Have a nice day."
End Sub

Ik krijg echter een foutmelding : Compileerfout : End If zonder blok If

Waar zit de fout?

Bedankt

Pascal

 

[Cobbe]

Die eerste End If is er te veel aan.

 

[Ad Becude]

Pascal,
Haal je End If maar eens weg.

 

[Scallebe]

Cobbe, Ad

Bedankt!

Het werkt.

Als jullie de tijd hebben zouden jullie even naar een extra vraag willen kijken van een vorige vraag : Koppelen van werkboeken

Er zijn namelijk problemen bij het bepalen van de .Range (lijn 10) de tweede .Range licht blauw op.

Ook bij het bepalen van de sheets in lijn 10 - nu is dat Apothekers - zou ik eigenlijk een kopij willen maken van verschillende sheets (9 om precies te zijn)

Moet ik voor iedere sheet een nieuwe lijn maken in mijn code of kan ik alle sheets invullen in lijn 10.

Idem voor de draaitabellen (lijn 17) Ik heb voor de 5 belangrijkste sheets een draaitabel en na het kopiëren van de data van de verschillende sheets zou hij dan alle draaitabellen moeten updaten.

Alvast bedankt voor de moeite.

Het paswoordprobleem is in ieder geval opgelost.

Greetz

Pascal