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