CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

Nummee Mester

04. oktober 2018 - 20:45 Der er 5 kommentarer og
1 løsning

Makro og låste celler

Jeg er nu blevet færdig med mit time regnskab til min søn.

Jeg har lavet nogen knapper og tilføjet en makro til hver af dem.

Problemet er at i ark "2018" har jeg låst nogen af cellerne her kommer der en run-time error '1004' når jeg trykke på en af de 3 knapper jeg har lavet hvordan løses dette ?

I ark '2019' her virker det når cellerne ikke er låst det retter jeg når jeg har fået løst problemet med låste celler i ark '2018' da ark '2019' skal køre på samme måde som ark '2018' :-)

Hentes her https://www.clandisa.dk/god.xlsx

Synes godt om

excelent Ekspert

04. oktober 2018 - 21:00 #1

Vi mangler lige noget vba kode
du skal gemme filen med aktive makroer .god.xlsm

Synes godt om

Nummee Mester

04. oktober 2018 - 22:20 #2

Så den gemt med aktive makroer

Håber det er den her kode du mener

Sub VisAlt()
Columns("D:Q").Select
Range("D2").Activate
Selection.EntireColumn.Hidden = True
Selection.EntireColumn.Hidden = False
Range("A1:C1").Select
End Sub
Sub Lidl()
Columns("J:J").Select
Range("J2").Activate
Selection.EntireColumn.Hidden = False
Columns("I:I").Select
Range("I2").Activate
Selection.EntireColumn.Hidden = False
Columns("H:H").Select
Range("H2").Activate
Selection.EntireColumn.Hidden = False
Columns("G:G").Select
Range("G2").Activate
Selection.EntireColumn.Hidden = False
Columns("F:F").Select
Range("F2").Activate
Selection.EntireColumn.Hidden = False
Columns("E:E").Select
Range("E2").Activate
Selection.EntireColumn.Hidden = False
Columns("D:D").Select
Range("D2").Activate
Selection.EntireColumn.Hidden = False
Columns("K:Q").Select
Range("K2").Activate
Selection.EntireColumn.Hidden = True
Range("A1:C1").Select
End Sub
Sub Matas()
Columns("D:J").Select
Range("D2").Activate
Selection.EntireColumn.Hidden = True
Columns("Q:Q").Select
Range("Q2").Activate
Selection.EntireColumn.Hidden = False
Columns("P:P").Select
Range("P2").Activate
Selection.EntireColumn.Hidden = False
Columns("O:O").Select
Range("O2").Activate
Selection.EntireColumn.Hidden = False
Columns("N:N").Select
Range("N2").Activate
Selection.EntireColumn.Hidden = False
Columns("M:M").Select
Range("M2").Activate
Selection.EntireColumn.Hidden = False
Columns("L:L").Select
Range("L2").Activate
Selection.EntireColumn.Hidden = False
Columns("K:K").Select
Range("K2").Activate
Selection.EntireColumn.Hidden = False
Range("A1:C1").Select
End Sub

Synes godt om

Nummee Mester

04. oktober 2018 - 22:21 #3

https://www.clandisa.dk/god.xlsm

Synes godt om

excelent Ekspert

04. oktober 2018 - 23:06 #4

Udskift dine 3 koder med disse 3

Sub VisAlt()
ActiveSheet.Unprotect Password:="dit kodeord"
Columns("D:Q").EntireColumn.Hidden = False
Range("A1").Select
ActiveSheet.Protect Password:="dit kodeord"
End Sub

Sub Lidl()
ActiveSheet.Unprotect Password:="dit kodeord"
Columns("D:J").EntireColumn.Hidden = False
Columns("K:Q").EntireColumn.Hidden = True
Range("A1").Select
ActiveSheet.Protect Password:="dit kodeord"
End Sub

Sub Matas()
ActiveSheet.Unprotect Password:="dit kodeord"
Columns("D:J").EntireColumn.Hidden = True
Columns("K:Q").EntireColumn.Hidden = False
Range("A1").Select
ActiveSheet.Protect Password:="dit kodeord"
End Sub

Ret "dit kodeord" til dit aktuelle kodeord 2 steder i hver sub

Synes godt om

store-morten Ekspert

04. oktober 2018 - 23:15 #5

https://www.dropbox.com/s/gs09p7yposg03cd/Ogs%C3%A5%20God.xlsm?dl=0

med afkortet kode:

Sub VisAlt()
ActiveSheet.Unprotect
Columns("D:Q").EntireColumn.Hidden = False
Range("A1:C1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Sub Lidl()
ActiveSheet.Unprotect
Columns("J:J").EntireColumn.Hidden = False
Columns("I:D").EntireColumn.Hidden = False
Columns("K:Q").EntireColumn.Hidden = True
Range("A1:C1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Sub Matas()
ActiveSheet.Unprotect
Columns("D:J").EntireColumn.Hidden = True
Columns("Q:K").EntireColumn.Hidden = False
Range("A1:C1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Synes godt om

Nummee Mester

05. oktober 2018 - 02:08 #6

Tak jeg bruger det første som løsning så skal han ikke sidde og skrive password hver gang.

Er det muligt de knapper kan flyde med når man scroller ned ad siden ?

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

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Opdater et ark Af lurup i Excel	1	I går 22:23	I dag 08:34
Dato skema Af Ninna i Excel	2	I går 14:58	I dag 10:20
Betinget formatering Af boro23 i Excel	2	I går 10:58	I dag 07:14
Problem med beregning af alder udfra cpr-nummer; formel giver talfejl pga. nul i CPR Af HR Excel-bruger i Excel	6	16/07/202416:31	17/07/202408:36
Sortering af data ud fra udvalgte kolonne nummere Af ul-pe i Excel	12	12/07/202410:12	12/07/202420:20

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