Avatar billede s_h_m Nybegynder
13. februar 2008 - 14:31 Der er 2 kommentarer og
1 løsning

Lås ark og diagram med macro

Jeg har fundet følgende kode til at låse alle ark:

Sub protecting()
Dim s As Worksheet
For Each s In ActiveWorkbook.Sheets
  s.Protect "password"
Next
End Sub

Koden fungerer fint, men der opstår et problem når regnearket indeholder et diagram. Når koden når til diagrammet returnerer den en "run-time 13" fejl.

Kan makroen udbygges til også at finde og låse diagrammer?
Avatar billede jkrons Professor
13. februar 2008 - 15:29 #1
Prøv med

Sub protecting()
Dim s As Variant
For Each s In ActiveWorkbook.Sheets
  s.Protect "password"
Next
End Sub
Avatar billede s_h_m Nybegynder
13. februar 2008 - 16:21 #2
Perfekt - smid et svar.

Havde kigget lidt i hjælp, og der stod noget med Integer, Variant osv., men kunne ikke lige gennemskue hvor og hvordan.
Så kan jeg godt holde fyraften, nu har jeg lært noget nyt i dag  :o)
Avatar billede jkrons Professor
13. februar 2008 - 16:24 #3
Velbekomme. Problemet er, at Worksheet kun omfatter regneark, ikke diagramark.
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