*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Wachtwoord voor uitvoeren sub  (gelezen 1919 keer)

0 leden en 1 gast bekijken dit topic.

Offline Moo

  • Ambassadeur
  • *****
  • Berichten: 1.165
  • Geslacht: Man
  • Waar het hart van vol is, loopt de tekst van over.
Wachtwoord voor uitvoeren sub
« Gepost op: 17 maart 2008, 19:58:19 »
Ik wil graag een eenvoudige paswoordbeveiliging op het uitvoeren van een sub zetten.

Het gaat om deze sub:
Code: [Selecteer]
Private Sub CommandButton31_Click()
' tonen Macro
    Range("A2:G2000").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("A2").Select
End Sub
Ik wil daarmee een range celvulling wegnemen. Deze range is zwart en die sub maakt het dan zonder celvulling.
Wie heeft hier wat voor?
Gelogd
ASRock P43 Pro/USB3, Intel 2 Quad cpu Q9550 2.83GHz, 2840 MHz, NVIDIA GeForce GTS 450, Win7 oem 64bit pre NL, Realtek, HD:1tb, 4 Gb DDR3, KIS, Firefox, Ms-Outlook 2007, Telenet

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.284
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Wachtwoord voor uitvoeren sub
« Reactie #1 Gepost op: 18 maart 2008, 15:10:38 »
Moo, als het héél simpel mag, zou dit een oplossing kunnen zijn....  ;)
Code: [Selecteer]
Private Sub CommandButton31_Click()
   
    If Application.InputBox("Geef paswoord...", "Beveiligd", "xxxxx", , , , , 3) = "moo" Then
        Range("A2:G2000").Interior.ColorIndex = xlNone
    End If

End Sub
Ik heb ook je With-blokje wat ingekort. Dit werkt directer.

Groet, Leo
Gelogd
______________________________

Groet, Leo

Offline Moo

  • Ambassadeur
  • *****
  • Berichten: 1.165
  • Geslacht: Man
  • Waar het hart van vol is, loopt de tekst van over.
Re: Wachtwoord voor uitvoeren sub
« Reactie #2 Gepost op: 19 maart 2008, 15:52:15 »
Weer dank Leo, dat is wat ik zocht.
Gelogd
ASRock P43 Pro/USB3, Intel 2 Quad cpu Q9550 2.83GHz, 2840 MHz, NVIDIA GeForce GTS 450, Win7 oem 64bit pre NL, Realtek, HD:1tb, 4 Gb DDR3, KIS, Firefox, Ms-Outlook 2007, Telenet
Pagina's: [1]   Omhoog
 


www.combell.com