01. oktober 2002 - 13:25Der er
6 kommentarer og 2 løsninger
Kan skrivebeskyttet celle markeres.
Hej Eksperter! Jeg har en skabelon der ved hjælp af en Makro opretter det antal filer og det antal Ark jeg måtte ønske, det er bak der har stået fadder til Makroen, men mit spørgsmål er naturligvis åbent for alle.
Når jeg har oprettet en ny fil, ønsker jeg at hvert Ark skal være skivebeskyttet, bortset fra de celler jeg har valgt ikke at låse. Det funger perfekt ved hjælp af bl.a. følgende Makro:
Private Sub Workbook_Open() Dim sh As Worksheet For Each sh In ActiveWorkbook.Worksheets sh.Protect userinterfaceonly:=True sh.EnableSelection = xlUnlockedCells Next End Sub
Men når Arket er oprettet, kan jeg ikke se, hvor i Arket jeg befinder mig, her taler jeg om de celler der IKKE er skivebeskyttet, cellerne bliver ikke markeret, men fjerner jeg Arkbeskyttelse og beskytter det igen funger det fint?
Kan man i skabelon Makroen få den til at oprette en Adgangskode som skal bruges for at fjerne beskyttelse af Arket? mfj1
Du befinder dig i 1. ubeskyttede celle. denne er også markeret på sædvanlig vis. Hvis du låser arket op igen og beskytter det igen via menuen, kan din makro (linket til hjælp-filen) sikkert ikke fungere, da det er det sh.Protect userinterfaceonly:=True sørger for (altså kun lås på det en bruger kan pille ved, ikke lås på det en makro kan ændre)
Lidt noget sludder. Hvis du beskytter og ubeskytter via menuen er der intet problem. hvis du vil beskytte og ubeskytte via makro skal du bruge
ActiveSheet.Protect Password:="mfj", userinterfaceonly:=True til at beskytte med, da makroen sikkert ellers ikke kan køre. Flemmings forslag er ok bortset fra userinterfaceonly:=True, men han kan jo heller ikke vide at der skal køres makro der ændrer indholdet af en beskyttet celle.
Lige en ting mere: sh.EnableSelection = xlUnlockedCells gør jo netop at man overhovedet ikke kan markere celler der er beskyttede. Hvis du vil kunne det skal du fjerne linien igen.
Bak ! Undskyld det lidt forsinkede svar, men arbejdet tvang mig væk fra PC-en. Jeg befinder mig, som du skriver, i een ubeskyttede celle, denne er netop ikke markeret på sædvanlig vis, der er ingen forskel på om jeg klikker en gang i en beskyttede eller en ubeskyttede celle.
Det jeg gerne ville opnå med Flemmingdahl svar var at forhindre brugeren i at gå ind og ”Fjern Arkbeskyttelse” under Funktioner, for det kan de gøre i dag. Jeg har ikke ønske om at fjerne noget fra Makro for det funger perfekt, men man kan næsten ikke lade være med tænke på forbedringer, MEN DET MÅ OGSÅ HØRE OP på et tidspunkt. Mfj1
Bak! Det er sommetider en fordel at man forstår teksten inden man handle!!!!. Tak til dig og Flemmingdahl for hjælpen. Lig lige et svar så må Flemmingdahl og dig dele om points. Mfj1
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.
