CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
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
Stort udvalg af Excel kurser til alle niveauer og jobfunktioner
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Formler med Sum.hvis kommer med forkerte resultater Af Peder Lund Nielsen i Excel 1 I går 21:59 I dag 00:07
Problemer med at åbne filer i Google Drev Af TTA i Excel 0 I går 08:22 -
vCard æøå bliver til ? Af HHA i Excel 14 03/03/202512:02 03/03/202519:53
Hvordan genererer jeg 7 tilfældige værdier i 7 celler baseret på værdierne 1-7 Af martens i Excel 4 28/02/202515:55 01/03/202508:23
Negativ tid Af camsti i Excel 13 28/02/202500:39 I går 10:15
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
59 min siden Asus TUF VG34VQL3A viser sort i begge sider ved afspilning af Prime, HBO? Af klavil i Skærme
I går 21:59 Formler med Sum.hvis kommer med forkerte resultater Af Peder Lund Nielsen i Excel
I går 18:17 iPad: Sort slukke firkant Af goglov i iOS, iPhone & iPad
I går 17:31 Hvilke sange sang The Beatles til koncerten i K.B Hallen 1964 ? Af Ikke-ekspert i Diverse
I går 17:09 Lukke spørgsmål der ikke reageres på Af Uvanga i Forslag til ændringer
White papers
Flere white papers »


Premium
Teaser billede
Klar opfordring fra det norske datatilsyn: Du skal have en exitstrategi for amerikanske cloud-tjenester
Læs mere »
HP fyrer tusindvis af ansatte: 71 danske medarbejderes fremtid svæver i det uvisse
SKI afblæser rammeaftale til 3,4 milliarder kroner: Er nødt til at ændre en række forhold
Er godt i gang med at opgradere til Windows 11: Der er flere ting, som du kan lære af Satairs erfaringer
Se alle »
Computerworld
Teaser billede
Vi prøvekører den nye Tesla Model Y: Man kan sige hvad man vil om Elon Musk, men han kan saftsuseme godt bygge biler
Læs mere »
Flere millioner Chrome-brugere ramt af ondsindede udvidelser: Du skal selv afinstallere dem manuelt for at være beskyttet
Ny mikro-pc er mindre end en spillekonsol og byder på super-evner
Test: Nyt indendørs overvågningskamera har nogle snedige tricks gemt i softwarepakken
Se alle »
CIO
Teaser billede
Carsten advarede som it-sikkerhedschef om problemer og blev fyret: "Det endte med voksen-mobning af værste skuffe"
Læs mere »
Microsoft fuldender sit løfte om europæisk data-opbevaring – men der er en række undtagelser
Offentlige virksomheder hjemtager ejerskab af deres it: Her er årsagerne
Sådan gjorde Københavns Kommune klar til Windows 11 på 25.000 computere: "Vi har gjort det til en driftsopgave"
Se alle »
Job & Karriere
Teaser billede
40 år gammelt dansk it-selskab fusionerer med hollandsk firma og skifter navn
Læs mere »
Her er deres månedsløn: Så meget tjener CIO'erne i de danske regioner - den bedst lønnede får mere end digitaliseringsministeren
Microsoft fyrer de dårligst performende ansatte: Disse jobtitler bliver ramt
Carsten advarede som it-sikkerhedschef om problemer og blev fyret: "Det endte med voksen-mobning af værste skuffe"
Se alle »
White paper
Teaser billede
Sikkerhed gjort enkelt: Beskyt din virksomhed direkte i browseren
Læs mere »
TIDSBEGRÆNSET KAMPAGNE: Overvejer du at udskifte eller tilføje printere i din forretning? Vi kan tilbyde én eller flere maskiner GRATIS.
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »