Makro og låste celler

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

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

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

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

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

med afkortet kode:

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 ?