Avatar billede leif Seniormester
08. januar 2008 - 17:29 Der er 5 kommentarer og
1 løsning

Lås alle på 1 gang

Hej,


Jeg har et excel dokument med 52 ark, kan jeg ikke låse dem alle sammen på 1 gang således jeg ikke skal skrive den samme adgangskode 104 gange ?


Når jeg højreklikker på det ene ark og vælger marker alle bliver muligheden for Lås ark fjernet :-(


En som kan hjælpe mig ?


/Leif
Avatar billede jkrons Professor
08. januar 2008 - 17:49 #1
Du er nødt til at gøre det med VBA.

Sub LaasAlt()
    For Each s in ActiveWorkbook.Sheets
          s.Protect Password:="bcde"
    Next s
End Sub
Avatar billede leif Seniormester
08. januar 2008 - 18:08 #2
Nu kommer jeg med det store spørgsmål, kan jeg låse dem alle op på 1 gang ?
Avatar billede jkrons Professor
08. januar 2008 - 18:20 #3
Ja, på næsten samme måde :-)

Sub LaasAltOp()
    For Each s In ActiveWorkbook.Sheets
          s.Unprotect Password:="bcde"
    Next s
End Sub
Avatar billede leif Seniormester
08. januar 2008 - 18:47 #4
:-)


Det kunne man næsten have sagt sig selv
Avatar billede leif Seniormester
08. januar 2008 - 19:02 #5
Smid et svar
Avatar billede jkrons Professor
08. januar 2008 - 23:06 #6
Her er et svar.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester