Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketSkjul ark med password

 Besvar Besvar
Forfatter
Rasmusjc Se dropdown
Forum Begynder
Forum Begynder


Medlem: 02.Jul.2018
Land: Danmark
Status: Offline
Point: 14
Direkte link til dette indlæg Emne: Skjul ark med password
    Sendt: 15.Jul.2018 kl. 23:54
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




Til top



Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk