Notifikationer

Markér alle som læst Log ud

banazmi Nybegynder

31. marts 2004 - 14:54 Der er 7 kommentarer og
1 løsning

Beskyttesle af flere ark

jeg har en fil med mange ark. Jeg vil godt beskytte dem på en gang jeg bruger denne kode, men det virker kun på den sidste ark. Er der en der kan hjælpe mig med det.
Windows("dagsseddel_BO_april04_A_K.xls").Activate
Sheets("bera").Select
Sheets("bith").Select
Sheets("bisp").Select
Sheets("brra").Select
Sheets("brny").Select
Sheets("chju").Select
Sheets("doho").Select
Sheets("dokr").Select
Sheets("ercl").Select
Sheets("ibhe").Select
Sheets("indu").Select
Sheets("ivho").Select
Sheets("jahe").Select
Sheets("jeer").Select
Sheets("jero").Select
Sheets("jesa").Select
Sheets("jewa").Select
Sheets("jlma").Select
Sheets("jest").Select
Sheets("jifr").Select
Sheets("jonny").Select
Sheets("kaol").Select
Sheets("kecz").Select
Sheets("kiha").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

Synes godt om

stewen Praktikant

31. marts 2004 - 15:23 #1

Sheets.Select

Synes godt om

b_hansen Novice

31. marts 2004 - 15:26 #2

Jeg bruger nedenstående rutine, når jeg skal beskytte alle ark

Sub Beskyt_ark()
With ActiveWorkbook
For Each ws In ActiveWorkbook.Worksheets
ActiveWorkbook.Sheets(ws.Name).Protect Password:="xxxx"
Next
End With
End Sub

Synes godt om

banazmi Nybegynder

31. marts 2004 - 15:37 #3

ja men det er ikke alle ark i filen der skal beskyttes.

Synes godt om

b_hansen Novice

31. marts 2004 - 15:42 #4

Du kan sagtens benytte din nuværende kode. Du skal bare kopiere den sidste linie ind efter hver Sheets().select

som koden er nu, virker den kun på det sidste ark, da du bruger Activesheet, og der er jo kun ét ark aktivt.

Synes godt om

banazmi Nybegynder

31. marts 2004 - 15:45 #5

Stewen: Kan du forklare lidt mere om dit forslag. tak

Synes godt om

stewen Praktikant

31. marts 2004 - 15:47 #6

næ, det var egentlig bare en markering af samtlige sheets!

Synes godt om

b_hansen Novice

31. marts 2004 - 15:51 #7

Windows("dagsseddel_BO_april04_A_K.xls").Activate
Sheets("bera").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("bith").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("bisp").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("brra").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("brny").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("chju").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("doho").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("dokr").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("ercl").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("ibhe").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("indu").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("ivho").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("jahe").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("jeer").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("jero").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("jesa").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("jewa").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("jlma").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("jest").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("jifr").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("jonny").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("kaol").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("kecz").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("kiha").Select

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Synes godt om

banazmi Nybegynder

31. marts 2004 - 15:55 #8

Tak for hjælpen.

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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
Ændre tal i en celle Af xvid i Excel	1	04/09/202616:05	04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel	7	31/08/202610:24	04/09/202602:08
problem med mailbesked Af Pestilensen i Excel	3	24/08/202611:16	28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel	18	17/08/202615:14	05/09/202622:04
Gemme største værdi Af Lemming@privat.dk i Excel	2	07/08/202622:13	08/08/202609:03

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS