Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    PROHARDVER!

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #41502 spe88 senior tag Fferi50 #41497
    Új Válasz #41502
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    spe88

    senior tag

    válasz Fferi50 #41497 üzenetére

    Köszi a segítséget. Átalakítottam. Valamit nem jó helyre írtam szerintem.

    Private Sub Workbook_Open()
    Public ASH As Worksheet
    Set ThisWorkbook.ASH = ActiveSheet
    Sheets("HELP_DATA").Select
    Columns("E:E").Select
    ActiveWorkbook.Worksheets("HELP_DATA").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("HELP_DATA").Sort.SortFields.Add Key:=Range("E1"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("HELP_DATA").Sort
    .SetRange Range("E2:E601")
    .Header = xlNo
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
    End With
    Sheets("HELP_DATA").Select
    Columns("G:G").Select
    Range("G2").Activate
    ActiveWorkbook.Worksheets("HELP_DATA").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("HELP_DATA").Sort.SortFields.Add Key:=Range("G2"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("HELP_DATA").Sort
    .SetRange Range("G2:H601")
    .Header = xlNo
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    End With
    End Sub
    Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    'Munkalap aktiválásakor mengnézzük, hogy az új munkalap a védendő-e:
    If Sh Is Worksheets("Output") Then
    'Ha a védendő, akkor jelszót kérünk:
    If InputBox("Jelszó:") = "blbla" Then
    'Ha jó a jelszó, engedjük az aktívvá tételt,
    'és elmentjük új aktívként
    Set ASH = ActiveSheet
    Else
    'Ha rossz, akkor:
    MsgBox "Ehhez a laphoz Neked semmi közöd!!"
    'Visszaállítjuk az előző munkalapot aktívnak:
    ThisWorkbook.ASH.Activate
    End If
    End If
    End Sub
    Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If Sh.Name <> "Output" Then Set ThisWorkbook.ASH = ActiveSheet
    End Sub

    A 2. sornál megakad:

    Compile Error:

    Invalid attribute in Sub or Function

    Mit tegyek? Köszönöm

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