I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Du kæmper nok videre med projektet. Jeg mener du kan løse problemet på følgende måde
- tryk Alt-F11 for at starte VBA-editoren - i vinduet i venstre side af skærmen, skal du så under navnet på dit regneark (står med fede typer efter VBA-Projec), finde "ThisWorkBook" (står efter navnene på alle dine faneblade). Dobbeltklik på "ThisWorkBook" - Kopier nedenstående ind i "ThisWorkBook"
Private Sub Workbook_Open() Worksheets("1 spilledag").EnableSelection = xlUnlockedCells End Sub
- Luk VBA-editoren - Beskyt regnearket (Menuen funktioner) - Gem og luk regnearket og åbn det igen.
Nu kan du kun få adgang til celler, der ikke er beskyttet.
For at makroerne skal virke, SKAL de celler som de arbejder med være ulåste. Med den ovenfor beskrevne metode, vil disse celler også kunne vælges.
Du skal derfor sørge for at de nævnte celler ikke låses ved aktivering af arkbeskyttelsen, og så skal du bruge nedenstående funktion i stedet for den som jeg foreslog ovenfor (eneste forskel er konstanten, der angiver hvad der skal være adgang til når arket er beskyttet).
Private Sub Workbook_Open() Worksheets("1 spilledag").EnableSelection = xlNoSelection End Sub
Sjap -> Lidt udbygget, så den kan køre makroerne der hører til knapperne Protect userinterfaceonly:=True giver adgang til arket for makroerne
Private Sub Workbook_Open() Worksheets("1 spilledag").EnableSelection = xlNoSelection Worksheets("1 spilledag").Protect userinterfaceonly:=True End Sub
Det er alle der der små detaljer, der ikke lige bliver brugt så tit, så man glemmer dem til næste gang nogen spørger. Godt vi har har Eksperten - og godt vi har bak (blandt mange andre) ;0)
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.