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
Kombinere tekst og tal Af 1Dorte i Excel 3 I går 19:11 I går 23:01
Formel til opdeling Af Chortik1 i Excel 6 29/01/202508:25 30/01/202510:25
Anden mindste værdi i en række Af ABE15 i Excel 6 26/01/202516:26 27/01/202508:08
Betinget formatering - Ingen formatering hvis søgefeltet er tomt. Af Laugesen1 i Excel 5 24/01/202520:50 26/01/202514:41
En formel som kan regne minutter om til timer... Af Oswald1 i Excel 3 21/01/202512:02 21/01/202512:52
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 går 22:51 Android starter - og så sker der ikke mere Af kurtba i Android
I går 19:42 Valg af bærbar pc - MIL-STD certificeringer, vigtigt? Af Don G i PC
I går 19:11 Kombinere tekst og tal Af 1Dorte i Excel
I går 13:26 Monetoad.com redirects Af ractic i Browsere
30/0112:24 paragraftegnet Af Hyt vin i Word
White papers
Flere white papers »


Premium
Teaser billede
Bør du som CIO overveje exitplan fra de amerikanske cloud-leverandører efter Trump? Vi spørger Henning Mortensen
Læs mere »
Ateas nye Group CIO, Sara Amini, får 300 it-folk under sin kommando: Sætter nu gang i kæmpe it-transformation
Så meget vil nye cybersikkerheds-regler i energisektoren koste de danske virksomheder
App-udviklere går en hård tid i møde: Hele industrien står overfor store forandringer
Se alle »
Computerworld
Teaser billede
Webshop advarer: Dine kortoplysninger kan være stjålet
Læs mere »
Deepseek sender dine data direkte til Kina - disse oplysninger bliver indsamlet om dig
Test: På vinter-langtur med den ultimative el-VW
Lancering af nyt Apple-produkt rykker nærmere – kan blive årets største nyhed
Se alle »
CIO
Teaser billede
Sådan kom russiske hackere ind i lille vandværk i Tureby: “Det nytter ikke at forsøge at skjule noget,” siger formanden
Læs mere »
Efter Trump: Du bør som CIO få kigget på en exitplan for dine cloud-aftaler med amerikanske tech-kæmper
Her er fem europæiske alternativer til Microsoft 365
Her er årsagen til fyringer i Rigspolitiets it-afdeling: Disse projekter har trukket benene væk under økonomien
Se alle »
Job & Karriere
Teaser billede
Merete Søby klar med nyt top-job efter pludselig exit fra Schultz: Her er hendes nye job
Læs mere »
40 år gammelt dansk it-selskab fusionerer med hollandsk firma og skifter navn
Her er deres månedsløn: Så meget tjener CIO'erne i de danske regioner - den bedst lønnede får mere end digitaliseringsministeren
Dansk headhunter: Dette spørgsmål bliver jeg næsten altid stillet, når jeg forsøger at rekruttere it-folk
Se alle »
White paper
Teaser billede
SAP: Skab værdi og minimér omkostninger med effektiv dokumenthåndtering
Læs mere »
Sæt professionel døgnvagt på din it-infrastruktur
Sikkerhed gjort enkelt: Beskyt din virksomhed direkte i browseren
Sådan: Opgradér din printerløsning uden store investeringer
Se alle »

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