Hirdetés

Új hozzászólás Aktív témák

  • na de ez a teljes workbookra vonatkozik, neki meg bizonyos sheetekre kell csak, gondolom a workbookot meg kell tudni nyitni "korlátozottan" is.

    Én ezt tenném:

    Private Sub CommandButton1_Click()

    pwd = InputBox("Adja meg a jelszót:", "Munkalapok felfedése")
    If pwd = "akarmi" Then
    For i = 2 To 3
    Worksheets(i).Visible = True
    Next
    Else
    hiba = MsgBox("A megadott jelszó hibás!", vbCritical + vbOKOnly, "Jelszó hiba")
    End If

    End Sub

    A CommandButton1 beágyazva az 1-es munkalapra a "Felfedés" felirattal.
    A WorkbookOpen-ben persze megcsinálom ugyanilyen for-next ciklussal a worksheetek visible=false beállítását. És nyilván le kell jelszavazni a VB részhez való hozzáférést. ;]

    bocs, annyi még, hogy a WorkbookOpen-ben alapok elrejtéséhez a Worksheet(i).Visible = xlVeryHidden sort kell használni ahhoz, hogy a felhasználó ne tudja popup menüből láthatóvá tenni az elrejtett munkalapokat, hanem ez csak a visible property programkódból való állításával legyen lehetséges.
    (vagy eleve erre kell beállítani az adott lapok "visible" tulajdonságát a VB projektben)

Új hozzászólás Aktív témák