13. marts 2018 - 11:42Der er
21 kommentarer og 1 løsning
skjule og beskytte
Har behov for lidt excel hjælp igen :-)
Jeg har et ark hvor jeg gerne vil:
1. Beskytte flere kolonner så de ikke kan ændres. Dette kan jeg godt for til at virker, men når jeg så låser arket op for at foretage ændringer og gemmer det, er det ikke længere beskyttet når jeg åbner det op igen. Vil gerne at når jeg har ændret i arket og afsluttet med gem ændringer, så er det beskyttet.
2. For ikke at skulle have 2 ark kunne jeg godt tænke mig en kolonne som indeholder mine noter, denne kolonne skal dog kunne skjules og låses, da indholdet ikke ønskes delt med andre. Kan det lade sig gøre ? og igen sådan kolonnen som default er skjult og låst næste gang det åbnes.
1. Det bedste er at beskytte arket når filen åbnes. Du kan indsætte dette i ThisWorkbook Private Sub Workbook_Open() Worksheets("Sheet1").Protect End Sub
2. Er ikke helt sikker på udfordringen her, men du kan tilsvarende skjule en kolonne ved opstart Private Sub Workbook_Open() Worksheets("Sheet1").Unprotect Worksheets("Sheet1").Range("C1").EntireColumn.Hidden = True Worksheets("Sheet1").Protect End Sub
Hej - tusind tak for hurtig melding. Har dog brug for lidt hjælp til løsningen. Du siger jeg skal indsætte dette i ThisWorkbook. Er det i et nyt ark eller hvordan ? Har ikke arbejdet med makroer før så måske derfor. Nogle af kolonnerne må gerne kunne ændres uden at skulle taste password men synes det er uhensigtsmæssigt at jeg skal hele processen igennem hvergang jeg har haft arket låst op. Kan heller ikke helt greje hvor jeg skal angive password ? Beklager men er stadig mest basal bruger af excel.
Du finder "ThisWorkbook" i VBA editoren. Tryk ALT+F11 Så bør du kunne se ThisWorkbook ude til venstre. Dobbeltklik og sæt koden ind i vinduet til højre.
Password kan sættes på sådan her:
Private Sub Workbook_Open() Worksheets("Sheet1").Unprotect "password" Worksheets("Sheet1").Range("C1").EntireColumn.Hidden = True Worksheets("Sheet1").Protect "password" End Sub
Hej - så langt så godt. Har åbnet VBA editoren og klikket på det ark som det drejer sig om, (der er flere arik i xlsfilen) indsat teksten og afsluttet. Når jeg så vil gemme min xls fil kommer der en fejlmelding om at jege ikke kan gemme følgende projektmapper uden makroer *VB-projekt. ?? Kan heller ikke lige greje hvordan programmet ved hvilke kolonner som skal være låst mod redigering indtil jeg taster password og kan redigere. ?
Koden forholder sig ikke til hvad der skal kunne redigeres - det styres på den enkelte celle - alt er som default låst og hvad der skal være låst op sættes i egenskaberne for cellerne (det lød som om du havde styr på den del).
Hej - går udfra du mener "Denne_projektmappe" når du skriver ThisWorkbook ? Her kan jeg se mine ark samt nederste "Denne_projektmappe". Når jeg vælge denne og paster koden ind får jeg følgende melding når jeg forsøger at gemme. "Hvis du vil gemme en fil med disse funktioner, skal du klikke på Nej og derefter vælge en makrobaseret filtype på listen Filtype. Klik på Ja, hvis du fortsat vil gemme som en projektmappe uden makroer." Tak for din fil, men der sker ingenting når jeg forsøger at aktivere makroer. Hvis jeg trykker på Visual Basic kan jeg se hvor du har lagt koden, og tror det er samme sted.
Hej - så letter tågen :-) Den første del virker bortset fra at du blot kan vælge "fjern arkbeskyttelse" Men formoder så det var del 2 der skulle løse dette issue. Jeg har sat føglende ind under den første kode: Private Sub Workbook_Open() Worksheets("Sheet1").Unprotect "password" Worksheets("Sheet1").Range("C1").EntireColumn.Hidden = True Worksheets("Sheet1").Protect "password" End Sub sat det password ind jeg ønsker og ændret sheet1 til det aktuelle ark. Men nu får jeg så følgende fejl når jeg åbner arket: Compile error: Ambigous name detected: Workbook_open
jeg må lige sidde og forsøge lidt i aften - kommer nok lige retur i morgen er nemlig i tvivl om hvad du mener kun have én workbook_open. Men jeg arbejder videre på projektet i aften. takker indtil videre
Hej - har nu fjernet alt i ThisWorkbook så der nu kun står følgende: Private Sub Workbook_Open() Worksheets("bilflåde").Unprotect "password" Worksheets("bilflåde").Range("R1").EntireColumn.Hidden = True Worksheets("bilflåde").Protect "password" End Sub
Men jeg får følgende fejl: Run-time error '9': Subscript out of range. Den har fint nok skjult kolonne "R".
Haløjsa - nu virker det. Gav arket nyt navn uden Å om det var det ved jeg ikke. Password er så godt nok password nu, men det må blot være at skrive noget andet. Men overskriver denne kode den kode jeg beskyttede arket med oprindeligt ?
Hej igen - alt spiller nu, men har konstateret at mit autofilter ikke fungerer når jeg har låste kolonner. Er der mulighed for at brugere, udover de kan taste informationer i de ikke låste kolonner, kan benytte autofilter ?
Fantastisk - så spiller det! - takker mange gange.
Synes godt om
Ny brugerNybegynder
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.