Søg
Avatar billede lundjepsen Praktikant
20. november 2007 - 21:17 Der er 7 kommentarer og
1 løsning

fjern flere ark beskyttelse og lås dem igen

hej.
Hvordan låser man alle ark op på en gang, i een komando
og låser dem igen i een komando ??

Sheets.Unprotect Password:="pw"
Sheets.Protect Password:="pw"
Avatar billede jkrons Professor
20. november 2007 - 21:32 #1
Du kan gøre det i et loop:

For Each s In ActiveWorkbook.Sheets
s.Unprotect Password:="pw"
Next s

Det samem med protect.
Avatar billede lundjepsen Praktikant
20. november 2007 - 21:40 #2
skal man ikke definere "s" ?
Avatar billede jkrons Professor
20. november 2007 - 21:51 #3
Nope. Sætningen "For Each s In ActiveWorkbook.Sheets" erklærer at s repræsenterer hvert ark i mappen.
Avatar billede lundjepsen Praktikant
20. november 2007 - 22:00 #4
kanon jkrons, tusinde tak
Avatar billede lundjepsen Praktikant
20. november 2007 - 22:00 #5
øøhh jkron så skal DU svare,,
Avatar billede jkrons Professor
20. november 2007 - 23:19 #6
Og svar kommer her :-)
Avatar billede Flemming Vadet - Smart Office DK Professor
21. november 2007 - 20:21 #7
Hvis man kører med Option Explicit (som man selvfølgelig gør - hihi) så kræves det at s defineres...

Sub Dims()
    Dim s As Worksheet

    'jkrons kode

End Sub
Avatar billede lundjepsen Praktikant
22. november 2007 - 21:12 #8
Tak flemmingdahl
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Finde mindsteværdi som er større end 00:00:00 Af Peder Lund Nielsen i Excel 6 20/10/202511:14 20/10/202518:52
HVIS + LOPSLAG til flere værdier Af SQF i Excel 4 09/10/202510:50 14/10/202516:09
Finde uger og dage mellem 2 datoer Af mefa i Excel 9 08/10/202519:21 10/10/202505:05
Excel Makroer programmering bit32 - bit64 Af bhh i Excel 3 01/10/202512:22 03/10/202513:32
Eliminer kendte Af andershl i Excel 1 30/09/202520:40 01/10/202512:54
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 02:16 Rensning af database med CCleaner Af Prevo i Andet software
I går 13:49 Køb af services Af DKKK i Sociale medier
21/1019:42 Har Messenger ændrer sig ? Af Ikke-ekspert i Chat & Messaging
21/1013:49 Vi kunne ikke installere denne opdatering, men du kan prøve igen (0x800f0991). Af Wombat i Windows
20/1011:14 Finde mindsteværdi som er større end 00:00:00 Af Peder Lund Nielsen i Excel
White papers
Flere white papers »