Avatar billede axel21 Juniormester
14. maj 2015 - 22:08 Der er 2 kommentarer og
1 løsning

Hjælp til at låse ark i Excel/VB

Hej,

Jeg har en projektmappe hvor jeg har 54 faner (1 masterark og 53 ugeark).

Jeg vil gerne kunne låse allesammen op og i med VB på en gang.

Det tricky er at der skal være nogen celler man gerne må redigere i efter arkene er låst.

I Masterarket er det cellerne A9-A100 og i de resterende ark er det B8:V30.

Er dette muligt?

På forhånd tak
Jannik
Avatar billede jens48 Ekspert
15. maj 2015 - 00:32 #1
Prøv med disse 2 makroer:

Sub LaasAlle()
Dim WS As Worksheet
For Each WS In ActiveWorkbook.Worksheets
If WS.Name <> "Master" Then
WS.Select
WS.Unprotect Password:="Laast"
Range("B8:V30").Locked = False
    Selection.FormulaHidden = False
    WS.Protect Password:="Laast"
    Range("A1").Select
End If
Next
Worksheets("Master").Select
Worksheets("Master").Unprotect Password:="Laast"
Range("A9:A100").Select
    Selection.Locked = False
    Selection.FormulaHidden = False
    Worksheets("Master").Protect Password:="Laast"
Range("A1").Select
End Sub

Sub AabnAlle()
Dim WS As Worksheet
For Each WS In ActiveWorkbook.Worksheets
WS.Unprotect Password:="Laast"
Next
End Sub
Avatar billede axel21 Juniormester
17. maj 2015 - 22:45 #2
Hej Jens,

Den løsning spiller bare maks.

Mange tak herfra og smid et svar :-)
Avatar billede jens48 Ekspert
17. maj 2015 - 23:36 #3
Ok, du får 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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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