Køre makroer i beskyttet ark 03-11-09 17:50 : berpox 03-11-09 17:56 : Rosco40 03-11-09 18:04 : Rosco40 03-11-09 21:52 : Rosco40 05-11-09 19:46 : Flemming_Clausen 06-11-09 15:21 : Rosco40 09-11-09 12:35 : Flemming_Clausen

Køre makroer i beskyttet ark Fra : Flemming_Clausen Vist : 1517 gange 100 point Dato : 03-11-09 07:54

Hej Jeg kan ikke få Excel 2003 til at køre makroer i beskyttede ark, kan dette løses??? Disse makroer skjuler nogle rækker i andre ark, men i samme fil.

Kommentar Fra : berpox Dato : 03-11-09 17:50

Er det ikke et spørgsmål om makrosikkerhed? Jeg har lige beskyttet et ark - og det er da muligt at køre makroen jeg har i arket. Jeg har sat makrosikkerheden til "mellem" - så spørges der nemlig om arket skal åbnes med makroer, når arket åbnes....

Kommentar Fra : Rosco40 Dato : 03-11-09 17:56

ActiveSheet.unProtect Din kode.. ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Hvis arket skal låses med kode bruges denne. ActiveSheet.Unprotect Password:="1234" Din kode ActiveSheet.Protect Password:="1234"

Kommentar Fra : Rosco40 Dato : 03-11-09 18:04

Hvis du vil henvise til et bestemt ark, brug denne. Sheets("Ark1").UnProtect Din kode.... Sheets("Ark1").Protect og med kode. Sheets("Ark1").Unprotect Password:="1234" Din kode Sheets("Ark1").Protect Password:="1234"

Kommentar Fra : Rosco40 Dato : 03-11-09 21:52

Til dit gamle spg. : flere kriterier i Excel =SUMPRODUKT((A1:A5="A")*(B1:B5=1))

Kommentar Fra : Flemming_Clausen Dato : 05-11-09 19:46

når jeg kører denne makro, så beder den om en ny kode - dette er ikke meningen da det KUN er mig der skal kunne rette i regnearket. Når regnearket er låst kan jeg godt selv bruge Autofilter, men det er som om at makroen ikke kan? Sikkerhedsnivaet er sat til lav. Min makro ser nogenlunde sådanne ud: ActiveWindow.ScrollWorkbookTabs Position:=xlLast Sheets("20").Select Selection.AutoFilter Field:=1, Criteria1:="<>" Sheets("19").Select Selection.AutoFilter Field:=1, Criteria1:="<>"

Accepteret svar Fra : Rosco40 Modtaget 100 point Dato : 06-11-09 15:21

Prøv denne. ActiveWindow.ScrollWorkbookTabs Position:=xlLast Sheets("20").Unprotect Password:="1234" Sheets("20").Select Selection.AutoFilter Field:=1, Criteria1:="<>" Sheets("19").Unprotect Password:="1234" Sheets("19").Select Selection.AutoFilter Field:=1, Criteria1:="<>" Sheets("20").Protect Password:="1234" Sheets("19").Protect Password:="1234"

Godkendelse af svar Fra : Flemming_Clausen Dato : 09-11-09 12:35

Tak for svaret Rosco40. Det er fa.... nemt når man kan , mange tak for hjælpen.

Du har følgende muligheder

Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål. Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.