kommando knap

det skal lige siges, at til den knap er nedenstaående makro tilknyttet:
Sub se()
'
' se Makro
' Makro indspillet 06-11-2008 af pke
'

'
    Columns("B:B").ColumnWidth = 8.71
    Columns("B:D").Select
    Selection.EntireColumn.Hidden = False
    Range("A2").Select
End Sub

Du kan jo altid gøre udførelsen af koden afhængig af inputtet fra en InputBox:

Sub se()
    If InputBox("", "Skriv password") = "KODEORD" Then
        Columns("B:B").ColumnWidth = 8.71
        Columns("B:D").Select
        Selection.EntireColumn.Hidden = False
        Range("A2").Select
    End If
End Sub

Og så beskytte kode med password i VBA.

fornemt tip, smider du lige et svar

Værsgo! :-)