Avatar billede 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
Avatar billede excelent Ekspert
04. oktober 2018 - 21:00 #1
Vi mangler lige noget vba kode
du skal gemme filen med aktive makroer .god.xlsm
Avatar billede 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
Avatar billede Nummee Mester
04. oktober 2018 - 22:21 #3
Avatar billede 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
Avatar billede 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
Avatar billede 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 ?
Avatar billede 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.

Loading billede Opret Preview

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





CIO
Stort CIO-interview: Lemvigh-Müllers milliard-omsætning er blevet digital