Hej Folkens
Jeg vil gerne have skjult alle andre ark end et bestemt ark ved hjælp af password og åbnet igen ligeledes med password.
Jeg har ikke selv forstand på VBA kodning, men har fundet denne kodning som egentlig gør det den skal....næsten.
Jeg vil gerne ændre det så den skjuler alle andre ark end "udlejning"
Kan i hjælpe mig med det?
Her er koden
Sub HideSheets() ' This macro toggles worksheets listed between visible and very hidden and requires a password to run ' Created 27/7/2007, Updated 25/6/2012 by Garry Edmonds
Dim myPassword As String
myPassword = "password" ' Set password here Password = InputBox("Enter Password")
If Password = "" Then Exit Sub ' Exit if null input or cancel
' Incorrect password If Password <> myPassword Then MsgBox Title:="Warning", prompt:="Incorrect Password" Exit Sub End If
On Error Resume Next
' Correct password If Worksheets("Sheet2").Visible = True Then ' Check if one of the sheets is visable. If it is it is assumed all are. Worksheets("Sheet2").Visible = xlSheetVeryHidden ' It's visible, so hide it Worksheets("Sheet3").Visible = xlSheetVeryHidden ' If you want more than one hidden list them here If ws.Name <> "menu" Then ws.Visible = xlVeryHidden End If Else Worksheets("Sheet2").Visible = True ' It's hidden, so make it visible Worksheets("Sheet3").Visible = True ' If you want more than one hidden list them here too End If
End Sub
Private Sub Auto_Close() ' This macro hides sheets when the user closes the workbook ' It is a "Private Sub" to prevent it being listed with outher macros
On Error Resume Next
' When workbook is closed hide sheets Worksheets("Sheet2").Visible = xlSheetVeryHidden ' Hide worksheets Worksheets("Sheet3").Visible = xlSheetVeryHidden ' List all sheets that should be hidden on closing
End Sub
|