• 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.

Verbergen rijen meerdere sheets

  • Onderwerp starter Onderwerp starter CRUZ2
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

CRUZ2

Gebruiker
Lid geworden
4 jul 2008
Berichten
41
Beste Excel leden,

Ik ben met een excel bestand bezig die de volgende macro moet krijgen maar ik weet niet hoe ik hem moet schrijven.
Ik heb de ingredienten wel maar niet het proces.

Omschrijving macro
Op blad1,2 en 3 moeten de rijen die rood gekleurde cellen bevatten verborgen zijn.
Deze mogen weer zichtbaar worden als het juiste wachtwoord word ingevuld.
Echter blad 2 en 3 zijn verborgen sheets die gekopierd worden dmv een macro in blad 1

Bekende gegevens die altijd het zelfde zijn
Rijen op de bladen zijn altijd het zelfde
De naam van blad 1 blijft ook altijd het zelfde
bladen 2 en 3 krijgen een toevoeging (1) of ... naarmate ze door gekopierd worden.
Maar de rijnummers van deze cellen blijven altijd het zelfde.

Wie kan mij helpen deze formule te maken?
Hij moet tussen de volgende regels komen

Code:
Private Sub OK_Click()
If TextBox1.Value = "TSOT" Then
blad1!Rows("92:98").EntireRow.Hidden = True
blad2!Rows("183:185").EntireRow.Hidden = True
blad2!Rows("242").EntireRow.Hidden = True
blad3!Rows("261:276").EntireRow.Hidden = True
UserForm2.Hide
Else
MsgBox "Verkeerd wachtwoord"
Me.TextBox1 = ""
blad1!Rows("92:98").EntireRow.Hidden = True
blad2!Rows("183:185").EntireRow.Hidden = True
blad2!Rows("242").EntireRow.Hidden = True
blad3!Rows("261:276").EntireRow.Hidden = True
UserForm2.Hide
End If
End Sub

Ik weet niet hoe hij naar een deel van de sheet naam kijkt in deze formule of verwijst naar een bepaald blad.

Alvast bedankt.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan