Blad zichtbaar maken met macro

[WIMLIN]

Ik heb een beveiligde werkmap met daarin een verborgen werkblad.

Dit blad wil ik zichtbaar maken vervolgens wat wijzigen, vervolgens dit blad weer verbergen. De werkmap weer beveiligen en het bestand opslaan is dit mogelijk.

Ik heb het geprobeerd met een macro op te slaan.

Maar het gaat fout op de eerste regel ActiveWorkbook.Unprotect

Sub BladPresentatieZichtbaarMaken()
'
' BladPresentatieZichtbaarMaken Macro
'
' Sneltoets: CTRL+z
'
Range("A1").Select
ActiveWorkbook.Unprotect
Sheets("Presentatie").Visible = True
Range("B4").Select
ActiveSheet.Unprotect
End Sub

 

[WinteE]

Dit soort handelingen is eenvoudig zelf te vinden. Zet de macrorecorder aan, verberg een werkblad en stop de macrorecorder.
In de VBA omgeving staat nu een module met daarin de cde die je nodig bent.

 

[WIMLIN]

Ik had zo al de macro opgenomen. Maar hij geeft er een foutmelding op.

 

[Haaren101]

Zit er een password op de protectie? Als dat zo is dan moet je het volgende toevoegen aan de unprotect: password="jouwpassword":

ActiveWorkbook.Unprotect Password = "jouwpassword"

Natuurlijk ook doen bij de unprotect van het sheet

Ron

 

[WIMLIN]

Range("A1").Select
ActiveWorkbook.Unprotect Password = "xxxx"
Sheets("Presentatie").Visible = True
Range("B4").Select
ActiveSheet.Unprotect
End Sub

Ook met deze uitbreiding lukt het nog niet.

Fout 1004

Het wachtwoord is onjuist. Controleer etc etc etc.

Misschien nog een kleine aanpassing

 

[Haaren101]

Fout 1004

Het wachtwoord is onjuist. Controleer etc etc etc.

Is toch een behoorlijk duidelijke foutmelding. Zit er een password op het workbook / worksheet?
Als dat er opzit dan moet op de "xxxx" plek het JUISTE password komen, dus ook al dan niet met hoofdletters

Ron

 

[WIMLIN]

Range("A1").Select
ActiveWorkbook.Unprotect (["XXX"])
Sheets("Presentatie").Visible = True
Range("B4").Select
ActiveSheet.Next.Select

Regel 2 is nu opgelost. Ik heb nu 2 bladen in mijn bestand. Ik wil nu naar het volgende blad. Ik zou dus denken met ActiveSheet.Next.Selct. Maar hier krijg ik wel weer foutmelding 1004. Het werkblad is presentatie is wel beveiligd. Maar ik moet er toch eerst naar toe kunnen gaan om de beveiliging er af te kunne halen.

 

[Haaren101]

Werkt prima bij mij
.next.select werkt alleen als er ook een next sheet is!
Waarom niet "Sheets("blad1").Select". Dan pak je altijd het sheet wat je hebben wilt

Ron

 

[WIMLIN]

Ron,

Het werkt super!!!

De oplossing was inderdaad sheets.("blad1") ...
Reuze bedankt.